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PREFACE 


Multis'sectral  scanners  onboard  NASA  unmanned  Landsat  satellites 
pro/i^e  an  ideal  source  of  current  data  for  Earth  resources 
applications.  The  Detection  and  Mapping  (DAM)  package  was  origi- 
nally developed  at  the  Johnson  Space  Center  for  rapid  conversion 
of  the  Landsat  digital  data  into  hydrographic  maps  matching 
standard  topographic  quadrangle  series.  Recent  improvements  in 
both  the  manual  procedures  and  computer  programs  within  the  DAM 
package  make  it  easier  to  use,  faster,  and  more  general  purpose. 

Documentation  and  software  for  the  DAM  package  are  available  to 
all  public  and  private  agencies,  in  accordance  with  the  NASA 
policy  of  encouraging  maximum  use  of  remote  sensing  technology. 


Published  documentation,  in  which  this  is  volume  4a,  is  comprised 
of  the  following  volumes: 


Volume  1 
Volume  2 
Volume  3 
Volume  4 


General  Procedure 

Software  User  Manual  (in  two  parts) 
Control  Network  Establishment 
Software  System  Manual  (in  two  parts) 


These  volximes  supersede  the  previous  documentation  published  in 
1973.  Software  releases  prior  to  version  7602  cannot  be  used 
with  the  current  documentation. 


Volume  4a  contains  software  listings  and  documentation  which 
have  not  been  published  prior  to  version  8009. 
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RCOUCC  YHC  RIZC  or  YNC  OAN  MOORAN  riCC  ANO  CNHANCC  RCCURIYY. 
YMR.COCCCCY  - CORICO  rRON  OAN. RYR-COCCCC Y CRCC  OCCOHI 

C.A  YNC  OAN.RYR-COCLCCY  CCCNCNY  CONYAlNR  ONC  ANAR  RYAYCNCNY  rOR  CVCRV  MOORAN 
IN  YNC  OAN  RACKAOC.  ANY  ANAR  RYAYCNCNY  RRCCIfYlNO  YhC  ‘VIRYUAL*  VCRRION  OR 
YNC  NAR  ROURCC  CCCNCNY  COCLCCTR  A VIRYUAC  OR  'RKCLCYON*  AOROCUYC  CLCMNY 
HNICH.  NHCN  AXQY'CO.  YRIOOCRR  YNC  COCCCCYION  IN  YRCR  ANO  CXCCUYtON  OR  YNC 
RCAC  NAIN  RROORAN.  TnIR  URCR'YRANRRARCNY  TCCNNIQUC  IR  URCO  ROR  LCRR 
RRCQUCNYCY  CXCCUYCO  RROORANR  IN  ORDCR  YO  RCOUCC  YHC  RIZC  OR  YmC  OAN  RROORAN 
RICC.  ANAR  ORYION  0 NURY  NOY  RC  URCO  RiNCC  RCvCRAL  RROORANR/ RUOROUY I NCR 
ARRUNC  VANIARCCR  ARC  INIYIACCY  ZCRO. 


1.0  CXCCUYION 


YNC  RIRRY  RYAYCNCNYR  OR  CVCRY  OAN  RACKAOC  RUN  AHOULO  BC i 
ANim.CRRIORI YY>/NR  <RUNI0.  CYC.> 

AURC  OAN.  .<aUALirtCR>*<rUC> 

(ARRY.YI  (RIX  ROR  CXCC  RYNC  OUOl 

AARO.A  OAN. 

AAOO  OAN.RCYUR 

RROORANR  RNOUCO  YHCN  BC  CXCCUYCO  RRON  YRfR.  YHIR  RROCCOURC  MILL  INRURC 
YNAY  YNC  ‘VIRYUAL*  VCRRION  OR  A RROORAN  YRIOOCRR  YNC  COLLCCYION  OR  YNC  RCAL 
NAIN  RROORAN  ONLY  ONCC  IN  ANY  RUN.  NO  NAYYCR  NON  NANY  YINCR  YNC  RROORAN 
IR  AXOY-CO.  YNC  RUN  CARO  ROR  CACH  RCRARAYC  RUN  NURY  NAVC  A UNIQUC  RIX- 
CNARACYCR  RUNIO.  ANO  A RROUCCY.IO  RNORYCR  YHAN  It  CNARACYCRR  lUNLCft 
UNIOUCI.  YNIR  hill  NCLR  URCRR  KCCR  YRACK  or  OUYRUY  ANO  CNRURC  UNIQUC 
OUALIRICRR  ROR  HORN  RILCR.  AR  CXRLAINCO  IN  RARAQRARN  A.  IR  RARIYY  CRRORR 
OCCUR  IN  RCAOINO  ORIOINAL  CRYR  YaRCR.  CORICt  RNOULO  RC  NAOC  WlYM  OAN.CRYR>OUR. 
ANO  YNC  CORICS  URCO.  RROORANR  IN  A RCHOTC  OAYCM  RUN  **AY  URC  YhC  ‘RRINYCR* 
CONNANO  YO  ROUYC  ALYCRNAYC  RRINY  RIlCR  RACK  YQ  YhC  RCNOYC  RI YC  AND  OCRINC 
YNC  CNARACYCRIRYICR  OR  YHC  RCNOYC  RRINYCR.  IR  OCRIRCO. 


N.O  RCOUIRCO  LOCAL  NOOIRICAYIONR 


NCOiriCAYlONR  RCOUIRCO  AY  OIRRCRCNY  INRYALLAYIONRi 

•».!  YNC  CONRILC  A COLLCCY  ORYIONR  RRCCIRICO  IN  OAN. RTR-RORORY  » OAN. RYR'NARORY 

NURY  oc  conrayirlc  hiyn  local  naroharc  ANO  roryharc.  IR  yhc  uni  vac  RORYRAN  V 
IRICLOAYAI  library  ROUYINCR  arc  NOY  IN  YhC  RYRYCN  RCLOCAYARLC  library.  ANO'OR 
YNC  UNIVAC  NAYnRACK  ROUYINCR  ARC  NOY  IN  YHC  RYRYCN  RCLOCaYaRLC  LIBRARY.  YhCN 
COOC  RINILAR  YO  YNC  ROLLOHINO  NURY  AC  AOOCO  YO  BAN. RYR>NARORY i 
LIB  OAN. 

LIB  <NANC  OR  RILC  UIYN  RORYRAN  V IRICLOAYAI  LIBRARY  RCL0CAYARLCR> 

LIB  <NANC  OR  RILC  MIYN  NAYNRACK  RCLOCA YABLCRY 
LIB  OAN. 
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tTt*CmAlN 
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Lit  <NAM  or  riic  Mi'N  ronroAN  v iriciOAfAt  uooant  0Ck0CATAeLCt> 

Lit  <NAHC  or  rue  MIVN  NArNPACK  RCLOCArAekCt> 

X.t  fNC  OAN  PACKAOr  NCOUIRCO  AT  kCAOT  ONC  ALTCRNATC  MINT  ruC.  ir  NORC  ARC 
AVAILAiLC  (Ur  TO  A NAXIHUN  OT  fl  IT  HUL  UtC  TNCN  TO  NININIIC  TNC  OttX 
ACeCtfCt  RCOUIRCO  rOR  ram  NORC  than  ONC  UNC'MINTCR  PAOC  IN  niotn. 

TNC  VAkUC  AttlONCO  TO  NfAkTN  IN  OAN. OVt'OLOCK  NUOT  AkNAV*  CQUAk  TNC 
INtTALLATION  CXCC-O  tYOTCH  6CMRATI0N  PARANCTCR  ONALTN  (NAXINUN  ALkOHAlkC 

NUNOCR  or  Acrivc  aatcrnatc  print  ructmi  tnc  vAkuc  aosionco  to  NAktN  in 

OAN.tYt-OlOCK  RCPRCtCNTt  TNC  OCPAUkT  NUNOCR  Or  ALTCNNATC  PRINT  fUCt  TO  tC 
UtCO  OY  PROORANt  IN  TNC  OAN  PACKAOC.  NAkTN  tNOULO  OCNCRAILV  CORRCSPONO 
TO  tnc  niotn  in  LINC-PRINTCR  PAOCt  OP  TnC  MIOCOT  NAP  THAT  NORNAUY  MILL 
OC  OCNCRATCO  "*  IS  TYPICAL*.  HOMCVCR.  NALTN  NUIT  NCVCR  CxCCCO  0 ANO  IT 
NUfT  NCVCR  CXCCCO  NOALTNIt  I TNC  ‘PRINTCR*  CONHANO  CAN  OC  UOCO  MIThIN  A 
MOORAN  TO  TCNPORARILY  CNANOC  NALTH  OUT  NOT  ItALTN.  I 

•».S  tnc  OCVICC-TYPC'NNCNONIC  UICO  to  OCSIONATC  ONtirC  LINC  PRiNTCRiOl  SHOULD 
OC  ASSIONCO  TO  NNCNON  IN  OAN. SYt*OLOCK.  I TNC  PRINTCR  CONNANO  CAN  OC  UtCO 
within  a PNOORAH  to  OYNANICALLY  RC-ROUrC  ALTCRNATC  PRINT  PILCS  TO  A RCNOTC 
MINTCR  ANO  TO  OCriNC  ITS  CNARACTCRISTICS. * 

•».«  LtINCH  ISVSTCH  print  LiNCt  PCR  INCNI  ANO  LSPAOC  iSYSTCN  MINT  LiNCt  PCR 
PAOCI  IN  OAH.SYt-OLOCK  HURT  CXACTLY  HATCH  TNC  INSTALLATION  STANOAROSII 

•».S  IT  IS  NtOHLV  OCSIRCAOLC  (OUT  NOT  NCCCSSARYI  TNAT  DAH  PACKAOC  ALTCRNATC 
PRINT  PILCS  OC  PROOUCCO  AT  0 LINCS  PCR  INCH  TO  PROVIOC  NAXIHUN  RCSOLUTIdN  POR 
TNC  CONPUTCR'OCNCRATCO  NAPS.  LINCH  I OAN  PRINT  LINCS  PCR  INCHI  ANO  LPAOC  <OAN 
PRINT  LINCS  PCri  PAOCI  At  SPCCIPICO  IN  OAN. SVS'OLOCX  NCCO  NOT  NCCCSSARILT 
HATCH  Tnc  installation  STANOAROS.  ip  THCV  00  NATCH  Tnc  OCPAULT  CNARACTCRISTICS 
or  Tnc  printcrisi  spccipico  sy  nnCnon  iscc  i.si  tncn  tnc  valuc  assionco 

TO  KONPRT  IN  OAN.SVS'OLOCK  NUST  OC  *NON*.  OTNCRNISC  TnC  VALUC  HUST  OC 
*NAN*  POR  PRINTCRS  HNCRC  TNC  LINCS  PCR  INCH  ARC  NANUALLV  CONTROLLCO  OY 
AN  OPCRaTOR  ANO  ‘AUT*  POR  PRINTCRS  WNCRC  TNC  LINCS  PCR  INCN  ARC  AUTONAT ICALLT 
CONTROLLCO  OY  TNC  SOPTUARC. 

N.O  KINCH  lOAH  print  COLUNNS  PCR  INCNI  ANO  KPAOC  I DAN  PRINT  COLUNNS  PCR 
PAOCI  IN  OAN.SVS'OLOCK  SHOULD  HATCH  TNC  STANOAROS  OP  ThC  PRInTCRISI  SPCCIPICO 
OY  NNCNON  ISCC  <*.SI. 

«.7  ALL  PROORANt  AUTONAT I CALL  V NAKC  CNTRICS  IN  A LOO  PILC  WHICH  HAY  OC 
SCLCCTIVCLY  OuCRICO  Ov  ThC  STaTuS  PROORan.  ThC  < Qual IP I ICN>« <p ILC > ano  pILC 
Size  IN  SCCTORS  OP  ThC  LOO  PILC.  SPCCIPICO  OT  LOOPIL  ANO  LONSCC.  NUST  OC 
ASSIONCO  IN  OAN.SVS-OLOCK.  IP  LONSCC  IS  LCSt  THAN  100  NO  LOO  IS  kCPT. 

OTHCRHISC  tnc  loo  PILC  IS  AUTONATICALLT  CAfALOOCO.  INITIALIZCO.  ano  naintainco 
OY  Tnc  OAN  PACKAOC.  I THC  SYSTCNS  ANALTST  NUST  NOT  CATaLOO  IT. I 

N.O  OAN.NCH'OAN  SHOULD  DC  RCviSCO  AS  APRROPRIaTC.  SUOUCCT  TQ  THC  POLLOUINO: 
THIS  NCHS  CLCNCNT  NUST  OC  PRCSCNT.  CVCN  IP  CNPTV. 

tnc  pirst  cnaractcr  op  cacn  LiNC  IS  A portran  print  control  cnaractcr. 

LINCS  SHOULD  NOT  OC  LONOCR  THAN  00  CNARACTCRS. 

THIS  CLCNCNT  NAT  OC  UPOATCO  AT  ANY  TINC  WITHOUT  RCCONPILINO. 


S.O  OPTIONAL  LOCAL  NCOIPICATIONS 
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NOOinCAriONt  NMICN  NAT  K OCttNAttC  roff  OirrCACNT  INCTAUAnONt/AMt.ieAriONti 
t.l  TMC  OAN  ^ACKAOC  MNCKArCt  MX  MOtt  eONTAIIIINO  AUNIO.  MOOAAN.  OATC. 

Tine.  ere.  on  r»«  moNt  or  cacn  AktCAiMrc  roiNT  rue.  our  mot  on  rne  otanoano 
roiNTt  rue.  iNtrAiLAtioNO  t^iCN  oo  not  AuroNAriCALLr  oeneNAre  oox  OAoet 
roN  tNe  rniNfo  rue  ohoulo  NAve  ueeNt  ixor  a local  oox  rAoe  uriLirv 
mooNAN  Af  rne  oeoiNNiNO  or  eACN  OArcN  awn. 

S.t  TWO  AANAYS  NAT  NOT  OC  tlMC  OATINUN  tIZet  rON  ALL  INC TALLATtONO  AND 
AML  t CAT  IONS  I 

KfAOLe  - TNlt  AANAT  OTONeS  TICK  OATA  rON  CACH  NAA.  AACKeO  ONT 

TICK  rcN  MONO,  ir  naao  Aoe  veoY  laaoc  on  contain  CLOteLT  OAAceo 
TICKS  TNIS  ANAAY  nay  NAVC  TO  OC  INCKeASCO  IN  tlZC.  TO  OO  THIS  CHANOC 
THC  KTOLSZ  AANANCrCA  STaTCNCNT  in  TnC  KONTOL  MOC  leLCnCNT  roNMOCSI. 

KSYH  • THIS  AANAY  STOACS  CNAAACTCA  SYNOOLS  rOA  CACH  NAN.  ONC  STNOOL 
3AOUr  rCA  HOAO.  ir  NAA  SCALCS  NUCN  SHALLCA  TNAN  l/tSO.OOO  AAC  TO 
oe  USCO  this  ANAAY  NUST  OC  CNLAAOCO.  TO  OO  THIS  CHANOC  THC  KSYNOZ 
AANANCTCA  STATCNCNT  IN  KONOYN-AAOC  I AAACNOI X>Oi . 

0.1  NOOr  AAOOAANO  IN  THC  OAN  AACKAOC  UOC  OCCAULT  CONNANOO  CONTAINCO  IN 
OYNiOLie  CLCHCNTO  NAHCO  AO  fOLLOHOt 

OAN.OCr*<AAOOAAN  NANC> 

OCfAULT  CONNANOO  NAY  OC  CHANOCO  WITHOUT  ACCONAUINO. 


0.0  CONALICTO  OCTWCCN  AWNS 


OCVCAAL  AAOOAANO  IN  THC  OAN  AACKAOC  OYN^HlCALLY  AOOION  CATALOOCO  AAOTAANO 
ruco.  tncoc  riLCO  aac  uoco  to  allow  roA  oata  TAANorcr  octwccn  arooaaho  in 

OirrCACNT  AWNS,  to  NAXINIZe  ACAUN  CrriCICNCY  AFTCA  IAACCOVCAAOLC  TaAC  AAAI  tv 
CAAOA  OA  OYOTCN  CRASH.  ANO  AQA  ALTCANATC  AAINT  fUCO.  ThC  AOLLOWINO  CXTCRNAL 

rue  NANCO  AAC  uoco  roA  thcoc  ruco  I 

•OANAAT-0.  THAOUOH  •OANART-0. 

•OANKT't.  TWAOUOH  •OAHOCT*)*. 

TO  AACVCNT  CONFLICTS  OCTwCCN  CONCUARCNT  RUNS  TWC  OUALIFICR  UOCO  FOR  ThCSC 
ruco  NUST  OC  UNIOUC  for  CACH  run.  to  INSUAC  this  UNIOUCNCOS.  TnC  OAH 
AACKAOC  AUrONATICALLV  CXTCNOO  INITIAL  USCR'f ACC I F I CO  QUALIFtCRO  SHORTCR 
Than  iZ  cnaractcro  with  non>olank  Cmaractcro  from  tmC  riomt  of  '^mc  uSCR- 
OACCIFICO  AUNIO.  IF  ThC  CXTCNOCO  QUALIFICA  10  NOT  UNlOUC.  CRA.’^.  TCRHINaTION 
NAY  ACOULT. 


Y.O  0C0U60IN0 


T.l  THC  NUHOCA  OF  COAICO  OACCIFICO  WITH  THC  *COAICO*  CONHANO  SMOULO  NORHALLY 
OC  OCTt^CN  I ANO  0.  IF  0 10  OACCIFICO.  ALTCANATC  ARINT  FILCO  ARC  NOT  SOVH'CO 
INTCANALLV.  THC  OYOTCNO  analyst  HAY  ThCN  CXAHINC  Thcoc  FILCO  FROH  a RCN9TC 
TCANINAL  with  ThC  ICO  AAOCCOOOA  ANO  NUST  NANUALLY  lOVN  OR  lOCLCTC  ThCN. 


T.t  THC  'ON*  ANO  'OFF*  CONNANOO  NAY  OC  UOCO  TO  CONTROL  TRACING  I OUNAINO- 
7.9  THC  ‘ACCK*  ANO  ‘AOKC*  CONNANOO  NAY  SC  USCO  TQ  INSACCT  ANO  TO  HOOIFY 


K-7 
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OAH  MCKAOC  APPCNOIX  K 

trtrcH  inPLenCNTAriON 


«Vt-eXPLAIN 

oos 


(AT  THE  ANAI.YSr*S  PCRUI  VAMIAtLCt  IN  LANCLLCO  CONHON  BLOCKS. 

7.*»  PICTAB  AMO  PBTCLASS  A8S10N  SCVCNAL  ALTCRNAre  PRINT  PILES  ON  DISK.  IP 
A SINOLE  ALTERNATE  PRINT  TILE  ON  TAPE  IS  KSIREO  INSTEAD.  THEN  THE  POLLOMINO 
CARO  MUST  APPEAR  IN  THE  RUN  BCPORE  THESE  PROORAHS  ARC  AXOT>COi 
AASO.<OPTIONS>  IO..US.<RCCL  NUHBCR> 

7.S  the  OAH  SOPTHARC  INCLUOCS  NUMEROUS  PIXCS  POR  BUGS  IN  RECENT  RELEASES 
OP  UNIVAC  SYSTEMS  SOP  HARE.  ALL  PROGRAMS  ANO  SUBROUTINES  IN  THE  0AM  PACKAGE 
HAVE  BEEN  SUCCESSPULL  OHPILEO.  COLLECTED.  ANO  CXECUTEO  ON  THE  UNI  VAC  1110 
AT  NASA  JOHNSON  SPACE  CENTE<^  UNDER  THE  POLLOHINO  SYSTEMS  SOPThARE: 

EXEC  3l.SHH.ailB 
PURPUR  OOSS 
POPTIO  RL70-6 
POR  S0E3 
ASMI3B  RLIB6S 
MAPS7.1  RL7I-3 
SYSS*RLIBS.  LEVEL  71-3 

IT  IS  NOT  POSSIBLE  TO  INCLUDE  PIXCS  POR  BUOS  IN  ALL  PAST  ANO  PUTURC  UNIVAC 
SYSTEMS  RELEASES.  IP  BUOS  IN  THE  SYSTEM  PROCESSORS  ANO/OR  SYSTEM  RELOCATABLE 
LIBRARY  APPECT  ThE  OAM  PACKAOE.  THEY  CAN  ORDINARILY  BE  CIRCUMVCNTCO  BY 
OOINO  TO  AN  EARLIER  OR  LATER  SYSTEMS  RELEASE. 


S.O  MONI TORINO  USAOC 


THE  STATUS  PROORAM  NAY  BE  USED  (CITHER  IN  BATCH  OR  DCMANO)  TO  LIST  ALL  RUNS 
USINO  THE  OAH  PACKAOE.  ORDINARILY.  STATUS  HILL  NOT  PRINT  USER  ACCOUNT 
NUMBERS.  ANO  HILL  NOT  LIST  MORE  THAN  SO  RUNS.  MOHCVER.  THE  POLLOUINO 
RUNSTRCAH  avoids  both  these  LIMITATIONS: 

axQ?  status 

kcy.<hritc  key  POR  The  dam  prooram  pilc> 

//////. 9899 
EXIT 
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tYS-COPYCON 

001 


oco^Y.s  OAH.SYS-conpiLC.conPiLC  . Aoo  CLcnCNT  mior  not  pack  its  own  riLcm 

ocoPY.s  OAN.SYS'OCLere.oELere  . aoo  clcncnt  hust  not  pack  its  own  piLein 

OCOPY.S  OAH.SYS-COLLCCr. COLLECT  . AOO  ELEHENT  MUST  NEVER  PACK  ITS  OWN  PILEll 
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SYsrcN  inPLCnCNrAnoN 


SVS-BLOe« 

001 


c 


c 


OLOCK  data 


INCLUDC  SYSXQT.LISr 
data  JPOrCN/'H.X.t. */ 
DATA  JRUN/ 'aLOO* . * *.* 
data  JPROO/H*'  */ 

DATA  C JHOetN. t > .N>l . tot 
A /I8«*  •/ 

DATA  ( JHOOtN.at .N*I .I8> 
A /I8«*  •/ 

DATA  LtNCH/8/ 

DATA  KtNCH/10/ 
data  LPAOe/68/ 

DATA  KPA0e/t38/ 
data  L8tNCH/8/ 

DATA  LSPAOe/68/ 
data  KONPRr/*NON*/ 

DATA  HNCNON/'PR*/ 
data  HALTH/H/ 

DATA  NSALrn/<»/ 


8 PRTCNS  INAOe  - 00  NOT  CHANOCIi 
8 CSF8  LOO  - 00  NOT  CHANOCII 
8 OLANK  PILL  - 00  NOT  CHANOCII 
8 HCAOINO  LINC  t 

8 HCAOINO  LINC  8 

a OAH  LINCS/INCH 
a OAN  COLUNNS/INCH 
a OAN  LINCS/PAOC 
a OAH  COLUHNS/PAOC 
a iNSTALLA'iCH  SVS-OCN  LiNCS/INCH 

a installai  io*«  sys-ocn  lincs/pagc 

a PRINT  CONTROL:  ' AUT * / ‘ HAN  * / ' NON  * 

a OCVICC  TYPC  nnchonic  por  onsite  printers 

a OAN  NUNBCR  OP  ALT  PRT  PILES  ( HALTN  <>  HSALTH 
a SYS  OCN  PARAH  SNALTH  (HAX  NO  ALT  PRT  PILES) 


INCLUOC  KONLOO.LIST 
OATA  LOGPKT/ * I ’ . * *.'♦♦0/ 

OATA  LONSEC/900/ 

OATA  LOCSP/ *a* . 'USE  I.'.*  •/ 

OATA  LOOPIL/ ’Tr5>L767S8«0AHL0G. * . 

a • . •/ 

OATA  LUOPKT/'HOQUEUE* .H«0/ 

ENO 


a PACKET  • 00  NOT  CHANCE  I I 
a NUMBER  OP  SECTORS  IN  LOO  PILE  -- 
a IP  < 100  LOO  PILE  NOT  maintained 
8 CSPS  USE  - 00  NOT  CHANOCII 
a EXTERNAL  NAME  OP  LOG  PILE 
a CSPS  ENO  - 00  NOT  CHANOCII 
a PACKET  - 00  NOT  CHANOCII 


OAN  PACKAOC  AWNOIX  K 

svsren  iNPLCNeNTAnoN 


sv$>NAwr 

001 


TYOC  CLRAFCN 
CLASS  I no 
CLASS  ASH 

•cor  ^ 


OAN  PACKAOC  APPCNOIX  K SYS 

SYsren  inPLCNCNrArtoN 


SHOO  OAH  PORTRAN  PROCCOURC  PORPROCS/ 
•POP.LP  OAH. PORPROCS/ . . PORPROCS/ 

SHOO  OAH  PORTRAN  PROCCOURC  TRPORH-PROCS/ 
SPOP.LP  OAH. TRPORH-PROCS/ . . TRPORH-PROCS/ 
•NOO  OAH  PORTRAN  PROCCOURC  PICOCP-PRCC/ 
•POP.LP  OAH.PICOCP-PROC/. .PICOCP-PROC/ 
•NOO  OAH  PORTRAN  PROCCOURC  HAXBYT-PROC/ 
•POP.LP  OAN.NAXBYT-PROC/. .HAXBYT-PROC/ 
•HOO  OAH  PORTRAN  PROCCOURC  NAXICC-PROC/ 
•POP.LP  OAN.HAXtCC-PROC/. . HAX i CC -PROC/ 
•HOO  OAH  PORTRAN  PROCCOURC  NAXINT-PROC/ 
•POP.LP  OAH.HAXINT'PROC/ . . HAX t NT -PROC / 
•HOO  OAH  PORTRAN  PROCCOURC  NULCHR-PROC/ 
•POP.LP  OAH. NULCHR-PROC/ . .NULCHR-PROC/ 
•HOO  OAN  PORTRAN  PROCCOURC  NULCST-PROC/ 
•POP.LP  OAH.NULCST-PROC/ . .NULCST-PROC/ 
•HOG  OAH  PORTRAN  PROCCOURC  ASHOCP-PROC/ 
•POP.LP  OAH. ASHOCP-PROC/ . . ASHOCP-PROC/ 
•HOO  OAH  PORTRAN  PROCCOURC  PtOCP-PROC/ 
•POP.LP  OAH.PIOCP-PROC/ . .PIOCP-PROC/ 

•HOO  OAH  PORTRAN  PROCCOURC  PACBIT-PROC/ 
•POP.LP  OAH.PACBIT-PROC/. .PACBIT-PROC/ 
•HOO  OAH  PORTRAN  PROCCOURC  K0HLU5-PR0C/ 
•POP.LP  OAH.KOHLUS-PROC/. . KOHLUS-PROC/ 
•HOO  OAH  PORTRAN  PROCCOURC  KOHIO-PROC/ 
•POP.LP  OAN. KOHIO-PROC/ . .KOHIO-PROC/ 

•HOO  OAH  PORTRAN  PROCCOURC  PXBOCP-PROC/ 
•POP.LP  OAH. PXBOCP-PROC/ . . PXBOCP-PROC/ 
•HOO  OAN  PORTRAN  PROCCOURC  CBOCP-PROC/ 
•POP.LP  OAH. CBOCP  PROC/ . .CBOCP-PROC/ 

•HOO  OAH  PORTRAN  PROCCOURC  KOHSLH-PROC/ 
•POP.LP  OAH. KOHSLH-PROC/ . .KOHSLH-PROC/ 
•HOO  OAN  PORTRAN  PROCCOURC  PRCOCP-PROC/ 
•POP.LP  OAN. PRCOCP-PROC/ . . PRCOCP-PROC/ 
•HOO  OAH  PORTRAN  PROCCOURC  AL TPRT -PROCS/ 
•POP.LP  OAN. ALTPRT-PROCS/ . . AL TPRT -PROCS/ 
SHOO  OAN  PORTRAN  PROCCOURC  KOHIRT-PROC/ 
•POP.LP  OAH. KOHIRT-PROC/ . .KOHIRT-PROC/ 

•HOO  OAH  PORTRAN  PROCCOURC  KOMNCT-PROC/ 
•POP.LP  OAH.KOHNCT-PROC/ . .KOHNCT-PROC/ 

•HOO  OAH  PORTRAN  PROCCOURC  LSTLU8-PR0C/ 
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•POR.S  OAN.KOLRNI/ 
•AOO  OAN.SYS-POROPT 
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•NOO  OAN  IHKOLR/ 

•roR.s  oah.ihkoln/ 

•AOO  OAN.SYS-rOROPT 
•HOO  OAN  OCONST/ 

•rOR.S  OAN. OCONST/ 

•AOO  OAN.SVS-POROPT 
•PACK  OAN. 

•HOO  OAN  KNOOeO/ 

•rOR.S  OAN.KNOOeO/ 

•AOO  OAN.SrS-rOROPT 
•MOO  OAN  STRCOa/ 

•rOR.S  OAN.STRCOe/ 

•AOO  OAN.srs-roROPT 
•NOO  OAN  KHOATT/ 

•POR.S  OAN.KNOATT/ 

•AOO  OAN.SVS-POROPT 
•HOO  OAN  KMOPAO/ 

•POR.S  OAN.KNOPAO/ 

•AOO  OAN.SVS-POROPT 
•NOO  OAN  KHORAO/ 

•POR.S  OAN. KHORAO/ 

•AOO  OAN.SVS-POROPT 
•HOO  OAN  KNOTIC/ 

•POR.S  OAN. KNOTIC/ 

•AOO  OAN.SVS-POROPT 
•HOO  OAN  CRTSUP/OAN 
•ASH. PS  OAN.CRTSHP/OAN 
•HOO  OAN  TRCCVR/ 

•POR.S  OAN. TRCCVR/ 

•AOO  OAN.SVS-POROPT 
•HOO  OAN  PUTHCX/ 

•POR.S  OAN. PUTHCX/ 

•AOO  OAN.SVS-POROPT 
•HOO  OAN  CALSPA/ 

•POR.S  OAN. CALSPA/ 

•AOO  OAN.SVS-POROPT 
•HOO  OAN  R03BSQ/ 

•POR.S  0AN.RO3BSQ/ 

•AOO  OAN.SVS-POROPT 
•HOO  OAN  CRSPRTCN/ 

•ASH. PS  OAN. CRSPRTCN/ 

•HOO  OAN  CRTSIOC/ VIRTUAL 
•ASH. PS  OAN. CRTSIOC/ VIRTUAL 
•HOO  OAN  PICTaB/VIRTUAL 
•ASH. PS  OAN. PICTAB/VIRTUAL 
•HOO  OAN  CONTROL/VIRTUAL 
•ASH. PS  OAN. CONTROL/ VIRTUAL 
•HOO  OAN  CLASSIPV/VIRTUAL 
•ASH. PS  OAN. CLASSIPV/VIRTUAL 
•HOO  OAN  PRTCLASS/VIRTUAL 
•ASH. PS  OAN. PRTCLASS/VIRTUAL 
•HOO  OAN  PLTCLASS/VIRTUAL 
•ASH. PS  OAN. PLTCLASS/VIRTUAL 
•HOO  DAN  status/virtual 
•ASH. PS  OAN.STATUS/VIRTUAL 
•HOO  OAN  01 TCOP/VIRTUAL 
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•AtN.rs  OAn.oircop/vinruAL 

AHOO  OAN  HINCXT/ 

•rON.S  OAN. HINCXT/ 

•AOO  OAN.SYS*rOROPT 
APACK  OAN. 

ANOO  OAN  OCTNUL/ 

AFOR.S  OAN.OCTNUL/ 

AAOO  OAN.SYS'FOROPT 
ANOO  OAN  CLACXI/ 

AfOR.S  OAN. CLACXI/ 

AAOO  OAN.SYS-rOROPr 
AHOO  OAN  R03NUL/ 

AFOR.S  OAN.R03NUL/ 

AAOO  OAN.SYS-FOROPT 
AHOO  OAN  OPRPRC/ 

AFOR.S  OAN. OPRPRC/ 

AAOw  OAN.SYS-FOROPT 
ANOO  OAN  CALSYN/ 

AFOR.S  OAN. CALSYN/ 

AAOO  DAN.SYS-FOROPT 
AHOO  OAN  PICOtS/ 

AFOR.S  OAN. PICOtS/ 

AAOO  DAN.SYS-FOROPT 
SHOO  OAN  CLSOAN/ 

AFOR.S  OAN.CLSOCN/ 

AAOO  DAN.SYS-FOROPT 
AHOO  OAN  PICL IS/ 

AFOR.S  OAN.PICLtS/ 

AAOO  DAN.SYS-FOROPT 
AHOO  OAN  PROVSY/ 

AFOR.S  OAN. PROVSY/ 

AAOO  OAN. SVS-FOROPT 
SHOO  OAN  PtCPIH/ 

AFOR.S  OAN.PICPU/ 

AAOO  OAN.SYS-FOROPT 
AHOO  OAN  PICPIS/ 

AFOR.S  OAN. PICPIS/ 

AAOO  OAN.SYS-FOROPT 
AHOO  OAN  CBHCST/ 

AFOR.S  0AN.C8<*CST/ 

AAOO  OAN.SYS-FOROPT 
AHOO  OAN  CLAOCV/ 

AFOR.S  OAN.CLAOC*/ 

AAOO  OAN. SYS-FOROPT 
AHOO  OAN  SYSOCT/OAN 
• AASN.FS  OAN.SYSOCr/OAN 
AHOO  OAN  CRCSF/OAN 
AASN.FS  OAN. CRCSF/OAN 
AHOO  OAN  aST^SB/ I I 08 
AASN.FS  OAN.BSTVBB/ I 108 
AHOO  OAN  8ST488/ I I 10 
AASN.FS  OAN.BSTyBS/ 1110 
AHOO  OAN  B8>*8ST/  I I I0 
AASN.FS  0AN.88O8ST/ I I 10 
AHOO  OAN  CBHRL/ 

AFOR.S  OAN.CBHRL/ 
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•AOO  OAN.SYS-rOROPr 
ANDO  OAH  CLRQHO/ 

•ASH. PS  OAH. CLRQHO/ 
•NOO  OAH  CSTHRL/ 
•POR.S  OAH.CSr*»RL/ 
•AOO  OAH.SVS-POROPT 
•PACK  OAH. 

•HOO  OAN  C8S‘»CS/ 
•POR.S  OAH.CeS**CS/ 
•AOO  OAH.SVS-POROPT 
•HOO  OAH  CeSHIN/ 
•POR.S  0AH.C8S4IN/ 
•AOO  OAH.SVS-POROPT 
•HOO  OAH  C8SHRL/ 
•POR.S  0AH.C8SHRL/ 
•AOO  OAH.SVS-POROPT 
•HOO  OAH  OETBVT/ 

•ASH. PS  DAM. OETBVT/ 
•HOO  OAH  OETCHR/ 

•ASH. PS  OAN. OETCHR/ 
•HOO  OAN  OETOBV/ 

•ASH. PS  OAH. OETOBV/ 
•HOO  OAH  TRACE/ OAH 
•ASH. PS  OAH. TRACE/OAH 
•HOO  OAH  OETINT/ 

•ASH. PS  OAH. OETINT/ 
•HOO  OAH  OETNVB/ 

•ASH. PS  OAH.OETnvB/ 
•HOO  OAH  OETOBV/ 

•ASH. PS  OAH. OETOBV/ 
•HOO  OAH  ICE/ 

•ASH. PS  OAH. ICE/ 

•HOO  OAH  ICHR/ 

•ASH. PS  OAH. ICHR/ 

• HOO  OAH  mKONE/ 

• ASH. PS  OAH.  UKONE/ 

• HOO  OAH  I>*KTU0/ 

• ASH. PS  OAH.  t>»KTuO/ 

• HOO  OAH  KONE<*I  / 

• ASH. PS  OAH.KONEM/ 

• HOO  OAH  KTUO>*I  / 

• ASH. PS  OAH.KTUO>»l  / 
•HOO  OAH  LINTEO/ 

•ASH. PS  OAH.LtNTEQ/ 
•HOO  OAH  LINTNE/ 

•ASH. PS  OAH. L INTnE/ 
•HOO  OAH  HOVBST/ASH 
•ASH. PS  OAH. HOVBST/ASH 
•HOO  OAH  H0V8VT/ 

•ASH. PS  OAH.nOVBVT/ 
•HOO  OAH  HOVChR/ 

•ASH. PS  OAH. HOVCHR/ 
•PACK  OAH. 

•HOO  OAH  HOVCST/ASH 
•ASH. PS  OAH.HOVCST/ASH 
•HOO  OAH  HOVOBV/ 
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•A8N.PS  OAN.NOVOSV/ 
•NOO  OAN  NOVI  ST/ 
•ASN.rS  OAH.NOVIST/ 
•HOO  OAN  NSVNI/ 
•ASH. PS  OAH.NBVNI/ 
•MOO  OAN  NCHNI/ 
•ASM. PS  OAH.NCHNI/ 
•MOO  OAN  NIVNO/ 
•ASH. PS  OAH.NIHNO/ 
•NOO  OAN  NIHNC/ 
•ASH. PS  OAN. NUNC/ 
•NOO  OAN  PurSYT/ 
•ASN.PS  OAN.Purevr/ 
•HOO  OAN  PurCHR/ 
•ASN.PS  OAN.PUrCHR/ 
•HOO  OAN  PUrOBY/ 
•ASN.PS  OAH.PUrOBY/ 
•HOO  OAN  PUT t NY/ 
•ASN.PS  OAN.PUriNT/ 
•HOO  OAN  PUTNYB/ 
•ASN.PS  OAN. PUTNYB/ 
•HOO  OAN  PUTQBY/ 
•ASN.PS  OAN.PUTQBY/ 
•NOO  OAN  SCTQUO/ 
•ASN.PS  OAH.SCTQUO/ 
•HOO  OAN  CBVAS/ 
•POR.S  OAN.PBHAS/ 
•AOO  OAN. SYS'POROPT 
•HOO  OAN  AS'fCSr/ 
•POR.S  OAN.ASVCST/ 
•AOO  OAN. SYS-POROPT 
•HOO  OAN  ASHCB/ 
•POR.S  OAN.AS>*eB/ 
•AOO  OAN. SYS-POROPT 
•HOO  OAN  CSTHCB/ 
•POR.S  OAN.CSroCB/ 
•AOO  OAN. SYS-POROPT 

•HOO  OAN  ocooe/ 
•POR.S  OAN.OCOOC/ 
•AOO  OAN. SYS-POROPT 
•NOO  OAN  OCTHCX/ 
•POR.S  OAN.oerHPx/ 
•AOO  OAN. SYS-POROPT 
•HOO  OAN  LBYTCQ/ 
•POR.S  OAN. LBYTCQ/ 
•AOO  OAN. SYS-POROPT 
•PACK  OAN. 

•HOO  OAN  LBYTnC/ 
•POR.S  OAN. LBYTNC/ 
•AOO  OAN. SYS-POROPT 
•HOO  OAN  LCHRCQ/ 
•POR.S  OAN. LCHRCQ/ 
•AOO  OAN. SYS-POROPT 
•HOO  OAN  LCHRNC/ 
•POR.S  OAN. LCHRNC/ 
•AOO  OAN. SYS-POROPT 
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•NOO  OAN  iiceco/ 

•rOR.S  OAN.LICeCQ/ 

•AOO  OAN.SVS'POROPr 
AHOO  OAN  LICCNC/ 

•rOR.8  OAN. LICCNC/ 

AAOO  OAN.SYS-rOROPT 
•HOO  OAN  ATRaCC/OAN 
•ASN.PS  OAN. ATRACC/OAN 
ANOO  OAN  BYTONP/ 

APOR.S  OAN.OYTONP/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  CORLT/ 

APOR.S  OAN. CORLT/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  OCORLT/ 

APOR.S  OAN. OCORLT/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  KNOSI2/ 

APOR.S  OAN.KNOSIZ/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  KNOCCN/ 

APOR.S  OAN. KNOCCN/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  KNOSCC/ 

APOR.S  OAN. KNOSCC/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  PRBNUN/ 

APOR.S  OAN. PRBNUN/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  KNOSPA/ 

APOR.S  OAN. KNOSPA/ 

AAOO  OAN.SYS-POROPT 
AHOO  OAN  KNOPt/ 

APOR.S  OAN.KNOPI/ 

AAOO  OAN.SYS-POROPT 
AHOO  OAN  LB0X4I / 

AASN.PS  OAN.LBOXm/ 

ANOO  OAN  CLAOOO/ 

APOR.S  OAN. CLAOOO/ 

AAOO  VM. SYS-POROPT 
AHOO  dan  CLASSIPY-HAP/ 
AHOO  OAN  CST4AS/ 

APOR.S  OAN.CST<*aS/ 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  RCAOZN/ 

APOR.S  0AN.RCA02N/ 

AAOO  OAN. SVS-POROPT 
ANOO  OAN  PROiaS/ 

APOR.S  0AN.PR0IB9' 

AAOO  OAN.SYS-POROPT 
ANOO  OAN  PR03>»S/ 

APOR.S  0AN.PR03>*S/ 

AAOO  OAN.SYS-POROPT 
APACK  OAN. 

ANOO  OAN  PR0019/ 

APOR.S  OAN.PROOI9/ 
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■•wii  WMn« «T«-r unwri 

ONOO  DAN  PROCXI/ 

•roN.s  OA»‘.PNoexi/ 

•Aoo  OAH.sv«<roiiopr 
•NOO  oxn  POOL <9/ 

•rOM.S  DAN. POOL  19/ 

•ADO  OAH.SVS-rOROPr 
•NOO  OAN  PNC HAP/ 

•rON.9  OAH.PNCNAP/ 

•AOO  0AN.9YS*r0R0PT 
•NOO  OAN  PRTOer/ VIRTUAL 
•ASH. PS  OAH.PRTOCr/VlRTUAL 
•NOO  OAN  PRTOer-NAP/VtRTUAL 
•NOO  OAN  CONAOJ/ 

•POR.S  OAN. CONAOJ/ 

•AOO  OAH.SrS-POROPr 
•NOO  OAN  CLA0C3/ 

•POR.S  0AN.CLA0C3/ 

•AOO  OAN. SVS-POROPr 
•NOO  OAN  RCA03/ 

•POR.S  0AN.RCA03/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  R0301L/ 

•POR.S  OAN.ROSatL/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  R3TRCC/ 

•POR.S  0AN.R3TRCC/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  CLOSPR/ 

•POR.S  OAN. CLOSPR/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  PRSYNL/ 

•POR.S  OAN. PRSYNL/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  NITHOO/ 

•POR.S  oan.nithoo/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  NAPHOO/ 

•POR.S  OAN. NAPHOO/ 

•AOO  OAN.SYS-POROPT 
•HOO  OAN  KNOPCP/ 

•POR.S  OAN.KNOPCC/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  XNOPOK/ 

•POR.S  OAN.KNOPOK/ 

•AOO  OAN.SYS-POROPT 
• HOO  OAN  eB>*CST/ 

•POR.S  OAN.CB^CST/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAN  PICPIC/ 

•POR.S  OAK. PICPIC/ 

•AOO  OAN.SYS-POROPT 
•HOO  OAN  PROPIC/ 

•POR.S  OAN. PROPIC/ 

•AOO  OAN.SYS-POROPT 
•NOO  DAN  OISNIS/ 
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oroo.s  OAN.OISMIS/ 

•AOO  OAn.SYS*roROPr 
•HOO  OAH  CALCOL/ 

•rOR.S  OAH. CALCOL/ 

AAOO  OAH.SYS*rOROPT 
•RACK  0AM. 

•HOO  OAH  PICPI9/ 

•rOR.S  0AN.RICPI9/ 

•AOO  OAN.SVS*rOROPT 
•HOO  OAH  PROP to/ 

•POR.S  OAH.PROPtO/ 

•AOO  OAH.SVS'POROPT 
•HOO  OAH  KHOTAO/ 

•POR.S  OAH. KNOT AB/ 

•AOO  OAH.SVS'POROPT 
•HOO  0AM  KHOIP/ 

•POR.S  OAM.KHOtP/ 

•AOO  OAH.SVS-rOROPT 
•HOO  OAH  R030SK/ 

•POR.S  OAH.R030SK/ 

•AOO  OAH.SVS-POROPT 
•HOO  OAH  SCTNOO/ 

•POR.S  OAH. scrnoo/ 

•AOO  OAH.SrS-POROPT 
•HOO  OAH  PITROL/ 

•POR.S  DAN. PITROL/ 

•AOO  OAH.SYS-rOROPT 
•MOO  OAH  L0RC08/ 

•POR.S  OAH.LOReoe/ 

•AOO  OAH.SVS-POROPT 
•HOO  OAH  PICPI 3/ 

•POR.S  0AH.PICPI3/ 

•AOO  OAH.SYS-POROPT 
•MOO  OAH  KMOINT/ 

•POR.S  OAH.KHOINT/ 

•AOO  OAH.SYS-POROPT 
•HOO  OAH  KMOCRO/ 

•POR.S  OAN.KHOCRO/ 

•AOO  OAH.SYS-POROPT 
•HOO  OAH  PRTOCT-HAP/ 

•HOO  OAH  PROP! 3/ 

•POR.S  0AH.PR0PI3/ 

•AOO  OAH.SYS-POROPT 
•HOO  OAH  lOPtLC-MAP/ 

•HOO  OAH  lOPILC-HAP/ virtual 
•HOO  OAH  SYPOCT/OAH 
•ASH. PS  OAH. SYPOCT/OAH 
•HOO  OAH  AHO/ 

•POR.S  0AH.A40/ 

•AOO  OAH.SYS-POROPT 
•MOO  OAH  OHA/ 

•POR.S  OAH. OVA/ 

•AOO  OAH.SYS-POROPT 
•MOO  OAH  OVP/ 

•POR.S  OAH.OVP/ 

•AOO  OAH.SVS-POROPT 
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•MOO  OAN  OHU/CLANKClOeO 

•roN.s  OAH.OHu/CLANKCiaea 

•AOO  OAN.SYS>rOROf>r 
•NOO  OAN  P«A/ 

•PON. 8 OAN.P«»A/ 

•AOO  OAN.SY8-POROPY 
•NOO  OAN  AHP/ 

•PON. 8 OAN.A<*P/ 

•AOO  OAN.8Y8>POROPT 
•NOO  OAN  PNO/ 

•PON. 8 OAN.PHO/ 

•AOO  OAN.8Y8-POPOPT 
•NOO  DAN  DUHO/CLARKCiaeS 
•PON. 8 OAN.OU*»0/CLARKCt866 
•AOO  OAN.SYS-POROPr 
•PACK  OAN. 

•NOO  OAN  UHO/CLARKClOOe 
•PON. 8 OAN.  V»0/CI.ARKeiS66 
•AOO  OAH.SYS'POROPT 
•NOO  OAH  PIC0I3/ 

•PON. 8 OAH.PICOI3/ 

•AOO  OAN.SYS-POROPr 
•NOO  OAN  PICTA8-NAP/ 

•NOO  OAN  Picext/ 

• PON.S  OAN.PtCCXt  / 

•AOO  OAH.SrS-POROPT 
•NOO  OAN  PICPA3/ 

•PON.S  OAN.PICPA3/ 

•AOO  OAN. SYS-POROPT 
•NOO  OAN  PICPAC/ 

•POR.S  OAN. PICPAC/ 

•AOO  OAN. SYS-POROPT 
•NOO  OAN  PICROT/ 

•POR.S  OAN. PICROT/ 

•AOO  OAN. SYS-POROPT 
•NOO  OAN  CONTROL -NAP/ 

•NOO  OAN  CONOOO/ 

•POR.S  OAN. CONOOO/ 

•AOO  OAN. SYS-POROPT 
•NOO  OAN  OPNOPN/ 

•POR.S  0AN.0PN08N/ 

•AOO  OAN. SYS-POROPT 
•NOO  OAN  PROOOO/ 

•POR.S  OAN. PROOOO/ 

•AOO  OAN. SYS-POROPT 
•NOO  OAN  PROLIS/ 

•POR.S  OAN.PROL IS/ 

•AOO  OAN. SYS-POROPT 
•MOO  OAN  PPOLI3/ 

•POR.S  OAN.PROL I 3/ 

•AOO  OAN. SYS-POROPT 
•NOO  OAN  lOCPRO/ 

•POR.S  OAN. lOCPRO/ 

•AOO  OAH. SYS-POROPT 
•NOO  OAN  PRCOOO/ 

•POR.S  OAH. PRCOOO/ 
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•AOO  OAN.tYt*rOIIOPr 
AMOO  OAN  CltNOO/ 
arON.t  OAN. CL SHOO/ 
•AOO  OAN.tYt'fONONY 
•NOO  OAN  ONCNS/ 
•rON.t  OAN.ONCNI/ 
•AOO  OAN.tYS-rONOPY 
•NOO  OAN  ONNiON/ 
•rON.S  OAH.ONNION/ 
•AOO  OAN.tYt>rONONY 
•NOO  OAN  0N30SK/ 
•rON.t  0AN.0P30SK/ 
•AOO  OAN.OYs-roNOPr 
•NOO  OAN  NXOONN/ 
•rON.S  OAN.PxaOHN/ 
•AOO  OAN.SYS'PONOPT 
•NOO  OAH  N030IP/ 
•PON. I 0AN.N030IP/ 
•AOO  OAN.SVS'PONOPr 
•NOO  OAH  KHOCNA/ 
•rOH.t  OAN. KHOCNA/ 
•AOO  OAH.SYt-rONOPr 
•HOO  OAH  OerCHA/ 
•roN.s  OAN.oercHA/ 
•AOO  OAH.SYS-POROPr 
•PACK  OAN. 

•NOO  OAN  C/.LMIN/ 
•rON.t  OAN.CALHtN/ 
•AOO  OAH.SrS'POROPT 
•NOO  OAN  CLOSC3/ 
•POR.S  OAN.CLOSC3/ 
•AOO  OAN.SYS'POROPY 
•NOO  OAH  CL 30 IP/ 
•POR.S  OAN. CL 30 IP/ 
•AOO  OAN.SVS-POROPr 
•NOO  OAH  CROPOM/ 
•POR.S  OAH.CROPOH/ 
•AOO  O4N.8VS-POR0PT 
•HOO  OAN  08SPR/ 
•POR.S  OAN.OS8PR/ 
lAOO  OAN.8rS-POROPT 
•HOO  OAN  OCNriC/ 
•POR.S  OAH.OCNriC/ 
•AOO  OAN. SYS-POROPr 
•NOO  OAN  0CT08R/ 
•POR.S  OAH.oerosR/ 
•AOO  OAN. SrS'POROPr 
•NOO  OAN  I0LU3/ 
•POR.S  OAH.IOLU3/ 
•AOO  OAN.SrS'POROPT 
•NOO  OAN  rSRTHS/ 
•POR.S  OAH.rsRYNS/ 
•AOO  OAN.SVS'POROPY 
•NOO  OAN  ISRT8A/ 
•POR.S  OAH.ISRYSA/ 
•AOO  OAH.SrS'POROPr 
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•NOO  OAN  ISOTNA/ 
AfOM.t  OAH.ItOrNA/ 
•Aoo  OAN.trt-roAo^r 

•NOO  OAN  tONTNO/ 

•roM.o  oan.isntho/ 

•AOO  OAN.SYfrONONT 
•NOO  OAN  lONrsO# 

•roA.f  OAH.isNrto/ 

•AOO  OAN.SYS>rONONr 
•NOO  OAN  NATNHr/ 
•roN.t  oan.hatmt# 
•AOO  OAN.SY$«rORONr 
•NOO  OAN  NVCONT/ 
•AtH.rt  OAN. NVCONT/ 
•NOO  OAN  NVtATO/ 
•ASN.rS  OAN.NVlATQ/ 
•NOO  OAN  ONCNNN/ 
•rOR.t  OAN.ONCNPN/ 
•AOO  OAN.SYt>rOROPr 
•NOO  OAN  ONSTAN/ 

•roN.t  dan.opxtap/ 

•AOO  OAN.tYS*rOROPT 
•NOO  OAN  OSANCL/ 
•rON.S  0AN.03ANCL/ 
•AOO  OAN.STS'PONOPT 
•NOO  OAN  OIANOT/ 
•rOR.S  0AN.03AN0T/ 
•AOO  OAN.frS-PONOPT 
•NOO  OAN  03N0N.' 
•POR.t  0AN.O3HDN/ 
•AOO  OAH.srs*roftOPT 
•PACK  OAN. 

•NOO  OAN  03SZAN/ 
•rON.O  OAN.OSfZAN/ 
•AOO  OAN.Sr8*rONOPT 
•MOO  OAN  03SZAH/ 
•rON.f  0AN.03S3AN/ 
•AOO  OAN. sr$>roNOPT 
•MOO  OAN  03SZPN/ 
•PON.S  0AN.038ZPN/ 
•AOO  OAN.SYS'PONOPT 
•MOO  OAN  03SZPA/ 
•PON.S  DAN.OSSZPN' 
•AOO  OAN. SrS'POROPT 
•NOO  OAN  03T0N/ 
•rOR.8  Oan.OXTON^ 
•AOO  OAN.svt-roROPt 
•MOO  OAN  CALCMA/ 
•rOR.I  OAN. CALCMA/ 
•AOO  OAN.SV«>rOROPT 
•NOO  OAN  KNORCN/ 
•roN.s  oan.knoncn/ 
•AOO  OAN.ir(<roAOPT 
•NOO  OAN  KNOW IN/ 
•rON.8  OAN.KNOUIN/ 
•AOO  OAN.$VS>POROPT 


DAN  MCKAOC  AA^CNOIK  K 

tvtrcH  iMLCnCNrAriON 


•MOO  DAN  KMOOCA/ 

•roo.o  DAM. KMOOCA/ 

•AOO  OAN.OYO-rONOOr 
•MOO  OAN  KNOONA/ 

•roo.o  OAN. KNOONA/ 

•AOO  OAN.OYO-roNorr 
•NOO  OAN  KHOrOL/ 

•roo.o  OAH.KNOrOl/ 

•AOO  OAN.OYO>roNorr 
•NOO  PAN  eOlNrO/OAN 
•AON.ro  OAN.eoiNro/OAN 
•NOO  OAN  USUAO/ 

•roo.o  OAN.UOHAO/ 

•AOO  OAN.OYO-rooorr 
•NOO  OAN  corotoc/ 
•roo.o  OAN.corsioc/ 

•AOO  OAN. OYO>r 0000 r 
•NOO  OAN  OICTAO/ 

•roo.o  OAN.ricTAO/ 

•AOO  OAN.OVO*rONOOT 
•NOO  OAN  ricooo/ 

•roo.o  OAN.ricooo/ 

•AOO  OAN. ovo*roNorr 
•NOO  OAN  OtCrAO/ 

•roo.o  OAN.ricrAs/ 

•AOO  OAH.ovs-roNorr 
•NOO  OAN  riCLIO/ 

•roo.o  0AN.MCLI3/ 

•AOO  OAN.ort*rooorr 
•NOO  OAN  NICXQT/ 

•roN.»  OAN.ricxor/ 

•AOO  OAN.ovt>roNorr 
•NOO  OAN  locric/ 

•roo.t  oAH.iocNic/ 

•AOO  0AN.0YS>r0O0PY 

•NOO  OAN  oporic/ 

•roo.s  OAN.oPOPtc/ 

•AOO  OAN.SrS'POOOPT 
•PACK  OAN. 

•NOO  OAN  CONTAOL/ 

•roo.t  oan.contnol/ 

•AOO  OAN.STt-roNOPr 
•NOO  OAN  CONXQT/ 

•roo.t  OAH.coNxor/ 

•AOO  OAN.trt-rOAOPT 
•NOO  OAN  NtKPIX/ 

•roo.t  OAN. NtKPIX/ 

•AOO  OAN. tVt-rONOPT 
•NOO  OAN  CLAXOr/ 

•roo  t OAN.CLAXQT/ 

•AOO  OAN.tVfrONOPr 
•NOO  OAN  porocr/ 

•roo.t  OAN.porocT/ 

•AOO  OAN.CYt-roOOPY 
•NOO  OAN  CLAtfirY/ 
•roo.t  OAH.ciAtsirY/ 


OYS-CONPILC 
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tro-eoNotLC 

999 


•AOO  OAN.tYO-rOMOO? 
•NOO  OAN  MOOIt/ 
•rOM.I  OAN.MMOOIt/ 
lAOO  OAN.fYS-roMo^r 
•NOO  OAN  MOOIt/ 
•rON.O  OAN.NNOOIS' 
•AOO  OAN.tYt-roNoor 
•NOO  OAN  OROXOr/ 

•roN.f  OAH.oRoxor/ 

•AOO  OAN.tYO>rOAOOT 
•NOO  OAN  ONNRNO/ 
•roo.t  OAN.ONNANO/ 
•AOO  OAN.tYf-rONORT 
•NOO  OAN  MYCLAM/ 
•rON.O  OAN.MTCLASt/ 
•AOO  OAN.SYO*rONONY 
•NOO  OAN  ANCXOr/ 
•rON.O  OAN.NNCXQT/ 
•AOO  OAN.tYt'rONOOr 
•MOO  OAN  NCOMC/ 
•rON.t  OAN.RCOONC/ 
•AOO  OAH.|VO*rORONr 
•HOO  OAN  ifLCOOO/ 

•roN.o  DAN.neooo/ 

•AOO  OAN.tYO>rONONT 

•HOO  OAN  otrooo/ 
•roN.t  OAN.otrooo/ 
•AOO  OAN.tVt*rONONr 
•HOO  OAN  01  TOUR' 
•rON.t  OAN. 01  TOUR/ 
•AOO  OAN.fY«>rORORr 
•HOO  OAN  OORCnT/ 

•roR.t  OAN.ooRCNr/ 

•AOO  OAH.fYt-rORORT 
•HOO  OAN  DORCCR/ 
•rOR.S  OAN.OORCCR^ 
•AOO  OAN.«Yt-rORORT 
•HOO  DAN  OOSORT/ 
•roR.s  OAN.ooooxr^ 

•AOO  OAN.Sv«*rORORT 
•HOO  DAN  OHRHIN/ 
•rOR.f  OAN.ONRWIN/ 
•AOO  DAH.tYS>rORORT 
•HOO  OAN  OOtRRl/ 
•rOR.f  OAH.OSORRS/ 
•AOO  OAN.»YS*rORORr 
•RACK  OAN. 

•HOO  OAH  CtSRTO/ 

•roR.o  OAN.ritRTo/ 

•AOO  OAN.<VS>rORORr 
•HOO  OAH  CNVORI/ 
•rOR.t  OAN. CNVORI/ 
•AOO  OAN.SVt>rOHORT 
•HOO  OAH  CNVWIN/ 

•roR.s  oan.cnvuin/ 

•AOO  OAH.SYS'fORORT 
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tVt*«OflPtlC 

•tl 


AMM  OAN  fACMT/ 

•roll.t  OAN.rACAttr/ 

•AM  OAM.SYt«rOAOrr 
•NM  OAN  fLlNfO/ 

•roN.o  OAN.ruNro/ 

•AM  OAN.STt«rORONr 
•NM  OAN  OCCRf/ 
•roN.t  OAN.oecNr/ 
•AM  OAN.tVt-rONONr 
•MO  OAN  OCHON/ 
•fON.t  OAN.OCNON/ 
•AOO  OAN.SYt*rOAORT 
•MO  OAN  OCrOAO/ 
•roN.t  OAN.ocroAO/ 

•AOO  OAN.<YO*rONOOr 
•MO  OAN  NOUNI  r/ 
•rON.S  OAN. NOUNI T/ 
•AOO  OAH.tY«>roNoor 
•MO  OAN  lOCNTf/ 
•roN.o  oAN.iocort/ 
•AM  OAN.SVO>rONONr 
•NM  OAN  JOiNtN/ 
•rON.O  OAN.UOiNfN/ 
•AOO  OAH.frt>rORONT 
•NOO  OAN  ONSOIN/ 
•rOO.«  OAN.ONSOIN/ 
•AOO  OAN.tYS'rOAOOr 
•MO  OAN  Movri/ 
•rON,t  OAN.ANOVri/ 
•AOO  OAN.tY«>rONONT 
•NOO  OAN  MTCNN/ 
•rON.O  OAN.MrCNN/ 
•AOO  OAN.fY«*rONONr 
•MO  OAN  NXNAN/ 
•fOO«S  OAN.AX*»AN/ 
•AOO  OAN.tYt*rONONr 
•NOO  OAN  AX4AN/ 

•roN.t  oan.akhan/ 
•AOO  OAH.f rf.roROor 
{NOO  OAN  AXHAN/ 
•rON.t  OAN.AXYNN/ 
•AOO  OAN.svo-roAONr 
•NOO  OAN  NX*»NN/ 
•rOA.O  OAN.NKONN' 
•AOO  OAN.SVfi>roAOAr 
•NOO  OAN  fNAAAH/ 
•roo.t  OAN.OMAfAN/ 
•AOO  OAN.Srt-rONONT 
•NOO  OAN  rtUANS/ 

•roN.o  OAN.rsuANj/ 

•AOO  OAN.fYf-roNOor 
•NOO  OAN  NOrNNO/ 

•rON.f  DAN.MrNAO^ 

•AOO  0AN.iYf>r0N0Or 
•NACX  CAN. 

•MO  OAN  rNTlNC/ 
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SVS-COHPILE 

0£N 


•POR.S  OAN.PRriNC/ 
•ADO  0AH.8YS>r0ft0Pr 
•NOO  DAN  OEO/ 

APOR.S  DAN. OEO/ 

•ADO  OAN.SYS-FOROPr 
•NOO  OAN  080NS/ 

•POR.S  0AH.080NS/ 

•AOO  OAN.SYS-POROPT 
•NOO  OAH  SPLIT/ 

•POR.S  OAN.SPLir/ 

•AOO  OAH.SYS-POROPT 
•MOO  OAH  CLAOET/ 
•POR.S  OAH. CLAOET/ 
•AOO  OAH.SYS'POROPr 
•NOO  OAH  HAPRNT/ 
•POR.S  OAH. HAPRNT/ 
•AOO  OAH.SYS'POROPT 
•NOO  OAH  I SPILE/ 
•POR.S  OAH. lOPILE/ 
•AOO  OAH.SYS'POROPT 
•NOO  OAH  LOCATE/ 

•POR.S  OAH. LOCATE/ 
•AOO  OAH.SYS-POROPT 
•NOO  OAH  OP3NOP/ 

•POR.S  OAH.OP3HOP/ 

•AOO  OAH.SYS-POROPT 
•NOO  OAH  CONOIA/ 

•POR.S  OAH. CONOIA/ 

•AOO  OAH.SYS-POROPT 
•NOO  OAH  PRTCLASS-HAP/ 
•NOO  OAH  STATUS/ 

•POR.S  OAH. status/ 

•AOO  OAN.SYS-POROPT 
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0010 INAL  COOC 

Aoo  p OPTION  (QuAoreo-MOoo  Nooei 
CHANoe  PorocNS  to  prtoct 


THIS  CLCNCNT  NUST  NOT  BC  AAOO-CO  PROM  THE  OAN  PROORAN  PILE. 
SINCE  IT  IPACK-S  that  PILE.  INSTEAD  IT  MUST  BE  COPIED  TO 
TPPS.  AND  AADO-CO  PRON  THERE. 


•NOO.N  SYS'COLLECT  OUNSTOCAN  POO  ANAP  PROCESSOR 

•NSO.N  - 

•NOO.N 
•NOO.N 

•NOO.N  HIOTORY 

•NOO.N  

•NOO.N 

•NOO.N  E H SCHLOSSER  LEC  03/03/73 

•NSO.N  E H SCHLOSSER  LEC  07/31/79 

•NOO.N  E H SCHLOSSER  LENSCO  OS/ 16/80 

•NSO.N 
•NSO.N 

•NSO.N  EXCEPTIONS 

•NSO.N  

•NSO.N 
•NSO.N  I 
•NSO.N 

• NSO.N 
•NSO.N 

• NSO.N 

•HOO  OAN  PACKAOE  ••  CONPILE 
•POR.S  OAN.SYS'BLOCK 
•AOO  OAN.SYS-POROPT 

•PACK. SR  OAN.  . CAUTIONi  AOO  ELENENT  NUST  NOT  P\CK  ITS  OWN  PILEI 
•PREP  OAN. 

• NAP. PL 2 OAN.ERSPRTCN-NAP.OAN.ERSPRTCN 
•AOO  OAN.SYS-NAPOPT 

•NAP.PL2  OAN. lOPILE-NAP.OAN. lOPILE  . NEVER 
•AOO  OAN.SYS-NAPOPT 
•NAP. PL 2 OAN. LOCATE -NAP. OAN. LOCATE 
•AOO  OAN.SYS-NAPOPT 
•NAP.PL2  OAN.USHAP-NAP.OAN.USWAP 
•AOO  OAN.SYS-NAPOPT 

• NAP. PL 2 OAN. ERTS IOC -NAP /VIRTUAL . OAN. E RTS  IOC 
•AOO  OAN.SYS-NAPOPT 

• HAP. PL 2 OAN.PICTAB-NAP.OAN. PICTAB 
•AOO  OAN.SYS-NAPOPT 

• NAP. PL  2 OAN. CONTROL -NAP . DAN . C ON T ROL 
•AOO  OAN.SYS-NAPOPT 

• NAP. PL  2 OAN. CL  ASS  I PY -NAP/ V I RTUAL .OAN.CLASSIPY 
•AOO  OAN.SYS-NAPOPT 


SYS-BLOCK  ANO  COLLECT  NAIN  PROORAHS 


NEVER  VIRTUAL  I I 


VIRTUAL  I I 


. NEVER  VIRTUAL  t I 
NEVER  VIRTUAL  1 ! 


• NAP. PL  2 OAN. PR TOE T -NAP/ VIRTUAL . OAN. PR  TOE  T 
•AOO  OAN.SYS-NAPOPT 

INAP.PL2  OAN. PR TCL ASS -NAP/ VI RTUAL . OAN. PRTCL ASS 
•AOO  OAN.SYS-NAPOPT 

• NAP. PL 2 OAN. PL  TCL ASS-NAP/ VI RTUAL . OAN . PL  TCL ASS 
•AOO  OAN.SYS-NAPOPT 

• HAP. PL 2 OAN. STATuS-NAP.OAN. STATUS 
•AOO  OAN.SYS-NAPOPT 

•NAP.PL2  OAN. 01 TCOP-NAP/ VIRTUAL .OAN. 01 TCOP 
•AOO  OAN.SYS-NAPOPT 
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001 


tOCLCrr.t  OAN.CRPRCN/OAn 
OOCLCTC.8  OAH.OLSTSQ/ 
•oCLcre.s  oah.oiacrp/ 
•ocLcre.s  oah.oappoc/ 

•OCLCTC.S  OAN.OAPLUP/ 

•oCLcre.s  oah.oaplup/ 
•oeiCTC.s  OAN.rocus/ 
•ocLcre.s  oan.nulsub/ 

•OCLCTC.S  OAH.ONPTIC/ 
•OCLCTC.S  0AN.PICPR3/ 
•OCLCTC.S  OAN.CRCRR/OAn 
•OCLCTC.S  OAH.CRCXtT/OAH 
•OCLCTC.S  OAN.PtCOtS/ 
•OCLCTC.S  0AH.PICPA6/ 
•OCLCTC.S  OAN. 10H3S0/ 
•OCLCTC.S  OAH.PtCLtS/ 
•OCLCTC.S  0AH.PICPA9/ 
•OCLCTC.S  DAN.PICPR9/ 
•OCLCTC.S  0AH.PICT03/ 
•OCLCTC.S  0AN.PICT09/ 
•OCLCTC.S  OAH.CLAOCS/ 
•OCLCTC.S  0AN.CLA0C9/ 
•OCLCTC.S  OAH.OPRCLA/ 

• OCLCTC.S  OAM.SLIiCLA/ 
•OCLCTC.S  OAN.COPYPX/ 
•OCLCTC.S  OAN.PICiaS/ 
•OCLCTC.S  0AN.PIC3>»9/ 
•OCLCTC.S  OAM.PtCSTe/ 
•OCLCTC.S  0AM.CLAI29/ 

• OCLCTC.S  0AN.CLA3*»S/ 
•OCLCTC.S  OAH.H2TOHI/ 
•OCLCTC.S  0An.HlLL8L/ 
•OCLCTC.S  OAH. lOCRT/ 
•OCLCTC.S  OAH.INVORl/ 
•OCLCTC.S  OAH.INVUIN/ 
•OCLCTC.S  OAN.ISRTBA/ 
•OCLCTC.S  OAH. ISRTaO/ 
•OCLCTC.S  OAH.KSPRCO/ 
•OCLCTC.S  OAH.LSPRCO/ 
•OCLCTC.S  OAM.nSPRCO/ 
•OCLCTC.S  OAM.NCOPIC/ 
•OCLCTC.S  OAH.PRHIPX/ 
•OCLCTC.S  OAH.PRHaPX/ 
•OCLCTC.S  OAH. QUAD/ 
•OCLCTC.S  OAH.RtTAOO/ 
•OCLCTC.S  0AH.RL3ISX/ 
•OCLCTC.S  DAH.RLaSX/ 

• OCLCTC.S  OAH.RL<*SX/ 
•OCLCTC.S  OAH.ROTCHX/ 
•OCLCTC.S  OAH.ROTCOL/ 
•OCLCTC.S  OAH.ROTROM/ 
•OCLCTC.S  OAH-SHCTBC/ 
•OCLCTC.S  OAH.SSPR/ 
•OCLCTC.S  OAH.SUBHI/ 
•OCLCTC.S  OAH.VALKCV/ 
•OCLCTC.S  OAH.VALLBL/ 
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•OCLCrC.S  OAN.MRVCRT/ 
•OCLCTC.S  OAM.CAPRNT/OAH 
•ocLcre.s  oah.carcao/oah 
•OCLCTC.S  OAH.CROAre/OAR 

•ocLere.s  OAH.rRrACL^OAH 

•OCLCTC.S  OAH.CRriTM/OAN 
•OCLCTC.S  OAN.CRPCHA^OAH 
•OCLCTC.S  OAH.CRPCT/OAN 
•OCLCTC.S  OAN.CRPRCA/OAH 
•OCLCTC.S  OAH.CRPRNT/OAN 
•OCLCTC.S  OAH.CRPRTA/OAH 
• OCLCTC.S  OAH.CRRCAO/OAI1 
•OCLCTC.S  OAN.CRRCOA/OAH 
•OCLCTC.S  OAN.CRSUPS/OAH 
•OCLCTC.S  OAH.CRTWAT/OAn 
•OCLCTC.S  OAH.PtCPRO/ 
•OCLCTC.S  OAH.PtCrOT/ 
•OCLCTC.S  OAN.KNOOAS/ 
•OCLCTC.S  OAH.KNOOPR/ 
•OCLCTC.S  OAN.KHRtlN/ 
•OCLCTC.S  OAN.CRPrS/OAd 
•OCLCTC.S  OAH.OITVCR/ 
•OCLCTC.S  OAH.RCVCRT/ 
•OCLCTC.S  OAH.LOCOSP/ 
•OCLCTC.S  OAH.KROOAO/ 
•OCLCTC.S  OAH.KNOOLO/ 
•OCLCTC.S  OAH.LCNPAO/ 
•OCLCTC.S  OAM.LOUCST/ 
•OCLCTC.S  OAR.SRCAOS/ 
•OCLCTC.S  OAH. SPANS/ 
•OCLCTC.S  OAN.OCTOKH/ 
•OCLCTC.S  OAN.NCXTOK/ 
•OCLCTC.S  OAN.OCTS/ 
•OCLCTC.S  OAM.CRIO/OAN 
•OCLCTC.S  OAH.CRI OU/OAM 
•OCLCTC.S  OAN.CRMAI r/OAH 
•OCLCTC.S  OAN. TRUAL/ 
•OCLCTC.S  OAN.TRUCSr/ 
•OCLCTC.S  OAN.KnOOSR/ 
•OCLCTC.S  OAK.QUARTn/ 
•OCLCTC.S  OAM.QUARTu/ 
•OCLCTC.S  OAN.VARSOU/ 
•OCLCTC.S  OAM.VARSQN/ 
•OCLCTC.S  OAH. SYSAOO/OAM 
•OCLCTC.S  OAN.KMXXCS/ 
•OCLCTC.S  OAN.CALSCA/ 
•OCLCTC.S  OAH.KnOCOu/ 
•OCLCTC.S  OAN.OITxQT/ 
•OCLCTC.S  OAH.SUBMIN/ 
•OCLCTC.S  OAN.PRCCXt / 
•OCLCTC.S  OAN.PLTCLASS/ 
•OCLCTC.S  OAN.OITCOP/ 
•OCLCTC.S  OAN.OITCXI / 
•OCLCTC.S  OAN.CONCXI/ 

• OCLCTC.S  ' fl.PLCXQT/ 
•OCLCTC.S  OAN.KNOPLO/ 
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•OCLCTC.S  OAH.LCSTCQ/ 
•OCLCrC.S  OAM.PLCHAP/ 

•ocLcre.s  oah.pstop/ 

•OCLCTC.S  OAH.CLAPAO/ 
•OCLCTC.S  OAn.PICPA<»/ 
•OCLCTC.S  OAd.PICPAS^ 
•OCLCTC.S  OAH.PICPAR/ 
•OCLCTC.S  OAN.PICLIH/ 
•OCLCTC.S  OAH.PtCOIS/ 
•OCLCTC.S  0AH.PICLI9/ 
•OCLCTC.S  0AH.L002/ 
•OCLCTC.S  OAH.NTABS/OAn 
•OCLCTC.S  OAN.CBINIT/ 
•OCLCTC.S  OAM.MARNS/ 
•OCLCTC.S  0AM. lOUP/ 
•OCLCTC.S  OAH.LCNCST/ 
•OCLCTC.S  OAM.PSTART/ 
•OCLCTC.S  OAN.RCAOS/ 
•OCLCTC.S  OAM.PtCOU/ 
•OCLCTC.S  OAN.HRITCH/ 
•OCLCTC.S  OAH.VCRAHP/ 
•OCLCTC.S  0AH.VCRA40/ 
•OCLCTC.S  OAM.VCRO>»U/ 
•OCLCTC.S  OAM.ARORCT/ 
•OCLCTC.S  0AM.CL0SC4/ 
•OCLCTC.S  OAM.KMOCLC/ 
•OCLCTC.S  OAN.KNOALl/ 
•OCLCTC.S  OAN.KMOOCN/ 
•OCLCTC.S  OAH.KNOhCA/ 
•OCLCTC.S  OAH.KMONCU/ 
•OCLCTC.S  OAM.KMOCXP^ 
•OCLCTC.S  OAM.KMOriH/ 
•OCLCTC.S  OAM.KHOSYM/ 
•OCLCTC.S  OAM.KNOMCR/ 
•OCLCTC.S  OAM.KMOZON/ 
•OCLCTC.S  OAN.KMOON/ 
•OCLCTC.S  OAM.KMOorr/ 
•OCLCTC.S  OAM.KMONAM/ 
•OCLCTC.S  OAM.KHOORI/ 

• OCLCTC.S  0A'I.CST4IN/ 
•OCLCTC.S  OAM.CBHIN/ 
•OCLCTC.S  OAM.KMOCOP/ 
•OCLCTC.S  OAM.NOLOO/ 
•OCLCTC.S  OAM.KMOPOt/ 
•OCLCTC.S  OAM.KNOPRI/ 
•OCLCTC.S  OAM.KMOXXX/ 
•OCLCTC.S  OAH.KMXXCO/ 
•OCLCTC.S  0AH.XRC077/ 
•OCLCTC.S  0AM.ARC077/ 
•OCLCTC.S  OAM.KMOLIN/ 
•OCLCTC.S  OAH.KMONCX/ 
•OCLCTC.S  OAM.KMOPOt/ 
•OCLCTC.S  OAM.KMOCOL/ 
•OCLCTC.S  OAM.KOLR<*l/ 

• OCLCTC.S  OAM.  t<*KOLR/ 
•OCLCTC.S  OAM.OCONST/ 
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SVSoOCLCTC 

OOH 


•ocLcrr.s  oah.khooco/ 
•ociere.s  OAN.sTRCoe/ 

•OCLCTC.S  OAH.KHOATT/ 

•ociere.s  oan.knopao/ 
•oeiere.s  oah.khorao/ 
•oeiere.s  oan.knotic/ 
•ociere.s  oan.crtsmp/oah 
•ociere.s  oah.trccvr/ 

•ociere.s  oan.puthcx/ 

•oeiere.s  oah.caispa/ 

•oeiere.s  oah.rosssq/ 

•oeiere.s  oAN.tRSPRrcN/ 
•oeiere.s  oAn.eRTsioc/viRTuAi 
•oeiere.s  OAn.PicTAe/viRruAi 
•oeiere.s  oam.controi/virtual 
•oeiere.s  oan.classipy/virtual 
•oeiere.s  OAn.PRrciASS/viRruAL 
•oeiere.s  OAn.PirciASS/viRTUAL 
•oeiere.s  oan.status/virtual 
•oeiere.s  oam.oitcop/virtual 
•oeiere.s  OAN.utNexr/ 

•oeiere.s  oAH.oerNui/ 

•oeiere.s  OAN.ciAexi/ 

•oeiere.s  oar.rosnul/ 

•oeiere.s  oah.oprprc/ 

•oeiere.s  oan.calsyn/ 

•oeiere.s  oah.picois/ 

•oeiere.s  oan.clso8n/ 

•oeiere.s  oan.picus/ 

•oeiere.s  oan.provsy/ 

•oeiere.s  OAn.picpt>*^ 

•oeiere.s  oar-picpis/ 

•oeiere.s  OAn.cs'^csr/ 

•oeiere.s  OAn.CLAoe<*/ 

•oeiere.s  oan.sysoct/oam 
•oeiere.s  oAn.eRCsr/OAn 
•oeiere.s  OAN.Bsr>*B8/tto8 
•oeiere.s  oam.bsthbb/m  to 
•oeiere.s  oam.b8<«bst/ 1 1 lo 
•oeiere.s  oan.cbhri/ 

•oeiere.s  oa^i.cirquo/ 

•oeiere.s  oam.cst>*ri/ 

•oeiere.s  oah.c8S**cs/ 

•oeiere.s  0AM.C8s<*tN/ 

•oeiere.s  0An.C8s<*Ri/ 

•oeiere.s  OAn.oerBYT/ 

•oeiere.s  oAH.oercHR/ 

•oeiere.s  OAn.oeroBY/ 

•oeiere.s  OAn.rRAce/OAn 
•oeiere.s  OAH.oertNr/ 

•oeiere.s  OAn.oerNYB/ 

•oeiere.s  OAn.oeroBY/ 

•oeiere.s  oah. ice' 

•oeiere.s  oar. ichr^ 

•oeiere.s  OAH.UKONe/ 

•oeiere.s  OAR.mKrwo/ 
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•OCLCrC.S  OAN.KONC«»l/ 

•ocLcre.t  oah.ktmohi/ 
•ocLcre.s  OAH.UNrcQ/ 
•ocLcre.s  oan.lintnc/ 
•OCLCrC.t  OAN.nOV08T/ASn 
•oCLcre.s  oah.hov8vt/ 
•ocLcrc.s  OAH.novCHA/ 
•oCLcre.s  oah.hovcst/ash 
•ocLcre.s  OAn.novoev/ 
•ocLcre.s  oah.novist/ 

•OCLCTr.S  OAH.NBHNI/ 

aocLcre.s  oah.nchni/ 
•OeLCTC.S  OAN.NI>»NB/ 
•OCLCTC.S  OAH.NIHNC/ 

•OELere.s  oah.putbyt/ 

•OCLCTE.S  OAN.PUTCHR/ 
•delete. S OAN.PurOBY/ 
•OELETC.S  OAH.PUTINT/ 
•DELETE. 8 DAH.PUTNYB/ 
•DELETE. S OAH.PUTQBY/ 
•DELETE. 8 DAN.SETQmD/ 
•delete. 8 DAH.EBHAS/ 

• DELETE. S 0AN.AS<»CST/ 
•DELETE. 8 0AN.AS>>e8/ 
•DELETE. S 0AN.CST4EB/ 
•DELETE. S OAN.OCOOE/ 
•DELETE. S CAN.OETHEX/ 
•DELETE. 5 OAN.LBYTtQ/ 
•DELETE. 8 DAH.LBYTNE/ 
•DELETE. S OAH.LCHREQ/ 
•DELETE. S OAN.LCHRNE/ 
•DELETE. S OAM.LICCEQ/ 
•DELETE. S OAN.LICENE/ 
•DELETE. S OAR. ATRaCE/OAN 
•DELETE. S OAM.BYTOHP/ 
•DELETE. S OAN.CORLT/ 

•delete. S OAM.OCORLT/ 
•DELETE. S DAn.KMOSIZ/ 
•OELETE.S  DAn.KROCEN/ 
•DELETE. S OAR.xnOSCE/ 
•OELETE.S  OAn.PRBNUR/ 
•OELETE.S  OAR.KMOSPA/ 
•OELETE.S  OAn.KMOPI/ 

• OELETE.S  OAM.LBOX>»l  / 
•OELETE.S  OAR.CLAOOO/ 

• OELETE.S  OAM.CST>«aS/ 
•OELETE.S  OAH. READER/ 
•OELETE.S  0AR.PR0IE8/ 
•OELETE.S  0AM.PR03HS/ 
•OELETE.S  0AR.PR00I9/ 
•OELETE.S  OAN.PROEXI / 
•OELETE.S  0AN.PR0LI9/ 
•OELETE.S  OAH.PRCHAP/ 
•OELETE.S  OAN.PRTOET/VIRTUAL 
•OELETE.S  OAH.CONAOJ/ 
•OELETE.S  0AH.CLA0E3/ 
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•ocLcre.s  oah. heads/ 
•ocLcre.s  oah.rosbil/ 
•ocLere.o  oan.rstrec/ 
aoELere.s  oan.closph/ 
•OELEre.S  OAH.PRSYHL/ 
•OELcre.s  oah.mithoo/ 
•OCLCTC.S  OAH.HAPHOO/ 

aoELerE.8  oar-knopee/ 

•DELETE. 8 DAH.KMDPOK/ 

•DELETE. 8 0At1.EB<*C8T/ 

•DELETE. 8 OAN.PICPIC/ 

•delete. 8 OAN.PROPIC/ 

•DELETE. 8 0AH.0I8HI8/ 

•DELETE. 8 OAN.CALCOL/ 

•DELETE. 8 OAN.PtCPtS/ 

•DELETE. 8 0AH.PR0Pt9/ 

•DELETE. 8 OAN.KROTAB/ 

•DELETE. 8 OAN.KMOir/ 

•DELETE. 8 0AR.R03D8K/ 

•DELETE. 8 0AR.8ETn00/ 

•DELETE. 8 OAM.PITROL/ 

•DELETE. 8 OAN.L0REO8/ 

•DELETE. 8 0AR.PICPI3/ 

•DELETE. 8 OAM.KNOINT/ 

•DELETE. 8 OAN.KMOCRO/ 

•DELETE. 8 0AN.PR0P13/ 

•DELETE. 8 OAR. SYPOET/OAn 
•DELETE. 8 0AR.A40/ 

•delete. 8 OAR.OHA/ 

•DELETE. 8 OAR.CVP/ 

•DELETE. 8 OAR . OHU/CL ARKE t 866 
•DELETE. 8 0AH.P4A/ 

•DELETE. 8 OAR.A**P/ 

•DELETE. 8 OAR.PHQ/ 

•DELETE. 8 OAR. OUHQ/CL ARKE t 666 

• delete. 8 0AH.U>»0/CLARKEt866 
•DELETE. 8 0AR.PIC0I3/ 

•delete. 8 OAM.PICEXt/ 

•DELETE. 8 0AH.PICFA3/ 

•delete. 8 OAR.PICPAC/ 

•DELETE. 8 OAR.PtCROT/ 

•DELETE. 8 OAR.CONOOO/ 

•DELETE. 8 OAR.OPNOEN/ 

•DELETE. 8 OAH.PRDOOO/ 

•DELETE. 8 OAR.PROL 18/ 

• DELETE. 8 OAR.PROL I 3/ 

•DELETE. 8 OAR.tOCPRO/ 

•DELETE. 8 OAH.PRCOOQ/ 

•DELETE. 8 OAR.CL8HOO/ 
•OCLETE.S  0AH.0PEN3/ 

•DCLETE.8  OAR.OPNI6N/ 

•delete. 8 0AR.OP3OSK/ 

•DELETE. 8 0AH.PX60RP/ 

•DELETE. 8 0AR.R03BIP/ 
•DCLETE.8  OAR.KROCHA/ 

•OCLETE.S  OAR.OCTCHA/ 


K-<*3 


OAN  PACKAOC  APPCNOIX  K 
svtrcn  IHPLCHCNTAriON 


SYt-OCLCTC 

007 


•ocLcre.s  oan.calmin/ 
•ocLCre.o  oah.closcs/ 
•OCLCTC.t  0AH.CL3BIP/ 
•OCLCTC.S  OAN.CROPOU/ 
•OCLCrC.S  0AH.0S8PR/ 
aOCLCTC.S  OAN.OCNTIC/ 
•OCLCTC.S  OAH.OCTOSR/ 
•OCLCTC.S  OAH. I0LU3/ 
•OCLCTC.S  OAH.TSRTHS/ 
•OCLCTC.S  OAH. ISRTSA/ 
•OCLCTC.S  OAH. ISRTHA/ 
•OCLCTC.S  OAH.ISRThO/ 
•OCLCTC.S  OAH.tSRTSO/ 
•OCLCTC.S  OAH.HATPRT/ 
•OCLCTC.S  OAH.HVCONT/ 
•OCLCTC.S  oah.nviato/ 
•OCLCTC.S  OAH.OPCNPR/ 
•OCLCTC.S  uAH.0P3TAP< 
•OCLCTC.S  OAN.03ANCL/ 
•OCLCTC.S  OAH.03AN0T/ 
•OCLCTC.S  0AH.03H0R/ 
•OCLCTC.S  0AH.03SZAR/ 
•OCLCTC.S  OAH.03SZAH/ 
•OCLCTC.S  0AH.03SZPH/ 
•OCLCTC.S  0AH.03SZPR/ 
•OCLCTC.S  0AN.03T0R/ 
•OCLCTC.S  OAH.CALCHA/ 
•OCLCTC.S  OAH.KNORCN/ 
•OCLCTC.S  OAH.KHOUtN/ 
•OCLCTC.S  OAH.KHOSCA/ 
•OCLCTC.S  OAH.KHOSHA/ 
•OCLCTC.S  OAH.KNOrOL/ 
•OCLCTC.S  OAH.CRINrO/OAH 
•OCLCTC.S  OAH.USMAP/ 
•OCLCTC.S  OAH.CRTSIOC/ 
•OCLCTC.S  OAH.PICrAS/ 
•OCLCTC.S  OAH.PICOOO/ 
•OCLCTC.S  OAN.PICFAS/ 
•OCLCTC.S  0AH.PICLI3/ 
•OCLCTC.S  OAH.PtCXQT/ 
•OCLCTC.S  OAH. lOCPIC' 
•OCLCTC.S  oah.oprpic/ 
•OCLCTC.S  OAH. CONTROL/ 
•OCLCTC.S  OAH.CONXQT/ 
•OCLCTC.S  OAH.nSKPIX/ 
•OCLCTC.S  OAH.CLAXQT/ 
•OCLCTC.S  OAH.PRTOCT/ 
•OCLCTC.S  OAN. CLASSIPY/ 
•OCLCTC.S  OAN.PROOtS/ 
•OCLCTC.S  OAH.PROOI3/ 
•OCLCTC.S  OAN.PROXQT/ 
•OCLCTC.S  OAN.OPRPRO/ 
•OCLCTC.S  OAH.PRTCLASS/ 
•OCLCTC.S  OAH.PRCXQT/ 
•OCLCTC.S  OAN.RCSPRC/ 
•OCLCTC.S  OAH.PLCOCO/ 
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AOCLcrc.t  OAN.oirooo/ 
•ocLcre.t  oAH.oirouA/ 
•ocLcrc.s  OAH.ooPCNr/ 

•OCLCrC.t  OAN.OORCCP/ 
•OCLCrC.S  0AH.008QA7/ 
•OCLCrC.S  OAN.ORPHIN/ 
Aocicrc.s  OAN.OSS^ftS/ 
•ocLcrr.s  OAN.eisRro/ 
•ocLcre.s  oan.cnvori/ 

•OCLCTC.S  OAN.CNVHIN/ 

aocierc.s  OAn.rACPnr/ 
aocLCTc.s  OAN.ruNrd/ 
aocLCTC.s  OAN.occnr/ 
aoCLcrc.s  oan.ochon/ 
aOCLCTC.S  oan.octaao/ 
aocLcrc.s  oah.hounit/ 
aocLcre.s  oArt.tocRTs/ 
aocLcrc.t  OAn.joiNeN/ 

aOCLCTC.S  OAN.OPSBIA^ 

aocLcrc.s  OAH.PAovri/ 
aocLcrc.8  oah.patchr/ 

80CLCrC.8  OAN.PXHAR/ 

aocLcrc.s  oan.pxhap/ 
aoCLcrc.8  oan.pxhpn/ 
aOCLCTC.8  OAN.PX>*PR/ 
aOCLCTC.S  OAN.SHASAN/ 
aOCLCTC.S  0AH.TSMAP3/ 

aotLcrc.s  OAn.PArfiRo/ 
aoeLCTt.8  oar.prtinc/ 
aocLcrc.s  oah.oco/ 
aocLCTc.s  OAN.oaoN8/ 
aocLcre.s  dan. split/ 
aocLcre.s  oar.claoct/ 
aOtLCTC.S  OAR.NAPRNT/ 
aOCLCTC.S  OAR. tOPILC/ 
aocLcrc.s  oar.locatc/ 
aocLcre.s  oar.opsrop/ 
aocLcre.s  oar.conoia/ 
aocLCTC.s  OAN. status/ 
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•NtO.N  tVt-OCNCON  RUNtrnCAN  TO  OCNCNATC  tYS*COH^ILC  CXCC  CONNANO  ttUNtYMCAN 

•nto.N  

■NtO.N 

•NfO.N 

ANtO.N  NltrONY 

•Nto.N  

•Nto.N 

•Nto.N  C N tCNLOttCR  LCC  Ot/IO/7t  ONIOINAL  COOC 

•Nto.N  C H tCNLOttCN  ICC  OT/SI/79  AOO  r ONYIQN  YO  AtN  (OTN-HONO  NOOC 

•Nto.N 

•Nto.N 

•Nto.N  exCCRTIONt 
•Nto.N  

• Nto.N 

•Nto.N  t.  THIt  CLCNCNT  IS  OCtlONCO  TON  UtC  AT  NASA/ JSC  ONLY  TO  OCNCNATC 
•Nto.N  THC  tVt'COHNIUC  CLCNCNT  ON  NNOONAH  TaPCS  OISTNUiUTCO  TO  OThCN 

• Nto.N  iNSTAUATIONt. 

•Nto.N 

• Nto.N 

•MOO  OAN  NACKAOC  tVStCN  OCNCRATION  CONTROL  STRCANS  (SYt-OCNCONI 

• ttO.KOR  .OAN./CLN RCr/|.OAM. 

tKCL 

aCLT.IO  OAN.tYt-CONPILC 

•INCRCNCNT  NOUT  TO  ICLNl  . ••••  POP  ALL  PROCCOURC  CLCNCNT^  •••• 

• IP  ICLN.NOUT.S. 1 I • •• 

• MOO  OAN  A88CN0LCR  PROCCOURC  I CLN. NOUT , I . I I / I CL N. NOUT ,P . I I 

• POP.L  OAN. (CLN.NOUT. I , I I / I CLN . NOUT . • . I I . . ICLN.NOUT. I . I I / ( CLN. NOUT . • . I I 

• CNO 

• IP  ICLN.NOUT.S. I I • 

• N70  OAN  COOOL  PROCCOURC  t CLN. NOUT . I . I I / I CLN. NOUT . • . l 1 

• POP.LC  OAN. ICLN.NOUT. I . I I / I CL N . NOUT . C . I I . .ICLN.NOUT .1.1  I / I CLN . NOUT . • . I I 

• CNO 

• IP  ICLN.NOUT.S. I I • 

• MOO  OAN  PORTRAN  PROCCOURC  I CL N . NOUT . I . I I / I CLN . NOUT . 8 . 1 I 

• POP.LP  OAN. ICLN.NOUT . I . I I / I CL N . NOUT . 8 . I I . .ICLN.NOUT .1.1  1 / I CLN . NOUT . 8 . I I 

• CNO 
•LOOP 

•PACK. SR  OAN. 

•CLCAR  NRCL 

•INCRCNCNT  NOUT  TO  ICLNl  . ••••  CONPILC  SOURCC  CLCnCNTS  •«•• 

• IP  ICLN.NOUT . S. I I • *1  . TYPC  I • 8YN80LIC 

• IP  ICLN.NOUT . S. 8 I > *\ 

• MOO  OAN  ICLN.NOUT. I . I I / ICLN.NOUT .8.  I I 

• IP  ICLN.NOUT.S. 81  ■ >8  . SU8TYPC  8 • A8N 

• SCT  NRCL  TO  NRCL • I 

• AtN. PS  OAN. ICLN.NOUT . I . 11/ ICLN.NOUT. 8. I I 

• CNO 

• IP  ICLN.NOUT.S. 81  • *S  . SU8TYPC  S • C08 

• SCT  NRCL  TO  NRCL* I 

• COt.LBKR  OAN. ICLN.NOUT. I . I l/ICLN. NOUT. 8. I I 

• CNO 

• IP  ICLN.NOUT.  S. 81  • •<•  . SU8TYPC  ••  • POR 

• SCT  NRCL  TO  NRCL* I 

• POR.t  OAN. ICLN.NOUT. I .1 I/ICLN.NOUT. 8.  n 

• AOO  OAN.tVt'POROPT 

• CNO 
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•Tf'OCNeON 

OOC 


« ir  «NMCl  > *to 

• CICAA  NACL 

• MCK  DAN. 

« CNO 

• CNO 

• CNO 
•lOON 
•CNO 

•CLT.IO  OAN.tVt'OCLCre 

• iNCRCNCNr  Nour  ro  icini  . ••••  dclctc  souncc  syndouc  clcncnts 

• ir  tCLH.NOUT.l.t I • *t 

• ir  (CLN.Nour.s.et  > »t 

« ir  (CLH.NOur.s.ci  < *e 

• ocLcrc.s  DAN. (CLN.NOur. I . t i/iCLN.NOur.c. t I 

• CNO 

• CNO 

• CNO 
•lOON 
•CNO 
•cor 
•cor 

•CYCLC  OAH.SVS'CONNUC.  I 
•CO.U  OAN.SYS'COHriLC 
C / Hh 
ttir 

•CYCLC  OAN.SYS'OCLCTC. I 
•CO.U  OAN.fYS'OCLCrC 
C / //A 
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HAIN  MOOAAMO/NOUriNCt 


PKcr 


I 


TMIt  APKNOIX  eONTAINO  TNC  HAIN  MOOAAHO  IINCLUOINO  AOCUOO  CXCC  COHftANOOl 
IN  TNC  OAN  NACKAOC  ANO  TNCIN  OCOiCATCO  NOUTINCO.  OAOUNCr>  OV  NAOOAAN  AO 
rOLLOMOi 

NAIN  NNOONAN  (NCAL  VCRflONI 
NtCRAACMV 

HAIN  MOONAN  IVINTUAL  VCNOION* 

COLLCCrOH  ILINKCRt  OlHCCriVCO  rON  NCAL  VCNOION 

eoLLCcroN  ilinkcni  oiNccrivet  roo  vintual  vcnoion 
OCOICATCO  COHHANO  NOUTINCO 
OCOICATCO  utility  NOUTINCO 

THC  NANCO  or  NOOT  OCOICATCO  NOUTINCO  CONTAIN  A THNCC-LCTTCN  NNCflX 
(ir  coNNANOt  ON  oucrix  nr  utilitvi  unich  inoicatco  thc  nnoonah  tncy 
ANC  OCOICATCO  TOi 


NIC 

NICTAi 

CON 

CONTROL 

CL  A 

CLAOOirY 

NNO 

NRTOCT 

NNC 

NRTCLAOO 

OTA 

otatuo 

01  T 

OITCON 

THC  LAOT  THNCC  CNANACTCNO  Or  OCOICATCO  COHHANO  NOUTinCO  ANC  CONNOOCO  Of 
THC  riNOT  THNCC  (ON  TUO  ir  NOT  NHAOC  0>  CNANACTCNO  Or  THC  COHHANO  KCY 
HONO. 


TNC  HONC  COHNLCX  OCOICATCO  COHHANOO  WHICH  NCOUINC  LANOC  AHOUNTO  Of  HCHONV 

roN  ourrcNO  ano  uonkonacc  anc  uoually  onokcn  into  ocvcnal  noutinco  to 

NNOCCOO  thc  OirrCNCNT  NHAOCO.  thc  LAOT  CHANACTCN  or  A OCOICATCO  COHHANO 
NOUTINC  inoicatco  I to  NHAOC  NUHOCN  AO  rOLLOUOl 

ICTTCN  NHAOC  0 (OCT  ONCC I r I CAT  I ONO * 

•|*,*t*  NHAOC  t.r  (AOOITIONAL  NNC •NNOCCOO I no  I 

*S‘.’N*.‘0’  NHAOC  S.N.O  (NAJON  NNOCCOOINO  --  fONTNAN  I/O  NOT  ALLOHCO* 

*9’  NHAOC  0 (NOOT-NNOCCOOINOI 


COHHANO  noutinco  IN  NHAOC  0 ANC  ONOUNCO  UNOCR  A CONVCNOAT I ONAL  HONITON 
UHOOC  NAHC  CNOO  IN  '000*.  OCOICATCO  COHHANO  noutinco  in  OTHCN  NHASCS 
ANC  ONOUNCO  or  NHAOC  UNOCN  THC  ‘1(9’  ANC  'S<»9'  HONITONO.  NONHALLY  ThCOC 
THNCC  HONITONO  (ANO  ThCIN  COHHANO  NOUTINCO*  OvCNLAY  CALri  OTMCN.  OINCC 
OINCCT  CALLO  9CTMCCN  NOUTINCO  UNOCN  OirrCNCNT  HONITONO  ANC  NOT  N00S19LC. 

thc  'Callino'  noutinc  caluo  nviatq.  nahino  thc  'Cauco'  noniton  ao  yhc 
*VIA*  noutinc  ano  Thc  ‘CALLCO*  COHHANO  NHAOC  noutinc  AO  *hC  'TO'  noutinc. 
AMO  THCN  NCTuNNO  to  I to  own  HONITON.  I to  noniton  hill  ThCN  NCTuNN  to 
VIATO.  ano  VIATO  will  ThCN  call  Thc  NNCvIOUOLY  NAHCD  'VIA'  noutinc. 
NAOOiNO  IT  THC  NAHC  (ACTUALLY  thc  aooncoo*  or  ThC  NNCVIOUOLY  NAHCD  ‘To* 
NOUTINC.  WHICH  Thc  *VIA'  NONITON  WILL  THCN  CALL. 


iCrONC  NCTUNNINO.  any  'TO'  noutinc  WHICH  10  NOT  NHAOC  0 HUOT  CALL  NVIATO 
ANO  MANC  thc  NCXT  NONITON  ANO  COHNHAND  NHAOC  NOUTINC.  OTHCNWIOC  IT  WILL 
iC  CALLCO  NCNCATCOLY  IN  AN  CNOLCOO  LOON  (THIO  10  CAOY  TO  OCTCCT  h.Th 
TRACC  TUNNCO  ONI.  THC  LAOT  COHHANO  NHAOC  NOUTINC  rQN  TWC  CUNNCNT  COHHANO 
(UNLCOO  IT  10  NHAOC  0*  HUOT  CALL  NVIATO.  NANINO  ThC  '000'  HONITON  AO  ThC 
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*VIA'  NOUIINC  AND  NUtSUt  At  tNC  *r0*  tOurtNC.  TMC  *000*  nONiroM  will 

rNCN  RCAO  tnc  nanc  or  rNC  ncxt  cowiano  ano  call  thc  AOOoooiiiAfc  onasc  o 
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001 


•PRT.SC 

•PRT.S 

•HSO.N 

•PRT.S 

•PRT.SC 

•HSO.N 

•PRT.S 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•PRT.SC 


OAH.PRCFACe-L 
OAN. APPENDIX >L 

OAH. SETUP 
OAH.SETUP-HI A 

OAH.SETUP/N 


. (80091 


SET  TABS  • 30  A 3<» 


SET  UP  Tprs  ANO  tty.  ano  print  NEHS 

. HIERARCHY 

SET  UP  TPFS  ANO  TTY.  ANO  DON'T  PRINT  NEHS 


OAH.ERSPRTCN  . SUBHIT  PRINT  CONTROL  SPECIFICATIONS 

OAH.ERSPRTCN-HAP  . COLLECTOR  SYHBOLICS  FOR  REAL  ABSOLUTE 

OAH. ERSPRTCN'NAP/ VIRTUAL  . COLLECTOR  SYMBOLICS  FOR  REAL  ABS  (NO  VIRTUAL) 

OAH.OATA/CHECKOUT  . PSEUOO  EXEC  COMHANO:  INITIATE  OATA/CHECKOUT  MOOE 

OAH.OATA-HAP  . COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 

OAH.OATA-MAP/VIRTUAL  . COLLECTOR  SYMBOLICS  FOR  REAL  ABS  (NO  VIRTUAL) 

OAM.OATA-CHECK  . SOATA/CHECKOUT 


•HSO.N 

•PRT.S  OAM.IOFILE 
•PRT.SC  0AM. lOFILE-MAP 
•PRT.SC  0AM. lOFILE'MAP/ViRTUAL 
•MSO.N 

•PRT.S  0AM. LOCATE 
•PRT.SC  OAM.LOCATE-MAP 
•PRT.SC  OAM.LOCATE-MAP/ VIRTUAL 
• MSO.N 

•PRT.S  OAM.USMAP 
•PRT.SC  OAM.USUAP-MAP 
•PRT.SC  0AM. USMAP-MAP/ VIRTUAL 
SO.N 

•iRT.S  OAM.ERTS-OUP 


PSEUOO  EXEC  COMMAND:  IDENTIFY  TAPE  OR  DISK  FILE 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABS  (NO  VIRTUAL) 

PSEUOO  EXEC  COMMAND:  POSITION  MULTI -FILE  TAPE 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  REAL  ASS  (NO  VIRTUAL) 

PSEUOO  EXEC  COMMAND:  SNAP  TAPE  DRIVE  UNITS 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABS  (NO  VIRTUAL) 

DUPLICATE  ERTS  MSS  TAPE 


• MSO.N 


•PRT.S  OAM.ERTSIOC 
•PRT.SC  OAM.ERTSIOC-HIA 
•PRT.SC  OAM.ERTSIOC/ VIRTUAL 
•PRT.SC  OAM.ERTSIOC-MAP 
•PRT.SC  OAM.ERTSIOC-MAP/VIRTUAL 
•MSO.N 

•PRT.S  OAM.PICTaB 

•PRT.SC  OAM.PICTAB-HI A 

•PRT.SC  OAM.PICTAB/VIRTUAL 

•PRT.SC  OAM.PICTAB-MAP 

AFRT.SC  OAM.PICTAB-MAP/VIRTUAL 

•PRT.SC  OAM.PICOOO 

•PRT.SC  0AM.PICIP9 

• PRT.SC  0AM.PIC3‘*5 

•PRT.SC  OAM.P. ;678 

•PRT.SC  OAM.PICOIS 

•PRT.SC  0AM.PIC0I3 

•PRT.SC  OAM.PICOIV 

•PRT.SC  OAM.PICOIS 

•PRT.SC  OAM.PICOIS 

•PPr.SC  OAM.OISHIS 

•PRT.SC  OAM.PICEXI 

•PRT.SC  OAM.PICFAC 

•PRT.SC  0AN.PICFA3 

•PRT.SC  0AM.PICFA9 


PRINT  10/ annotation  DATA  FROM  ERTS  MSS  TAPES 
. HIERARCHY 

. SMAP  OAM.ERTSIOC  TO  TPFS  ANO  IXQT.I 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 

OISPLAY/TABULATE/FACTOR/PARTI TION  ERTS  MSS  DATA 
. HIERARCHY 

. AMAP  OAM.PICTAB  TO  TPFS  ANO  aXQT.I 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 
. CALL  PHASL  0 (COMMAND)  ROUTINES  FOR  PICTAB 

. CALL  phase  1/2/9  ROUTINES  FOR  PICTaB 

. CALL  phase  3''*/^  routines  FOR  PICTAB 

. CALL  PHASF  6/7/B  ROUTINtS  FOR  PICTAB 

. DISPLAY  MSS-OERIVEO  data  (PHASE  01 
. DISPLAY  RADIANCE  (PHASE  3) 

. DISPLAY  CRAOIENT/LAPL  AC  I AN/ VARI  ANCE  (PHASE  **  I 
. DISPLAY  CLASS  (PHASE  S) 

. DISPLAY  MSS-OERIVED  DATA  (PHASE  9) 

. histogram  displayed  data  (PHASE  0) 

. TERMINATION  routine  (PHASE  0) 

. FACTOR  MSS  CHANNELS  (PHASE  0) 

. FACTOR  MSS  CHANNELS  (PHASE  3) 

. FACTOR  MSS  CHANNELS  (PHASE  9) 
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APPCNOIX *L 

ooe 


•Por.tc  OAN.PtCUS 
•PRr.SC  OAH.PICLI3 
•PUT. SC  OAN.PICLIH 
•Ppr.SC  OAN.PICLIS 
•PPr.SC  OAN.PICLIS 
•PPr.SC  OAH.PICPAR 
•PRT.SC  0AN.PICPA3 
APRT.SC  OAN.PICPA<» 
•PRT.SC  OAN.PICPA6 
•PRT.SC  0AH.PICPA9 
•PRT.SC  OAH.PICPIC 
•PRT.SC  OAN.PICPI3 
•PRT.SC  OAN.PICPI<* 
•PRT.SC  OAN.PICPIS 
•PRT.SC  OAN.PICPIS 
•PRT.SC  OAN.PICPRO 
•PRT.SC  0AN.PICPR3 
•PRT.SC  0AN.PICPR9 
•PRT.SC  OAN.PtCROr 
•PRT.SC  OAN.PICTor 
•PRT.SC  0AN.PICT03 
•PRT.SC  OAN. Pieros 
•PRT.SC  OAH.PICXQT 
•PRT.SC  OAN. lOCPIC 
•PRT.SC  OAN.OPRPIC 
•NSO.N 

•PRT.S  OAN. CONTROL 

• PRT.SC  OAN. CONTROL - 
•PRT.SC  OAN. CONTROL/ 
•PRT.SC  OAN. CONTROL • 

• PRT.SC  OA.1. CONTROL - 
,SC  OAN.CONOOO 
,SC  OAN.CONAOJ 

SC  OAN.CONOU 
,SC  OAN.CONCXI 
.SC  OAH.CONXQT 
.SC  OAN.OIACRR 
•PRT.SC  OAN.OLSTSQ 
•NSO.N 

•PRT.S  OAN. CLASSIFY 
•PRT.SC  OAN. CLASSIFY 
•PRT.SC  OAN. CLASSIFY 
•PRT.SC  OAN. CLASSIFY 
•PRT.SC  OAN. CLASSIFY 
•PRT.SC  OAN.CLAOOO 
•PRT.SC  OAN. CLAIMS 

• PRT.SC  OAN.CLA3**S 
•PRT.SC  OAN.CLAOCT 
•PRT.SC  0AN.CLA0C3 
•PRT.SC  OAN. "L A0C» 
•PRT.SC  OAN.CLAOC9 
•PRT.SC  0AN.CLA0C9 
•PRT.SC  OAN.CLACXI 
•PRT.SC  OAN.CLAHAO 
•PRT.SC  OAN.CLAXQT 
•PRT.SC  OAN.CLSO^N 


LIST 
LIST 
LIST 
LIST 
LIST 
PARTITION 
PARTI rtON 

partition 

PARTITION 
PARTITION 
PICrURC 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PROFILE 
PROFILE 

profile 


(PH*» 


(PHASE  HI 


• PRT. 

• PRT . 

• PRT. 

• PRT. 

• PRT. 

• PRT. 


NSS-OCRIveO  DATA  (PHASE  01 
RADIANCE  (PHASE  3* 

ORAOIENT  (PHASE  HI 
CLASS  (PHASE  SI 
NSS'OERIVEO  OATA  (PHASE  91 
factor  space  (PHASE  01 
8Y  OENSITY  (PHASE  31 
BY  ORAOIENT/LAPLACIAN/VARI ANCE 
factor  SPACE  (PHASE  61 
FACTOR  S^ACE  (PHASE  91 
NSS-OERIVEO  OATA  (PHASE  01 
RAOIANCE  (PHASE  31 
ORAOIENT/LAPLACI AN/VARI ANCE 
CLASS  (PHASE  SI 
NSS-OERIVEO  OATA  (PHASE  9> 
NSS-OERivEO  OATA  (PHASE  Oi 
NSS-OCRIVEO  OATA  (PHASE  31 
NSS-OERIVEO  OATA  (PHASE  91 
. rotate  factor  STRUCTURE/COEFFICIENTS 
. TOTAL  TABULATIONS 
. TOTAL  tabulations 

. total  tabulations 
. initialization  routine  (PHASE  01 
. ioentify  Current  connano  specs  (utilityi 
. OPEN  alternate  print  FILES  (UTILITYI 

. AOJUST/OI AORAN  CONTROL  NETWORK 
HIA  . HIERhRCHY 

VIRTUAL  . SNAP  OAN. CONTROL  TO  TPFf  ANO  •XQT.t 

NAP  . COLLECTOR  SYNBOLICS  FOR  REAL  ABSOLUTE 

NAP/VIRTUAL  . COLLECTOR  SYNBOLICS  FOR  VIRTUAL  ABSOLUTE 

CALL  PHASE  0 (CONNANOI  ROUTINES  FOR  CONTROL 
ADJUST  network  (PHASE  01 
CIAORAN  NETWORK  (PHASE  Oi 
TERNINATION  ROUTINE  (PHASE  0> 

INITIALIZATION  routine  (PHASE  01 
OIAORAN  ERRORS 
LEAST  SQUARES  BI -LINEAR  FIT 


. classify  data  on  erts  mss  tape 

-HIA  . hierarchy 

/VIRTUAL  . ANAP  OAN. CLASSIFY  TO  TPF$  ANO  aXQT.I 

-NAP  . COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 

-NAP/VIRTuAL  . COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 

. CALL  PHA'E  0 (COMMANOI  routines  FOR  CLASSIFY 
. CALL  phase  |/B/9  ROUTINES  FOR  CLASSIFY 
. CALL  phase  3/H/S  ROUTINES  FOR  CLASSIFY 
. OENERATC  DETECTION  FILE  (PHASE  0) 

. generate  RAOIANCE  DETECTION  FILE  (PHASE  31 
. GENERATE  density  DETECTION  PILE  (PHASE  l 
. OENERATC  CLASS  DETECTION  FILE  (PHASE  5! 

. GENERATE  DETECTION  FILE  ( PHASE  9i 
. TERNINATION  ROUTINE  (PHASE  3) 

. OCT/CHECK  RADIANCE  LIMITS  (PHASE  0> 

. initialization  routine  (Phase  oi 
. close  output  detection  file  (utilityi 
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•PRT.se 

•PRT.SC 

•PRT.se 

•NSO.N 

•PRT.S 

•PRI  'C 

•PR 

•PRt  . 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT . SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•HSO.N 

•PRT.S 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•NSO.N 

•PRT.S 


OAN.OPNOaN 

OAN.OPRCLA 

OAH.SLNCLA 

OAN.PRTOCT 

''AH.PRTOET'HI  A 

OAN.PRTOET/VIRTUAL 

OAH.PRTOET-NAP 

OAN.PRTOCT -NAP/ VIRTUAL 

OAN.PROOOO 

OAN.PROI29 

OAN.PROStS 

OAN.PROOIS 

OAN.PROOl 3 

OAN.PROOI9 

OAN.PROCXI 

OAN.PROLtS 

OAN. PROL I 3 

OAN. PROL I 9 

OAN.PROPIC 

0AN.PR0PI3 

0AN.PR0PI9 

OAN.PROXQT 

OAN. tOCPRO 

OAN. OPRPRO 

OAN.PRTCLASS 
OAN. PRTCLASS-HI A 
OAN.PRTCLASS/ VIRTUAL 
OAN. PRTCL ASS-NAP 
OAN. PRTCL ASS-NAP/ VIRTUAL 
OAN. PRCOOO 


APPENOIX-L 

003 


. OPEN  OUTPUT  detection  PILE  (UTILITVI 
. OPEN  ALTERNATE  PRINT  PILE  (UTILITY! 

. PLOT  spectral  LINITS  (UTILITY! 

DISPLAY  data  PRON  OETECTION  PILE(S! 

. HIERARCHY 

. SNAP  OAN.PRTOCT  TO  TPPS  ANO  •XQT.I 
. COLLCCrOR  SYNBOLICS  POR  REAL  ABSOLUTE 
. COLLECTOR  SYNBOLICS  POR  VIRTUAL  ABSOLUTE 
. CALL  PHASE  0 (CONNANO!  ROUTINES  POR  PRTOET 
. CALL  PHASE  l/B/9  ROUTINES  FOR  PRTOET 
. CALL  PHASE  3/H/5  ROUTINES  FOR 
. OISPLAY  OETECTION  OATA  (PHASE 
. OISPLAY  DETECTION  OATA  (PHASE 
. DISPLAY  detection  OATA  (PHASE 
. TCRNINATION  ROUTINE 
. LIST  DETECTION  OATA  (PHASE  0> 

. LIST  OETECTION  OATA  (PHASE  31 
. LIST  DETECTION  OATA  (PHASE  9) 

. PICTURE  DETECTION  OATA  (PHASE 
. PICTURE  OETECTION  DATA  (PHASE 
. PICTURE  OETECTION  DATA  (PHASE 

. initialization  routine 
. identify  current  CONNANO  specs  (UTILITY! 

. OPEN  ALTERNATE  PRINT  FILES  (UTILITY! 


PRTOET 

0! 

3! 

9! 


0! 

3! 

9! 


OAN. PRCEXI 
OAN. PRCNAP 
OAN. PRCXQT 
CAM. NAPRNT 
OAN.  (.1  THOC 
OAN. OPRPRC 
0AM. RESPRC 


OUTPUT  CLASSIFIED  ERTS  MAPS  ON  LINE  PRINTER 
. HIERARCHY 

. IMAP  OAN.PRTCLASS  TO  TPFS  ANO  AXOT.I 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 
CALL  PHASE  0 (COMMAND!  ROUTINES  FOR  PRTCLASS 
TERMINATION  ROUTINE  (PHASE  0! 

MAP  RAOIANCE/OENSI TY/CLASS  (PHASE  0! 
initialization  routine  (PHASE  0! 

PRINT  MAPS 

PROVIDE  UNIT  HEAOINO  (UTILITY! 

OPEN  ALTERNA’'E  PRINT  FILES  (UTILITY! 

RESAMPLE  detection  PIXELS  (UTILITY) 


SC 

sc 

sc 

sc 

sc 

sc 

sc 


• PRT 

• PRT 

• PRT 

• PRT 

• PRT 

• PRT 

• PRT 
•PRT.SC 
•PRT.SC 
•PRT.SC 
•PRT.SC 
•PRT.SC 
•PRT.SC 
•NSO.N 
•PRT.S 


oam.pltclass 

OAN. PLTCLASS'VIRTUAL 
0AM. PL  TCL ASS-NAP 

OAM.  PL  TCL ASS-MAP/ VI RTUAL 

OAN.  PLCOOO 


0AM. PLC IZ9 

OAM.  PLCEXI 

OAN.  PLCMAP 
OAM.PLCXQT 

OAM.  I TICPL 

OAN.  MTICPL 

OAM.  Nl THPL 

OAN.  OPLPLC 
OAN. REOPLC 

OAM.FLNCLASS 


OUTPUT  CLASSIFIED  ERTS  MAPS  ON  PEN  PLOTTER 
. JMAP  OAM.PLTCLASS  TO  TPFS  ANO  AXOT.! 

. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 
CALL  PHASE  0 (COMMAND)  ROUTINES  FOR  PLTCLASS 
CALL  PHASE  I'Z/9  routines  FOR  PLTCLASS 
TERHINAMON  routine  (PHASE  0) 

MAP  RAOIANCE/OENSI Ty/CLASS  (PHASE  0) 
INITIALIZATION  ROUTINE  (PHASE  0) 
generate  • PLOT  interior  TICKS  (UTILITY) 
GENERATE  I PLOT  MARGINAL  TICKS 
PLOT  UNIT  HEAOINO  (U’^ILITY) 

OPEN  alternate  plot  files  (UTILITY) 

REGISTER  OETECTION  PIXELS  (UTILITY! 


OUTPUT  CLASSIFIEO  ERTS  HAPS  ON  FILM  RECORDER 


(UT IL  I TY) 
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•NSO.N 

•PRT.S  OAN. status 
•PRT.SC  OAH.STaTUS-HIA 
•PRT.SC  OAN. status/virtual 
•PRT.SC  OAN. status-nap 
•PRT.SC  OAN. status-nap/ VIRTUAL 
•NSO.N 

•PRT.S  OAN.OITCOP 
•PRT.SC  OAN.OI TCOP/VIRTUAL 
•PRT.SC  OAN.OI TCOP-NAP 
•PRT.SC  OAH.OITCOP-HAP/VIRTUAL 
•PRT.SC  OAH.OITOOO 
•PRT.SC  OAM.OITEXI 
•PRT.SC  OAN.OITOUP 
•PRT.SC  OAN.OITVER 
•PRT.SC  OAH.OITXQT 


OE TERN INC  STATUS  OF  OAN  PACKAGE  RUNS 
. HIERARCHY 

. SNAP  OAN. status  TO  TPFS  A OXOT.I 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 

DISK  TO  tape  COPY  PROORAN 

. SNAP  OAM.OITCOP  TO  TPFS  AND  aXQT . I 
. COLLECTOR  SYMBOLICS  FOR  REAL  ABSOLUTE 
. COLLECTOR  SYMBOLICS  FOR  VIRTUAL  ABSOLUTE 
. CALL  PHASE  0 (COHMANO)  ROUTINES  FOR  OITCOP 
. TERMINATION  routine 

. DUPLICATE  DETECTION  FILE  ONTO  TAPE  FROM  DISK 
. VERIFY  detection  FILE  ON  TAPE 

. initialization  routine 


) 
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SETUP 

001 


•scruPSt  PRce  tpps.  . iroo  shall i 

ascruPSi  aso.t  tpps. .r/o/rRK/oss  . isioocri 

aseruPSt  copy.a  oan..tpfs. 

aseruPSi  xor  ersprtcn 

o.aarTY  c.oio 

o.aarTY  m.iso 


( 


LINE  DELETE  IS  CTRL-X 
BACKSPACE  IS  CTRL-H 
TERMINAL  IS  00  COLUMNS  MIDE 

aSETUPS:  ADD.E  DAN.NEN-DAM 
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i SETUPS 
t SETUPS 
i SETUPS 
(SETUPS 


(SETUPS 


u 
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ser UR  NICRARCHY 


scrup 

: 

I 

t 

CRfPRrCN 

t 

> 

: 

NCU-OAH 


SCruP*NIA 

001 


i \ 


L-e 


c 
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«crup/N 

001 


oserupot  ntcc  rppt.  . <roo  shall i 

•scTuPSt  Aso.r  rprs. .p/Q/rRK/ose  . (OIOocri 
ASCruPft  COPV.A  OAN. .TPPt. 

•SeruPSi  XQT  crsprtcn 
o.iirry  c.oio 
o.atrTY  N.isa 


LINE  OELCTE  IS  CTRL'X 
BACKSPACE  IS  CTRL-H 
rCRHiNAL  IS  80  COLUNNS  HIOC 

ascTuPSt  cor 


( 
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. < SETUPS 
. i SETUPS 
. (SETUPS 
(SETUPS 


(SETUPS 
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ERSPRTCN 

001 


PROORAN  ERSPRTCN 


0 OUTPUT  PRINT  INAOES  / PEREORN  PRINT  CONTROL  DIRECTIVES 


NISTORT 


E H SCHLOS8ER  LEC 

E H SCHLOSSER  LEC 


Oa/97/75  ORIGINAL  CODE 

IR/I8/7S  ELIMINATE  THIRO-UORD  J-OES I ONATORS 


METHOD 


THIS  ASSEMBLER  PROORAN  MAKES  THE  PRINT  FACILITIES  OF  CXCC-8  ER  PRINTS 
AND  the  print  control  FACILITIES  OF  EXEC-S  ER  PRTCNS  DIRECTLY 

available  from  the  runstrean.  this  is  particularly  useful  for  printing 

IMAGES  FROM  AN  AAOD-EO  ELEMENT  AND/OR  SUBMITTING  DEMAND  SYMBIONT 

(aai  CONTROL  statements  from  an  aAoo*Eo  element. 

PROCESSING  OF  INPUT  TO  ERSPRTCN  IS  DETERMINED  BY  COLUMN  I: 


COLUMN  I 
0 

A. I .L.H.M.R.S.U 
(BLANK) .*.0.1 
(OTHER) 


PROCESS! NO 


SUBMIT  TO 
SUBMIT  TO 
PRINT  VIA 
GENERATES 


ER  PRTCNS 
ER  PRTCNS 
ER  PRINTS 
OIAONOSTIC 


(DEMAND  RUN  ONLY) 

(DEMAND  a BATCH  RUNS) 

(1ST  CHR  IS  fortran  CARRIA  E CONTROL 
FROM  SYMBIONT 


MACHINE 'DEPENDENT  CODE 


WRITTEN  IN  ASSEMBLER  FOR  THE  UNI  VAC  1100  SERIES  COMPUTERS 
EXEC-B  OPERATINO  SYSTEM  USING  6-BIT  FIELOaTa  CHARACTERS. 
implementino  code  must  be  rewritten  for  different  CHARACTE 

DIFFERENT  OPERATINO  SYSTEMS.  AND  DIFFERENT  MACHINES. 


UNDER  the 
R CODES. 


EXTERNAL  REFERENCES 


ER  PRINTS 
ER  PRTCNS 
ER  EXITS 


a PRINT  FIELOATA  IMAGE 

a PERFORM  FIELOATA  PRINT  CONTROL  OIRCCTIVE 

a terminate  program  execution 


EXCEPTIONS 


t.  THIS  PROORAN  MUST  NOT  BE  INITIATED  AS  A PROCESSOR)! 


GLOBAL  OeCLARATIONS 


(PROORAN  type  is  PRE-LOADED  BY 


ExEC  INTO  REGISTER  AV  AS  FOLLOWS: 


L-IO 


0AM  MACKAOe  APPCNOtX  I 
MAIN  PftOOMANS/ftOUrtNCS 


CftSPMTCN 

ooe 


( t > NCAL  riNC 
( 3 • LOU  cxec 

I <*  ■ OCNANO 
C S • OCAOLlue  BArCN 
I e > BATCH 


. LOCAL 

declarations 

A * » * • 

• 

AXRS 

S(00)  . 

0-BANK 

pp 

PORM 

IB. 6. IB 

PKT 

PP 

1 . 1 .BUP 

LEN 

RES 

1 

LOCBUP 

BUP 

BUP 

RES 

OBATCH 

'aasaao* 

. lONLT  REMAINS  '0*  IP  BATCHI 


PRCCCOURE 


Sroii  . I 

•BANK 

ersprtcn 

TNE.U 

A4.*A 

sz 

OBATCH 

READ 

LA 

AO. (EOP.BUP* 

ER 

READS 

SA.HB 

AO. LEN 

TNZ 

LEN 

J 

AOVI 

LA. SI 

Ai  .aup«o 

TNE.U 

Ai.'aaaaa  * 

J 

AOVI 

TNE.U 

AI . ’ aaaaa*' 

J 

AOVO 

TNE.U 

At . 'aaaaao' 

J 

AOVB 

TNE.U 

AI . ' aaaaai * 

J 

EJECT 

tne 

At .OBATCH 

J 

READ 

control 

L 

AO. LOCBUP 

LXI 

AO. LEN 

ER 

PRTCNS 

J 

REAO 

•**OCMANO 

OCHANOi  REPLACE  *0*  HITh  ZERO 


READ  CARO  IMAGE 
LENGTH  or  IMAGE  IN  WORDS 
SKIP  Ni  IP  len  not  zero 

not  control  IMAOE.  so  PRINTl 
1ST  CHARACTER  OP  IMAGE 
SKIP  NI  IP  not  space 

' ' «■>  ADVANCE  I LINE  BEPORE  PRINTING 
SKIP  NI  IP  not 

••>  ADVANCE  0 LINES  BEPORE  PRINTING 
SKIP  NI  IP  not  "O* 

•0*  ••>  advance  S lines  BEPORE  PRINTING 

SK I P Nl  IP  not  ■ I 

•I'  ••>  EJECT  BEPORE  PRINTING 

SKIP  NI  IP  NOT  OBATCH 

OBATCH.  SO  IGNORE! 


. SUBMIT  CONTROL  IMAGE 


AOVI 

AOVB 

EJECT 


LA.U 

AI  .0 

. ADVANCE 

0 

LINES  BEPORE 

PRINT  I NG 

J 

PRINT 

LA.U 

AI  . 1 

. ADVANCE 

1 

LINE  BEPORE 

PRINT] NO 

J 

PRINT 

LA.U 

AI  .B 

. ADVANCE 

B 

LINES  BEPORE 

printing 

J 

PRINT 

LA. XU 

AI  . <0 

. EJECT  BEPORE  PRINTING 

L -I  I 

.1 


u 
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tA.tt 

Al .RKt 

. RIOHTHOST  6 SITS  or  • lines  to  aovance 

ttL 

At. 6 

. PREPARE  TO  STORE  NEXT  6 01 TS 

SA.SI 

At .PKT 

. LEPTNOST  8 81 TS  OP  • LINES  TO  AOVANCE 

SA.S3 

AO.PKT 

. length  op  inaoc  in  HOROS 

LA.U 

Al. *•••••  * 

. 8LANK  OUT  . . . 

SA.SI 

At .8ur*o 

. ...  1ST  character 

LA 

AO.PKT 

Cft 

PRINTS 

. PRINT 

J 

READ 

* 

CR 

EXITS 

. TERMINATE  PROORAN 

CNO 

ersprtcn 

L-J2 


.1 


I 

r 
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HAIN  MOORANS/ftOUriNCS 


IN  DAH.C 
Lit  OAH. 


CfttrarCN«NAR 

001 
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( 


L*I3 


u 


OAH  MCKAOC  AA^CNOIX  L 
MAIN  AAOOAANt/ROuriNCS 


CMtMTCN-HAP/VlMTUAL 

001 


IN  OAN.CMANTCN 
LIO  OAN. 


) 


t-lt 
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OAN  PACKAOC  AMCNOIX  L 
MAIN  MOONAMt/NOUriNCS 


OATA/CNC«*KOur 

001 


C MOCCttOn  OATA/CHCCKOUr  • OATA/CNCCKOUr  NOOCi  INTCRCCOr/CMCCK  KUNtTNCAK 
C 

e 

c 

c Nitroov 

c 

e 

C C N SCMLOOSCO  LCC  10/ 09/77  NCQUlOCnCNTO 

C 

c 

c nctnoo 

C 

c 

C THI9  OROCCtOOK  ALIOMS  TNC  U9CA  TO  VCAtrr  TNC  SYNTAX  Of  OOtH  CxCC  CONHANOS 

C AND  MOOXAH  CONHANOS  rON  A COHPLCTC  DAN  NACKAOC  NUN  WITHOUT  ACTUALLY 

C HOUNTINO  ANY  TaPCS  OR  RROCCSSINO  ANY  LANOSAT  HSS  OATA. 

C 

C this  RROCCSSOR  InTCRCCPTS  ANO  RCAOS  all  CARO  INAOC  INPUT  IN  thc  RUNSTRCAN. 

C IT  CNCCKS  ALL  INAOCS  TOR  VALIO  CXCC  COHNANOS  ANO  VALIO  SYNTAX,  ANO  TLAOS 

C CRRORS . 

c 

C HNCN  THIS  PROCCSSOR  CNCOUNTCRS  AN  'IXOT*  CXCC  COHNANO  TOR  ANT  PROORAH  IN 

e TNC  OAH  PACKAOC.  IT  TCRHINATCS  ANO  INITIATCS  THAT  PROORAH  H|TN  ThC 

C RCOUeSTCO  OPTIONS  PLUS  A ‘0*  OPTION  (OATA  HOOO  ANO  A *C*  OPTION  I CHCCKOUT 

c Hooe I . 

c 

c that  PROORAH  THCN  RCAOS  CARO  IHAOC  INPUT  PROH  THC  RUNSTHCAH.  IT  CHCCKS 

C ALL  IHAOeS  POR  VALIO  CONHANOS  ANO  VALID  SYNTAX.  ANO  PLAOS  CRRORS.  IT  DOCS 

C NOT  ASSION  hORK  PILCS  OR  OCNCRATC  OUTPUT  IOThCR  /HAN  01 AONOSTirSi . WHCN 

C thc  PROORAH  TCRHINATCS.  IT  RC'INITIaTCS  ThC  OATa/CHCCKOUT  PROCCSSOR. 

c 

c OATA/CHCCKOUT  HOOC  CONTINUCS.  ALTCRNATINO  iCTwCCN  this  PROCCSSOR  ANO 

C PROORANS  IN  thc  OAH  PACKAOC  UNTIL  THC  POLLOHINO  CARD  IHAOC  IS  RCAOi 
C OCNO 

c 

C 

C RCSTRICTIONS 

C 

C 

c I.  Thc  aosolutc  clchcnt  pop  this  proccssor  must  er  storco  in  thc  oah  ppocrah 
C PILC  IN  RCAL  (NOT  virtual*  PORH. 

c 

C e.  thc  POLLOHINO  CONTROL  CARO  HUST  APPCAR  IN  ThC  RUN  SCPORC  ANY  RCPCRCNCC 

C TO  this  PROCCSSOR: 

C AAOO  DAN.SCTuP 

c 

C 9.  WHCN  IN  OATa/CHCCKOUT  HOOC.  syntax  CRRORS  ON  AN  lAOO  CXCC  CONHANO  abort 
C thc  run. 

c 

c N.  OATA/CHCCKOUT  HOOC  HAY  NOT  CC  INITIATCO  OR  TCRHINATCO  PRQH  WITHIN  AN 
C CXCCUTINO  PROORAH. 

c 

c 

c syntax 
C 

c 


L-tS 


u 


IAN  NACKAOC  AMCNOU  I OATA/CNCCKOUT 

IAIN  MQONAHt/NOUTINCf  OOt 


•OArA/CNCCKOur  . iNirurct  OArA/CNCCKOur  nooc 

ACNO  . rCNNINATC*  OAl A/CNCCKOUT  NOOC 


CXrCNNAL  ACrCNCNCCt 


CNNNNr 


e OLOOAL  OCCLAAArtONt 

c 

c 

C NONC . 


LOCAL  OCCLAAATIONS 


c 

C ITO  iC  OCrCRHINCOI 


RNOCCOURC 

) 


CALL  CNNRNri I .9. 'OATA/CHCCKOUT  NOT  I HRLCNCNTCO* > 

sroN 

CNO 


OAN  MCKAOe  AAKNOIX  L 
NAiN  FIIOORANS/ROUriNeS 


OArA-NAI> 

Ml 


IIA  OAN.OATA/CMeCKOUr 
LIB  OAH. 


L-17 
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OAN  PACKAOe  APPCNOIX  L 
HAIN  ftROORAHS/ttOUTtNCS 


OAfA^CNCCK 

001 


OOATAOt  DArA/CHCCKOUT  NOOC  . OATA/CHCCKOUt  NOOC  . OAlA/CHeCKOUr  HOOC 


L-19 


OOOUOUWUUUOUUUOUUUUUUOUUUUUUUUUUUOUUUO 


0A«  PACKAOC  AI>FCN0IX  L 
NAIN  MOOftAHS/nOUriNCS 


loriic 

001 


iMioeessoii  loruc  a pocuoo  exec  comnano  --  loeNTtry  rAPe/otsx  me 


NisroRv 


e H SCNLOSSCR 
e H scHLossen 


Lee  09/tt/7*»  OmOINAL  cooe 

LCNSCO  07/08/00  DUMP  NON-CHAR  INFO  IN  OCTAL/OINARV 


USAOe 


I.  THC  AOsoLure  eLCNCNr  for  this  PROcessoR  Husr  ee  sroReo  in  rne  dan 
proorah  file  in  real  iNor  virtuali  form. 

8.  THE  FOLLOUINO  CONTROL  CAROS  MUST  APPEAR  IN  THE  RUN  BEFORE  ANY 
REFERENCE  TO  IOFILE: 

ause  OAH..<NANE  OF  OAN  PROORAH  FILE> 

aPRT.T 

aASO.A  OAN. 

aAOO  OAN. SETUP 


SYNTAX 


aiOFlLE  /INTERNAL  FILE  NAHL> 


NETHOO 


OET  FILE  NANE  FROM  EXEC-8  INFOR  BUFFER.  GET  FACILITY  INFO  PRON  EXEC-8 
FITENS  PACKET.  PRINT  IN  CHARACTER.  OCTAL.  ANO  BINARY. 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


nachine-oepenoent  code 


ASSUMES  6 characters  PER  INTEGER.  ASSUMES  6 BITS  PER  CHARACTER. 
manipulates  UNIVAC  EXEC-B  I/O  AND  facility  packets. 

USES  UNIVAC  FORTRAN  V FIELD  FUNCTION. 


EXTERNAL  REFERENCES 


SYSOET  • get  record  FROM  SYSIN  RunSTREAM 

ERPRNT  a WRITE  CHARACTER  BUFFER  TO  PRIMARY  OUTPUT  DEVICE 

ERFITM  a RETRIEVE  FACILITY  ASSIGNMENT  INFORMATION  PACKET 

CBiNiT  a initialize  character  buffer 
oercHR  a oet  character  from  character  strino 

OETICE  a OET  INTEOER-CHARACTER-EQUI VALENT  FROM  CHAR  STRING 

CBNCST  a character  buffer  for  Character  string 


L-80 


oooooonnooonono 


OAN  PACKAOC  APPENDIX  L 
MAIN  PROONANS/ROUriNCS 


lOPILC 

OOf 


CININ  t CNANACrCR  BUrPCII  POD  INTCOCR 


exccprioNS 


I.  THE  POLLOHIND  CONDI riONS  OENENATE  DlAONOSTICSs 
NODULE  NOT  INVOKED  AS  PROCESSOR  IN  TPFS. 
PILE  NAHE  NOT  SPECIPIEO 
PILE  NOT  ASSIGNED 


GLOBAL  OECLARATIONS 


INCLUDE  NULCST.LISr 
INCLUDE  ICBUPt.LISr 
INCLUDE  ICBUPS.LtSr 
INCLUDE  ICBUP3.LIST 
INCLUDE  ASHOEP.LISr 
C 

c 

C LOCAL  OECLARATIONS 

C 

C 


a OEPINE  NULL  CHARACTER  STRING 
a DECLARE  CHARACTER  SUPPER  « I 
a DECLARE  CHARACTER  BUPPER  * ff 
a DECLARE  CHARACTER  BUPPER  * 3 
a OEPINE  ASSEMBLER  PARTIAL  MORO  HNENONICS 


INTEGER  INPORdOl 
INTEGER  IPPKTM3I 
INTEGER  INSTAT 
INTEGER  length 
INTEGER  NN 
INTEGER  NC 
INTEGER  NB 
INTEGER  KHAR 
INTEGER  NICE 
INTEGER  IBIT 


a UNI  VAC  EXEC-S  INPORS  SUPPER 
a UNI  VAC  EXEC-e  pacilitv  inpo  packet 
a INPUT  STATUS  PROH  SYSGET 
a INPUT  LENGTH  IN  CHARS  PROH  SYSGET 
a NORO  NUMBER,  starting  PROH  0 AT  LEPT 
a CHARACTER  NUMBER.  STARTING  PROM  I AT  LEPT 
a BIT  number,  starting  PROM  0 AT  LEPT 
a CHARACTCR 

a INTEOER-CHARACTER-CQUI VALENT 
a BIT 


c 

c 

C PROCEDURE 

C 

C 

C 

C GET  UNIVAC  EXEC>S  INPORS  BUPPER  CONTAINING  EXEC  COMMAND  SPECISI 
C 


CALL  SYSGET! INSTAT. INPOR.LENGTHI 
C 
C 

C CHECK  IP  INVOKED  AS  A PROCESSOR  IN  TPPS. 

C 

IPI I INSTAT. EQ. ' * ) . and. (INPORC 31 .EQ. ' lOPILE' I I GO  TO  ISO 
CALL  ERPRNTt I . 3. ‘PROGRAM  NOT  POUND* I 
GO  TO  800 
ISO  continue 
C 
C 

C CHECK  IP  PILE  NAME  MAS  SPECIPIEO 
C 


L-ei 


o o o o 


0AM  MACKAOC  AMMCNOU  L 
MAIN  MMOOMAHS/ttOUTINCS 


iriiNroM(8t.NC.o>  00  ro  too 

CALL  CRMANTf  1 .0.  *N0  riLCM 
00  TO  000 

too  continue 
c 
c 

C EXTRACT  riLC  NANE  FROM  INFORO  OUFFER  A RUT  INTO  RACKET 
C 

irRKT(tl*INR0Rt5t 
irRKTeEl-*  • 

iriASHSO*  INFORt'*''  I . NE  . II  IFRKTiei>INF0R<6l 
C 
C 

C OET/CHECK  EXEC-0  facility  info  IN  RACKET 
C 

CALL  ERFITHMFRKTI 

IF( IFRKTI7I .NE.OI  00  TO  300 

CALL  ERRRNTII.C.'NOT  ASSIONEOM 
00  TO  900 
300  CONTINUE 


RRINT  FILE  NAME  A QUALIFIER  FROM  FI  TENS  PACKET  WORDS  0 THRU  S 


CALL  ERRRNTC I .a. IFRKTl I I I 
CALL  ERRRNTt I .a. IFRKTI3I I 
CALL  ERRRNTI I .a. IFRKTISI I 
C 
C 

C OUHR  PACKET  WORDS  0 THRU  10  IN 
C 

DO  *»60  NU-O.tO 

CALL  CeiNl Tl ICBUFI I 
CALL  COHCSTIICBUFI . 
CALL  CBHIN  (ICBUFI. 
CALL  CBINITI tCBUFai 
CALL  CB*»CST(  ICBUFa. 
CALL  CBINI T( ICBUF3I 
CALL  CBHCSTI ICBUF3. 
CALL  CB**CST  ( ICBUFI  . 
CALL  CBHCSTI ICBUFa. 
CALL  CB<»CSTI  ICBUF3. 

DO  >»30  NC-I  .6 
C 


CHAR/OCTAL/BINARY 


•FITEHS** I 
NH.a. ‘O’ » 

ICBUFI I 

ICBUFI  I 

• • . ( M . (a«  I 

• • . (I I . (an 

• • . ( 1 1 . (an 


CALL  0ETCHR(KHAR.  IFPKT(NH*I  I . (NCn 
CALL  CB<»CST(  ICBUFI  . KHAR.in.tin 
CALL  CB<*CST(  ICBUFI  . ’ ’.it).(6n 


CALL  OETICEINICE. 
CALL  CBHlNdCBUFa. 
CALL  CBHINI ICBUFa. 
CALL  CB*»CST(  ICBUFa. 


IFRKT(NH*I I . (NCI  I 
NICE/8. 1 I 

NICE*(NICE/BI *B. n 

• *.(11.(011 


DO  *»I0  NB«O.S 

IBIT«FL0(NB.I .KHARI 

CALL  CBHlN( ICBUF3.  IBIT.II 


o 

lOFILE 

BOS 


( 


L-aa 


o o o o 


OAH  PACKAOe  A^KNOIX  L 
HAIN  PROORANt/ROUriNCt 


•MO  eONTINUC 

CAU  ci«»csriicour3.  * •.(ii.iin 

ISO  eONTINUC 

CALL  CK^RNrct.lO.ICiuri) 

CALL  CRRRNTn.lO.ieOUrtl 
CALL  eRRRNrf t.io.icoursi 

•»eo  coNTiNue 
c 
c 

C RRINT  TAPt  RCCL  NUHBCIIS.  tr  RReSCNT.  FROH  UOROS  tR  t 13  Or  PACKET 

c 

IP( IPPKTt IRt .NC.NULCSn  CALL  ERPRNT (R. I . IFPKT ( IRIt 
IP( IPPKTI 131 .NE.NULCST)  CALL  ERPRNTt I . I . |PPKT( t3> > 


TCRHINATC 

900  STOP 
END 


lOriLE 

OOR 


L-R3 


o 

BAN  AACKAOC  AAACNOIX  I lOTUC-NAB 

MAIN  PHOORANt/ROUriNCt  ORI 


IN  OAH.IOPILC 
AIR  OAR. 


• I 


1 


t-fH 


MN  MCKAM  AmNOIX  L 
NAIN  mOORAHt/ROUriNCt 


LMAtC 

Ml 


MOeCtMR  LOCATC  • MCUOO  CXCC  COmiANOi  LOCATC  fUC  ON  NULTiriLC  OIN  IN 


1 NtSTORV 

• 

t — — — — • 

C 

N 

SCHLOSSCR 

Lce 

IB/BB/M 

E 

N 

SCNLOSSCR 

LCC 

ON/BO/7B 

E 

N 

SCHLOSSCR 

LCC 

IB/I7/7B 

E 

N 

SCNLOSSCR 

LCNSCO 

07/BB/B0 

E 

N 

SCHLOSSCR 

LCHSCO 

0S/B7/B0 

NCTNOO 


ORIOtNAL  COOC 
CHCCK  *-*  IN  SCCNC  AUNiCN 
tUMONT  00  ON  Otr  turrCR  rONNAT 
NCNIACC  KNAN  MITH  OCTCHN 
CHK  our  rnr  roon  niNro 


this  NNOCCStON  NNOvtoes  A rseuoo  exec  cohhano  to  locatc  lanosat  stnias  on 
•IN  l*X'l  rONNAT  NULri«riLe  TANC.  it  If  A rCNPORANY  CONNONCNT  or  TNC  oan 
NACKAOC.  OetlONCO  rON  UfC  ONLY  MITH  THC  INTCRIN  OOOOANQ  NULTI<riLC  BIN 
rONNAT  CONTAINING  2 OR  •»  DATA  riLCS  ANO  I flAT  riLC  ON  A SINOLC  RCCL . 


RCfTRICTIONS 


I.  THC  ABSOLUTC  CLCHCNT  rOR  THIS  RROCCSIOR  MUST  BC  STORCO  IN  ThC  OAH  RROORAH 
riLC  IN  RCAL  INOT  VIRTUAL*  rORN. 

>.  THC  rOLLOHINO  CONTROL  CAROS  MUST  ARRCaR  IN  ThC  RUN  BCrORC  ANY  RCrCRCNCC 
TO  LOCATE t 
•AOO  OAH. SETUP 

•ASO.<OPTIONS>  3..US.<REEL  NUNBER> 


SYNTAX 


•LOCATE!. El  3..<LAN0SAT  STRIP  NUHBER> 
NACNINE'OEPENOENT  CODE 
VERRYi I 

external  RErERENCES 


ERPCT  • OCT  part  or  ExeC'B  PROORAN  CONTROL  TABLE 

ERCXIT  0 TERNINATE  PROORAH 

ERrACL  • retrieve  rACILITIES  ASSIONNENT  INfORHATION 

ERPRNT  • print  INAOE  on  tty  or  line  printer  triELOATA) 
ERCRR  • ERRS  TERMINATE 

ERREAO  0 READ  INAOE  rROH  TTY  OR  CARO  READER  iriELOATAI 


L>BB 


n o o o o 


OAH  PACKAOC  AMCNOIX  L 

HAM  AROOIIANt/ROUriNCt 


IWATC 


niNTo  • OCT  riLC  iNfomiAnoN 

•truM  • iNrcmiAi.  tvrc  triitiM  roR  cxtcrnai.  •-•!?  tvrc  triii 

etroct  • CNAHAcrcH  triiiNO  fen  cteoie  tyre  trRiNO 
oertvr  • OCT  ovre  mon  ■rre  otoino 

OCrCNII  0 OCT  CHARACTCO  rROM  CHAHACTCO  OTRtNO 

CRTMAT  0 TtHCO  MAIT  fOR  UR  TO  SO  tCCONOt 
CRIO  0 INtTtATC  I/O 

CRUAIT  0 WAIT  rOR  CORRICTION  Of  I/O 

INTCOCR  ICC  t INTCOCR'CNARACTCR-COUIVALCNT  IfROn  COT I 


OLOOAL  OCCLARATIONf 


INTCOCR  JfCTIfSI 
iNCLuoc  xQTocr.utr 
iNCLuoc  AfNOcr.Litr 
INCLUOC  KONIO.LItr 
INCLUOC  i'locr.Lior 


• CXCC-0  RROORAN  CONTROL  TAOLC  MOT  CO  UOOl 

• ocriNC  otatuo  or  oxor  ortiono 

• OCriNC  UNI  VAC  AOOCNRLCR  RARTIAL  moo  in  fORTRAN  V 
A rORTRAN  HANIRULATION  Of  AROCNOLCR  I/O  CACKCro 

• NNCHONICO  rOR  LOCATIONO  in  flOCf-rORNAr  OurrCR 


LOCAL  OCCLARATIONO 


INTCOCR  INAOCMVi 
INTCOCR  loriLsnoi 
INTCOCR  NRKTStOI/*!* 
INTCOCR  lORUriVOt 
DATA  I00uril>/0/ 
INTCOCR  lANOuriOOl 
DATA  IANOUrni/0/ 
INTCOCR  R /‘AK*/ 
INTCOCR  NO  / *AL‘/ 
INTCOCR  RCU/’A*'/ 

c 

c 

C RROCCOURC 

C 

C 

c 

c rctricvc  rrooran  control 
c 


A CXCC-0  RROCCOSOR  iNfOR  OUffCR 
A riLC  INfORRATION  IN  flOCf  fORNAT  fOR  ''ILC 
A CXCC-0  tarc  I/O  RACKcr  roR  riLC 
A 10  RCCORO  OurrCR 

A CLININATC  ORURIOUO  COHRILCR  OlAONOOriCO 
A annotation  RCCORO  OUffCR 
A CLININATC  ORURIOUO  COHRILCR  OlAONOOTICO 
A RCAO 

A RCAO  OACKMARO 
A RCHINO 


TAOLC  A CONTROL  CARO  ORCCI f I CAT  I ONO 


S 

s* 


CALL  RRCTICO. JRCTI 
CALL  iNroRfOOOOl 
C 

c 

C CHCCK  fOR  *C*  ORTION 

c 

If  e 

A (XOTORTt ’CRROR* i .CO. I > . ANO. 
A lACNTlURCTMTl  I .NC.f  I > 

A CALL  CRCXIT 
C 
C 

C CNCCK  If  tarc  10  AOOIONCO  TO  X. 

C 


A C ORTION  ORCCIfICO  . . . 

A RRCVIOUO  CxeCUTION  OlO’NT  SRROR  TCRnINATC 

A ...  tncn  ionorc  this  *cxcc*  cohnano 


L-*y 


uoou  ouuo  ouuu 


MM  MCKAM  AMCNOU  L 
mUN  PROMANt/IIOUriNCt 


CALL  fLINrOMOriLS. 

iriioruitriocQn.cQ.  oo  re  eto  • mr  Attionco 
irtieriLiiriecori.NC.*rAM*i  «e  re  eeo  • eer  rAec 
c 
c 

e NCAe  NCxr  TAi>e  etecK  ano  cnccr  ir  te  lo  eceeiio 
e 

CAii  loCNrsitmt 
iriNcer.LC.Ntreiei  ee  re  see 
e 
e 

C RCMINO  TAAC.  TNCN  NCAe  A CNCCK  riNSr  10  NCCONO 

e 

seo  CALL  lesiACM.ticoi 

1*0  CALL  lOCNridSAOt 

eo  re  eoo 

m CALL  leiiNCu.sieo* 
leo  CALL  locNritoeooi 
c 
c 

C CHCCK  tr  to  NCCONO  IS  TON  SNCCiriCO  stnin 

c 

800  irtNCcr.co.NorNiNt  oo  ro  ooo 
iriNcer .or.NSTNiNi  oo  ro  oso 


riNO  NCxr  CNO-or>riLC  nank 

CALL  lOSIN.OSOOl 
800  CALL  lOKN. 87001 
OO  ro  800 


NCAO  BLOCK  ACrCN  COf  A CNCCK  If  IT  18  10  NCCONO 
too  CALL  lOCNTHOOlOl 

00  ro  800 


fLAO  TaNC  CNNONISI 
800  CALL  CNNNNTI I .0. ‘TaNC  CNNON’I 

00  ro  080 

810  CALL  CNNNNri|.S.*riLC  NOr  ASOIONCO'I 
00  ro  OSO 

8*0  CALL  CNNNNrn  .3. ‘riLC  NOr  rA^C'i 

00  ro  080 

OSO  CALL  CNNNNril.S.'SrNIN  KOr  ON  rANC** 

8*0  iriASHSf ( jNcrifsi • .co.«i  oo  ro  oso  o only  in  ochano 
irixoroNri*eoNriNuC'i  .co.ii  oo  ro 

CALL  CNCNN  0 CANS  rCNNiNAr ION! > 

c 

c 

C NOeiriON  rANC  OCrONC  lO  nccono 
c 

800  CALL  lOSiN*. 8*001 


LOCArC 

*01 


0*11  OACRAOC  AMCNOIR  L 
MAIN  OHOeOANt/AOUtlNCt 


LOC*rC 

•*>» 


CALL  lOlfOi.tOOOl 

irtAtNM<,^rftttl.SQ.«»>  CALL  CROIINV 1 1 . » . ‘RCAOV*  I • ONLY  IN  OCNANO 
•to  CALL  CMRir 


tWONOUriNC  iNfORItl 


CALL  CARCAOtttfO.IHAOC.NAO) 
irtiNAOCtit .NC. *LOCArc*»  oo  ro  ite 

iriRoroNTi ‘CONriN'i .CQ. I i $ e option  opccirico  . 

A NPKTlIllalNAOClOt  • . . tO  ANT  PILCNANC  OK 

' mNAOCISI  .NC.NPKTSl  n I 00  TO  000 
>>  fLOIf.lO. IHA0C(7I I .NC. ’•  *1  00  TO  070 

NOrOIP*rLO<O.O.IHAOC(7l 

irilNOTNIP.LT.II.OO.INfTOlP.OT.OII  00  TO  070 
RCrURN 

c 

e 

e riAO  SYNTAX  CORORt 

c 

009  CALL  CRPRNTI 1 .0. * INVALID  riLC*l 
00  TO  000 

070  CALL  CRPRNTI  I .•*.*  INVALID  STRIP  NUHOCR*' 

00  TO  000 

000  CALL  CRPRNTI I .R. 'PROORAH  NOT  roUNO'l 

000  RCTURN  . 

C 

c 

c 

c 

c 

c 

OUOROUTInC  IOCNTKOi 

c 

c 

C RCAO  (HOPCruLLTi  10  RCCORO 

c 

ioouriiot«o 

IOOICCfNPRTSI«ttO 
IOAOOR<NPKTli«LOCf lOOUPi 
CALL  lOS'R. 00001 

IPI  lONUOOiNPKTSi  .or.  |i*i  00  TO  000  I TOO  LONO  TO  SC  AN  10  ACCORD 
in  lomsmoorNi  .NC.  *ssT*  I oo  to  ioo 
00  COO  NOY*l .10 

CALL  OCTOYTMtVT.  lOOur.lNOVIl 

iniovT.oT.eoo*  lonismooPNi-'oo' 

COO  continuc 

triionLiinooPNt.NC. *ooT*t  call  crprnti 
0 1.0. ’••■ST  our  pnt  pron  plinpo  urono^^** 
soo  inionLSi7iotrNi.co.‘ON*i  call  oot«oohoOup.  iooup.ooi 
Call  cotncoi loiur.  loiur.oo* 


L'fO 


OVtfU  OUOO  OOOOOOO 


MH  PftCKAGC  APPCNOtX  L 
MIN  fNOeilANS/ROUTtNeS 


LOCATE 

OOS 


RCAO  annotation  NCCORO 

I0A00RIMNKT3I>L0CCIAN0. ' 

CALL  lOStR.SOOO) 

irdOFiLSirtoerHi.eQ. *BO*t  call  BSTneedANOUF.  ianbuf.sooi 

CALL  CSri»eB<  lANBUr.  lANOUr.SOOt 

triXQTORTt'LlST' I .eo.o)  00  TO  800  0 L OPTION  HCANS  LIST  TAPE  HEADERS 

CALL  ERPRNTd.T.tOBUrdn 
CALL  ERPRNTlt  .9.  lANBUFd  n 
CALL  CRPRNTd.lB.IANBUPdOd 


OET/CNECK  STRIP  NUNBER 

000  CALL  OETCHRIKHTCHP.  IDBUP.St 

irtKNTENP.NE. '-*)  CALL  OErCHRCKHTENP.  lOBUF.BI 
IFIKHTEHP.NE. *•’!  00  TO  BOO 
CALL  OETICeiNICe.  l08UF.I*»t 
NCcr»Nicc*ice(’0‘) 

ifiincct.lt. It. OR. iNCcr. or. 4II  oo  to  boo 
CALL  OETCHRIKHTCHP.  lOBUF.IS) 

IFIKHTCHP.NC. ' 'I  00  TO  000 
CALL  OCTICCIHICC.  lOBUF.ISI 
NCCTOT*NICE-tCEI*0’t 
IFINCCTOT.NC.<n  00  TO  800 
RETURN  a NORMAL  RETURN 

BOO  RETURN  I a ERROR  RETURN 


subroutine  I03INXTFUN.SI 

ipinxtfun.nc.lstfuni  call  crtuatieooo)  a RCvER^r  tapes  ocntlyii 

t0rUNCINPKT3>-NXTFUN 

L$TFUN>NXTFUN 

CALL  ERI0INPKT3I 

inioruNCiNPKTS) .OT.O)  call,  crtuati tot  a fix  for  exec  problem 

CALL  CRUAI TINPKTSt 

IFdOCOOCiNPKTSt  .EQ. ’EOF’ I RETURN  ? a EOF  CNCOUNTCREO 

RETURN 


END 


OAH  PACKAOe  APPCNOIX  I 
HAIM  PROORANS/ROUriNCS 


LOCATC^NAP 

Ml 


IN  OAN.LOCArC 
LIB  OAN. 


o«N  f>*e«*oe  kfKwi*  L 

MAIN  PMOORAHS/IKMiriNCS 


AOCATC-nAP/VinTUAL 

001 


IN  OAN.LOCATC 
tit  OAN. 


oooonrtoooooorioooooonnooortoooooonnooooooooooooooooooooortO 


OAN  PACKAOC  APPCNOtX  L 
MAIN  IMIOftllANS/ROUrtNCS 


USMA# 

0«l 


raOOKAN  USMAP  • SUAP  TAPE  OftlVC  UNITS 


Ml STONY 


C H SCMLOSSCN  LCC 


ie/09/77  ReOUIRCHeNTS 


NCTHOO 


this  NNOCeSSOR  ACL0U8  THE  USER  TO  SWAP  TAPE  DRIVE  UNITS.  USHAP 
OENERATES  ALL  THE  NECESSARY  EXEC  COHNANOS.  HRITES  THEM  TO  TEMPORARY 
PILE  eO.  ANO  then  AAOO-S  pile  80  TO  THE  RUNSTREAN. 


RESTRICTIONS 


I.  THE  ABSOLUTE  ELEMENT  POR  THIS  PROCESSOR  MUST  BE  STORED  IN  THE  0AM  PROGRAM 
PILE  IN  REAL  (NOT  VIRTUAL  I PORN. 

8.  THE  POLLOHINO  CONTROL  CARO  MUST  APPEAR  IN  THE  RUN  BEPORE  ANY  REPERENCE 
TO  this  PROCESSOR: 

SAOO  OAN. SETUP 

3.  A tape  reel  NAY  NOT  BE  SHARPED  MORE  THAN  ONCE  IN  ANY  RUN. 

<».  IP  TUO  tape  PILES  ARE  SPECIPIEO.  THEY  MUST  HAVE  THE  SAME  DENSITY 
ANO  NUMBER  OP  TRACKS. 


syntax 


•usuAPt.Ei  (Tape  pile  name>i.<tape  pile  name>i 


EXTERNAL  REPERENCES 


ERPRNT 


global  OECLARATIONS 


NONE. 


LOCAL  DECLARATIONS 


(TO  BE  OETERMINEOt 


t-33 


OAN  MCKAOC  APPCNOIX  L 
HAIN  MooRAns/ROuriNes 


USMA^ 

OOS 


C MOCeOURC 


CALL  CRPRNrfl.i». 

sroR 

CNO 


‘usuAP  NOT  inPLeHCNreo*i 


{ 


\ 


; 


* 


OKlGiNAL  PAGE  IS 
OF  POOR  QUALm* 


i-s** 


o 


OAN  ^ACKAOe  APKNOIX  I. 
NAIN  PHOORAMS/AOUTINCS 


USHAP-NAP 

toi 


IN  OAN.USHAP 
Lit  OAH. 


C 


L-S5 


OAH  PACKAOr  APKNOIX  L 
MAIN  MOOHAHS/ftOUriNCt 


CIITS«OUf» 

001 


•MOO  OAN  CRrs>OUPl770SI 
•JUNO  OCOIN 

•UOAOCt  . THIS  cxec  0 COHHANO  STNCAH  COMICS  CRTS  TARC  INN  TO  OUT.  lONORINO 
TRANC  COUNT  CRRORS.  IF  UNRCCOVCRAOLC  PARITY  CRRORS  OCCUR  IT 
RCMINOS  OOTH  TAPCS  ANO  TRICS  AOAIN.  IP  AND  HMCN  AN  APPARCNTLY 
SUCCC88PUL  COPY  18  HAOC.  THC  COPY  18  lOCNTIPICO  ANO  VCRIPICO.  ANO 
TMC  RUN  TCRNINATCO.  (C  N SCHL08SCRi 


•UOAOCt 
•UOAOCt 
•UOAOCt 
•UOAOCt 
•U8A0C  t 
•U8A0C  t 
•U8A0C  t 
•U8A0C I 
•OCOINt 
•8CTC.I 
•U8C  3. INN. 

•RCHINO  3. 

•XQT  CRTSIOC 
•RCHINO  INN. 

•RCHINO  OUT. 

•LOO  OAN  CRT8-OUP(7703t  •-  PIR8T  TRY 

•COPY.HN  INN.. OUT.. S . NU8T  HAVC  S3>*8  BL0CK8  PCR  OATA  PILC  PIR8T  TRY  *««• 

•TC8T  TO/t/88 


8CC  OAN.CXP'CRTO'OUP  FOR  IN8TRUCTI0N8 
8CC  0AH.RUN>CRT8*0UP  FOR  OAHPLC  RUNSTRCAN 


DON’T  ABORT  RUN  ON  CRRO  TCRHINATION 


•JUMP  OK 
•RCHINO  3. 

•XQT.C  CRT8I0C 
•RCHINO  INN. 

•RCHINO  OUT. 

•LOO  OAN  CRT8-OUPC7703I  --  SCCOND  TRY 

•COPY.HN  INN.. our.. 8 . NU8T  HAVC  83ta  BL0CK8  PCR  DATA  FILC  •••«  SCCONO  TRY 

•rcor  T0/I/S8 


•JUMP  OK 
•8HAPi 

•TC8T  TC/0/T8 

•JUMP  CNO  . (ONLY  8HAP  ONCCI 
•U8C  OLOINN.INN. 

•uoe  OLOOuT.our. 


•uoe  INN.NCHINN. 


•U8C  our.NCHOur. 
•JUHP  CNO 


• OKI 

•FRCC  INN. 

•CL08C  our. 

•U8C  3. OUT. 

•xor  PICTAB 
CXIT 

•FRCC  OUT. 

•FIN 
•CNO  I 

•8CTC.A  I/T8  . RC8CT  • PLAO 


L-37 


ooooonoooooooooooooooooooooooooonoooooooooooooooooooooo 


DAN  PACKAOC  APKNOIX  L 
HAtN  MOORANt/MOUTINCt 


CRTSIOC 

OOt 


PROORAN  CRTSIQC  • PRINT  IQ/NCAOCR  AND  ANNOrATION  RCCORO  INPO 


HitrORV 


C N tCHLOSSCR 
J C CRISP 


LCC  08/fS/73  ALOORITHH  COOINO 

LCC  io/e«»T7s  Revise  to  use  char  aupreR  routincs 


neTNOo 


CALL  OPCNS  TO  RCAO  lO/HCAOeR  AND  ANNOTATION  RCCOROS.  CALL  ROUTINCS 
TO  PRINT  INPORHATION  CXTRACTCO  ANO  COHPUTeO.  BUILD  BUPPCR  TO 
PUT  CRTS  ID  ON  TAIL  SHeCT. 

CRTS  CONVeNTIONS  POR  ATTITUOe  ANO  HCAOINOi 

POSIT  I VC  PITCH  IS  NOSC  OOHN 

POSITIVC  PITCH  IS  CLOCKHlSe  VICUCO  PROH  BCHlNO 
POSITIVC  YAH  IS  COUNrCRCLOCKUlSC  VIChCO  PROH  ABOVC 
POSITIVC  HCAoiNo  IS  cLOCKHise  vieueo  proh  abovc 


HACHINC-OePCNOCNT  COOC 


utilizcs  univac  exec  b cr  csps  and  cr  prints 


CXTCRNAL  RCPCRCNCeS 


PSTART  a iNiriALIZe  PROORAH 

0PCN3  a OPCN  input  hss/rbv  pilc  ASSIONCO  to  unit  3 

IOLU3  a PRINT  SHORT  10  POR  LOGICAL  UNIT  3 

IDCRTS  a PRINT  COHPLCTC  CRTS  SCCNC  10 

CBINIT  a INITULIZe  CHARACTER  SUPPER 

CBVC8T  a character  BUPPER  POR  character  string 

CBVIN  a character  BUPPER  POR  INTEGER 

ERCSP  a SUSHI T EXEC  CONHANOS 

PSTOP  a PROORAH  TCRHINATIOV 


EXCEPTIONS 


NONE 


9L0BAL  OeCLARATIONS 


INCLUDE  KONXOT.LIST  a COHNON  PROORAH  SWI TCHCS. COUNTERS 


L-3S 


o o u 


OAN  PACKAOC  APPCNOIX  L 

hain  PROOMANt/nounNCt 


CRTtlfle 

OM 


mCLUOC  KONNCM.LtST  • eONNOII  CRTt  tCCNC  PANAHCTCIIt 

iNCLuoc  leiuPl.iitr  • occlarc  cnaractcii  ■urpeR  • i 


LOCAL  OCCLARATIONt 


NONC 


PROccouiie 


INiriALIZC  PROORAN  AND  OPCN  iNPUf  NSS  PILE  ON  UNIT  3 

CALL  POrARtt  *OAN  CRTSIOC  (00091*1 
CALL  OPCN  3 

ir  (NOATAC.NC.O*  00  TO  900 


lOCNTIPY  UNIT  3 NARONARC/SCNSOR/SCCNC/OAre/erC 


CALL  CRPRNT  ( I . I . ’ ’ I 
CALL  I0LU3  (6) 

CALL  lOCRTS  (Ot 


C 

C 

C PUT  SCENE  10  INTO  UNI  VAC  CXCC-9  SYSTCN  LOO  SO  IT  OCTS  PRINTCO  ON  TAIL  SHEET 
C 


CALL  CRINir  (icount 
CALL  COPCST  iicouri. 

CALL  coHcsr  (I court. 

CALL  COHCSr  1 1 court. 
CALL  CO«IN  (I court. 
CALL  ce«»iN  itcourt. 
CALL  copcsr  iicouri. 
CALL  COPIN  (I court. 
CALL  copcsT  (icaurt. 
CALL  COPIN  (I court. 
CALL  C0PC8T  (ICOUri. 
CALL  COPIN  (icouri. 
CALL  COPCST  (I court. 
CALL  ERCSr  (NAO. icouri I 


‘•LOO  * . ( I I . (SM 
NERSAT. ( 1 1 . 1 101  I 

* SCENE  ‘.(II.CYIt 
NERTSI 1 1 . 1 I 
NERrS(Oi.P.‘0‘l 

• I 

NERTSISt.S.'O’l 

• CCT  * . I n . (7M 
Nccr.i  I 

* or  * . 1 1 1 . (<»n 

NCCTOT. I I 

• . ‘.(II.JSJ  » 


c 

c 

C TERNINATE 

c 


900  CALL  PSTOP  (*0***PLEA8E  orOEE  3.  OR  IREUINO  3.  OR  OLOCATE  3. ‘I 
ENO 


OAN  ^ACKAOC  AMCNOIX  L 
MAIN  MOOAAnt/XOUriNCS 


curt  I DC  NICtAflCHV 


cnrtioc 

I 

I 

t 


t 

I 

I 

s 

rarAfir 


t 

t 

t 

t 

OKNS 


t 

I 

t 

t 

MTO^ 


CXTttOC^MU 

OOt 


OAH  ^ACKAOe  A^MNOIX  L 
NAIN  fWOONANt/ROUriNCt 


cnrtioe/viiirvAi 

Ml 


MOONAN  MrtlOC/VlRTttAI. 


Nl  STORY 


C K tCNLOttCR  LCe 

C N tCHLOStCR  LCe 


OS^Ot/TH  OmOINAL  cooc 

tl/Oe/YO  ANAR.rZtNIt  NO  *N*  IN  OCMAND) 


NCTNOO 


eoNSTRucr  anAA  txcc  conhano  to  link  ncal  aosolutc  in  tnys. 

CONSTNUCr  aXQT  ^ ONHANO  TO  CXCCUTC  NCAL  AOSOLUTC  IN  TAff. 
HRITC  INAN  a a>:iT  CONNANOS  TO  TCNNONANY  rUC  00. 
lAOO  TCNNONARr  riLC  00.  TO  NUNSTACAN. 


HACNINC-OCOCNOCNT  COOC 


HNITTCN  in  ASSCHSLCR  rOA  ThC  uni  vac  1100  SCRieS  CONRUTCRS  UNOCR  THC 
CXCC-0  ORCRATINO  SYSTCN  USINO  0*01 r riCLOATA  CNARACTCRt. 
INRLCNCNTInO  cooc  NUST  OC  RCURITTCN  rOR  OirrCRCNT  charactcr  cooco. 
OirrCRCNT  ORCRATINO  SYSTCNS.  ANO  OirrCRCNT  NACHINCS. 


CXTCRNAL  RCrCRCNCCt 


CR  csrs  a 

CR  IONS  a 

CR  exiTs  a 

OAN.CRTSIOC’NAR 

OAN.SYS'NARORT 


rUNCriON  TO  subhit  cxcc>o  control  otatcncnt 
INITIATC  I/O  ANO  WAIT  rOR  CONRICTION 
TCRHINATC  RROORAN  CXCCUTION 
a SYMBOLIC  MAR  OIRCCTivCt  TO  LINK  COIT  NCAL  AOSOLUTC 

a stanoaro  mar  ortions  uhcn  link  coitino 


cxccrtions 


I.  RCSULTS  ARC  UNOCRINCO  UNLCSS  TMC  RILC  OAN.  IS  SASO-0  0 aRRCR'O. 


OLOSAL  OCCLARATIONS 


(RROORAN  TYRC  IS  RRC'LOAOCO  BY  CXCC  INTO  RCOISTCR  A<*  AS  ROLLOHSi 
I 0 • RCAL  TINC 
( S • LOU  CXCC 
( «»  • OCNANO 
I S • OCAOLINC  BATCH 
( 8 • SATCN 

(SXOT  ORTIONS  ARC  RRCLOAOCO  BY  CXCC  INTO  RCOISTCR  AS  IN 


L-iM 


CRTtiee/VlIITUM. 

00* 


u 


OON  OMKAOC  AMCNOU  L 
MIN  MOONANt/MUnNCt 


(NAOTCN  Oil  NOTAriON. 


! LOCAt  OCCLAOAflONt  « 


ANNO 

tIOOl  . 

O-OANK 

tOOH 

TORN 

0.0.0.10 

• 

lint  lf>ttO*SnnSAAHAA*OSSflOS000000777777000000000000 

LAOOOr 

OOON 

oso.i.*r*.o 

A 

LAOCL.  1 HO.  rOATRAN.  TICLOATA 

LAOINO 

• 

•oorr«* 

NAOtor 

OOON 

000.0.0.0 

» 

OATA.  0 MOO.  . riCLOATA 

NANI NO 

A 

OXQTOi  NAR.rZN  OAH.CRTOIOC'NAA.CRTOIOC  lOXOfO* 

Aoooor 

OOON 

000.0.0.0 

AoeiHO 

A 

•xoroi  AOO  OAH.o 

TO 

•NARorr  . loxoro* 

xQTtor 

SOON 

000.0.0.0 

KQtiNO 

A 

Axoroi  xor.t 

CRTOIOC  tOXQTO’ 

coftor 

• 

0 

A 

CNO'Or-riLC  ofor  moro 

pf 

fCRN 

It. 0.10 

COfAtO 

*OAOO.r  to.  . 

cor ADO 

*0A00  to.  . 

•A VACO 

ACS 

1 

lONKT 

• 

1000 

*tO*.HO  SS.LAOOOr 

.•0*  0 

.*  NNOCCOUNC 

• **”*****” 

0*011  . 

1 >OANK 

CNTOIOC* 

LA.U 

AO.  * 

A 

AO  • 

TNC.U 

AA.V 

A 

SKir  MCXT  iNsr  tr  a«<>«  inot  ocnano* 

OA.Ot 

AO.NAAIHO^t 

OCNANOi  OLANK  OUT  N OAT  ION 

LA 

AO.fCOrAOOl 

A 

AOORCOS  or  OAOO  IHAOC 

CR 

coro 

A 

00  IT 

• 

OA 

AO.OAVRCO 

• 

OTOAC  A 

• 

AORiNT  irr  e.t.oAvRCOi 

ARINT  OAOO  status 

OCTOAT 

LOAD  OAT  LTAO  INTO  At.AS.AA 

ruTorr 

00 

At.xoriMO*t 

OTOAC  OATION  LCTTCAO  INTO  IXQT  tHAOC 

OA 

AA.XOriNO*** 

IS  HOAOO  -•  NAX  10  OAT  LCTTCAO) 

UNITC 

LA 

AO.  1 lOAK^r  I 

AOOACOO  or  1/0  aackct 

CR 

lOUO 

UAITC  oor  IHAOCS  TO  to. 

AOO 

LA 

AO. (CorAoOl 

AOOACOO  or  OAOO  inaoc 

CR 

coro 

, 

00  IT 

CR 

cxiro 

CNO 

CRTOIOC 

o 


0*11  MCKAM  *mN0IK  L 
MAIN  MeonANt/MOUtlNCS 


cortioe*(MO 

•01 


IN  OAN.CttTtlOe/ . .NTAit/OAH, .•Vt'iLOCK 
LIO  PAN. 


« 


OOOWOOOOOOOOOOOOOOOOOOOOOOOOOOOOUOOOOOO  OUUUUOUOUUOOOOOO 


0AM  PACKAOC  APMCNOIX 
MAIN  MOOMAHS/ftOUnNCV 


MICTAt 

001 


pooeMAn  PtcTAO  0 PicruRC/rAOULAre/oiSPLAY/Lisr/rAcroR  mss  data 


HISTORY 


e H S‘‘HL0SSeR 
J C CRISP 


LCC  07/0R/7S  ORIOtNAL  COOC 

LCnSCO  OS/aO/RO  uporaoc  oocuhcntation  a aoo  komks 


NCTNOO 


THIS  PROGRAM  PICTURES.  DISPLAYS.  LISTS.  TASULATtS. 
CORRCLATCS.  FACTORS.  HOOCLS.  ANO/OR  PARTITIONS  RAM  OR 
TRANSFORNCO  data  from  LANOSAT  BIPI'X‘1  or  eiLC'AN'  OR  *PH*i 
COMPUTCR-CONPA'IBLe  TAPE  ASSIONEO  TO  LOGICAL  UNIT  3. 


ORtOlNS  A UINOOHS  ARE  SPECIFIED  BY  SCANNER.  OEOORAPHIC. 

OR  UTH  coordinates.  IN  ORDER  TO  HINiNiaE  TAPE  ACCESSES. 
THE  FIRST  ORtOIN  SHOULD  HAVE  THE  LOMEST  LINE  NUMBERS.  AND 
EACH  SUCCEEDINO  ORIGIN  PROGRESSIVELY  HIGHER  SCAN  LINE 
NUMBERS. 


MACHINE'DEPENOENT  CODE 


NONE  . 


EXTERNAL  REFERENCES 


NVIATO  A NAME 

VIATO  a CALL 

VIA 

EXTERNAL  PICOOO. 


•VIA*  ’TO*  routines 
•VIA*  *T0*  routines 
TO 

PICXQT 


EXCEPTIONS 


I.  IF  CONTROL  HAS  NOT  BEEN  EXECUTED  IN  THE  CURRENT  RUN  PRIOR  TO 
PICTAB  and  SATISFACTORIL y adjusted  a control  network  for  the 
SCENE  TO  BE  PROCESSED  BY  PICTaB.  THEN  PICTAB  MILL  USE 
NOMINAL  registration  PARAMETERS  AND  NOMINAL  SCENE  CENTER. 

a.  IF  PICXQT  ODES  NOT  CALL  NViATO  TO  CHANGE  THE  *V|A*  ANO/OR  *T0' 
routines,  then  PICTAB  HILL  CALL  TO  PICXQT  IN  AN  ENDLESS  LOOPl 


GLOBAL  declarations 


L-NS 


OAN  l»ACKAOe  APPCNOIX  L 
NAIM  PMOOKANS/ftOUriNCS 


PICTAQ 

OOC 


e 

INCLUOC 
INCLUOe 
INCLUOr 
INCLUOC 
INCLUOC 
INCLUOC 
INCLUOC 
INCLUOC 
INCLUOC 
INCLUOC 
INCLUOC 
I NCL  UOC 
I NCL  UOC 
INCLUOC 
C 

c 

C PROCCOURC 
C 

c 

c 


KONXQT.LISr 
KOHL 00. LIST 
KONLUS.LISr 
KOHL US. L 1ST 
KONIHH.LIST 
KONOUN.LISr 
KOHNCR.LlSr 
KOHKLS.LIST 

KONPi r ,L isr 

KONIRT.L 1ST 
KONALT.LISr 
KONSVH.LIST 
KONKS.LISr 
K0NT8L .L ISr 


• CONNON  RROORAN  CXCCUTION  SHirCNCS.  COUNTCRS 

• CONNON  LOO  PILC  BUPPCR.  I/O  RXr.  POINTCRS 

• CONNON  POINTCRS/PLAOS  FOR  UNIT  3 

A CONNON  POINTCRS/ PL AOS/ eurrCR  POR  UNIT  S 
A CONNON  INPUT  UINOOM  PACXCTS 
A CONNON  OUTPUT  HI  NOON  PACXCTS 
A CONNON  CRTS  SCCNC  PARANCTCRS 
A CONNON  CLASSIPICATION  INPO 
A CONNON  AOJUSTNCNT/RCOISTRATION  PARANCTCRS 
A CONNON  IRRAOiANCC  TRANSPORHAT I ON  COCPPtCICNTS 
A CONNON  ALTCRNATC  PRINT  PILC  COUNTCRS.  POINTCRS 
A CONNON  SYHBOL  TABLE 
A CONNON  COLON  SCRCCN  PARANCTCRS 
A CONNON  NULTI -PURPOSC  TA8LC 


CALL  NVIATOC  PICOOO .PICXQT)  A FIRST  CALL  IS  VIA  PICOOO  TO  PICXQT 

100  continue 

CALL  VIATO 

00  TO  too 

CNO  a ISTOP  IS  PCRFORNCO  8V  APPROPRIATE  ‘TO*  ROUTINEI 


OAH  NCKAOC  APPtNOU  t 
HAIN  PMOPANS/IIOUriNCS 


PICTAa*NU 

001 


PlCTAi  NlCOAflCNV 


PICTAO 

t 

t 

t 

Nvuro 

v;a?q 

t 

t 

t 


t 

t 

I 

picieo 

t 

t 

t 

t 

PIC. . I 
PIC.  .e 
PTC.  .9 


t 

t 

t 

PICOOO 

: 


Picxor 


KHO. 


PIC, 

: 

: 

t 

: 


KNOXXX 


picexi 


t 


t 

PIC3«»5 

: 

t 

i 


PIC.  .3 
PIC.  .*» 
PIC.  .5 
: 


OtrpAO 


: 


t 


: : : : 

t t t : 

s : I : 

: 0PCN3  t SYSAOO 

PSTART  tORCON 

I 

t 

oer-ptcTAB 


$ 

: 

: 

: 

t 

X 

; 

t 

t 

t 

RCA03 

Close 3 

{ 

PSTOP 

CLOSPR 

oierPR 

t 

I 

OPRPIC 

: 

} 


1 

X 

: 

: 

s 

: 

: 

: 

: 

: 

: 

CAICHA 

CAISYN 

CAL SPA 

CALHIN 

CROPOU 

CCNTtC 

OPCNPR 


0«lt  l»ACKAOe  APPCNOIX  L 
MAIN  PROORAnS/ROUnNCS 


PICTAt/VlIirUAL 

001 


raooMAN  PtcrAO/vmruAL 


HiSrOMY 


C N SCHLOSSCR  LCC 

e N SCHLOSSCR  LCC 


00/08/7H  ORieiNAL  COOt 

11/00/70  AMAP.FXtNlt  NO  ‘N*  IN  OCNANOI 


NCTNOO 


CONSYRUCr  AHAP  CXOC  COHHANO  TO  LINK  RCAL  AOSOLUTC  IN  TPFS. 
CONSTRUCT  AXQT  CONHANO  TO  CXCCUTC  RCAL  ABSOLUTE  IN  TPrs. 
HRITE  AHAP  A AXOT  CONHANOS  TO  TCHPORARV  FILE  80. 

AAOO  TCHPORARV  FILE  SO.  TO  RUNSTREAH. 


HACNINC-OEPCNOENT  CODE 


NRITTCN  IN  ASSCHBLER  FOR  THE  UNIVAC  1100  SCRIES  CONPUTERS  UNDER  THE 

CXEC-B  opcratino  systeh  usino  s-bit  fieloata  characters. 

IHPLEHENTINQ  CODE  HUST  BC  REMRITTCN  FOR  OIFFCRENT  CHARACTER  COOES. 

different  opcratino  systchs.  ano  different  HACHINES. 


EXTERNAL  REFERENCES 


ER  CSFS  A 

CR  IONS  A 

CR  EXITS  A 

OAH.PICTAB'HAP 
OAH.SYS-MAPOPT 


FUNCTION  TO  SUSHI T EXEC >8  CONTROL  STATEHENT 
INITIATE  I/O  ANO  WAIT  FOR  COHPLETION 
TERHINATC  PROORAH  EXECUTION 

A syhbolic  nap  directives  to  link  edit  real  absolute 
A standard  nap  options  nhcn  link  editing 


EXCEPTIONS 


I.  RESULTS  ARE  UNDEFINED  UNLESS  THE  FILE  DAN.  IS  AASO-O  A APREP'O.  . 


OLOBAL  DECLARATIONS 


(PROORAH  type  is  PRE-LOADED  BY  EXEC  INTO  REGISTER  AH  AS  FOLLOHS: 
( S > REAL  tine 
( 3 • LOU  EXEC 
( H • OCNANU 
( S • DEADLINE  BATCH 
( 6 • BATCH 

(AXQT  OPTIONS  ARE  PRCLOAOCO  BY  CXEC  INTO  RCOISTER  AS  IN 


L-NB 


OAH  MCKAOC  API»rNOtX  L 
MAIN  PMOORAHf/MOUriNCt 


pierAt/vmtuAA 

OM 


INAtrCR  lir  NOTATION. 


. LOCAL  OCCLARATIONS 


AXM 

Stool  . O-OANK 

SSSM  PORH  6.0.0.10 

1 1 1 1 1 l06«868333333<»*»<»«»i»i»8SS588a666667777778eeeoe»909S9 
LAOSOr  SS8H  080rl.*P‘.0  . LA6CL.  I MO.  PORTRAN.  PICLOATA 

LAOINO  ••80PP«* 

NAP80P  SSSH  000.9.0.0  . DATA.  9 HOS.  . PICLOATA 

NAPINO  ’OXOTSi  NAP.P3N  OAn.PlCTAe-NAP.PICrAB  . tAXQTS* 

AOOSOP  SSSH  000.9.0.0 

AOOINO  'OXOTSi  AOO  OAH. SVS'HAPOPT  . tSXQTS' 


XQT80P 

SSSH 

000.9.0.0 

XQTIHO 

'OXOTSi  XOT.I 

COPSOP 

• 

0 

• 

PP 

PORH 

18. 6. 18 

CSPASO 

*aA80.r  80.  . * 

C8PA00 

'lAOO  80.  . 

SAVRCO 

RCS 

1 

lOPKT 

• 

ISOO 

'80*. MS  33.LABS0P 

. PROCCOURC 

Sion  . 

1 'BANK 

PICTAB* 

LA.U 

AO.  * 

• 

TNC.U 

AH.H 

8A.se 

AO.HAPIHO*8 

LA 

AO. tCSPASOt 

CR 

CSPS 

• 

8A 

AO. SAVRCO 

• 

PSRINT 

(PP  8.1 .SAVRCO) 

OCT OPT 

PUTOPT 

OS 

AC  XQT|N0*8 

SA 

ah.xqtino^h 

MRITC 

LA 

AO. ( lOPKTI 

CR 

IONS 

AOO 

LA 

AO. (CSPAOO) 

. 

CR 

CSPS 

CR 

CXITS 

CNO 

PICTAB 

PICTAO  . lOXQTS* 

CNO'OP-PILC  STOP  MORO 


. '0*  0 


AO  • 

SKIP  NCXT  INST  IP  AHO>*  INOT  OCHAHOI 
OCHANOI  BLANK  OUT  N OPTION 
AOORCSS  OP  OASO  IHAOC 
00  IT 
STORC  i 

PRINT  OASO  status 

LOAO  OPT  LTRS  into  A8.A3.AH 

STORC  OPTION  LCTTCRS  INTO  OXQT  INAOC 
(3  MOROS  --  HAX  IB  OPT  LCTTCRS) 

AOORCSS  OP  I/O  PACKCT 
URITC  SOP  INAOCS  TO  80. 

AOORCSS  OP  AAOO  INAOC 
00  IT 


L-H9 


OAN  PACKAdr  APPCNOIX  L 
MAIN  PPOOPANS/ROUriNCS 


PICTAI-NAP 

001 


PICTAO  OVCOLAY  OTRUCruilC 


Nitropv 


• 

C N SCHLOSSCR 

LCC 

03/18/70 

• 

C N SCHLOSSCR 

LCC 

07/IN/7B 

• 

C H SCNLOSSCR 

LCC 

Ot/IB/70 

A 

J C CRISP 

LCC 

IO/ON/79 

* 

J C CRISP 

LCNSCO 

OI/tO/BO 

• 

J C CRISP 

LCNSCO 

OS/IB/00 

l!b 

OAN. 

SCO 

S'NAIN 

IN 

oam.pictab/  . 

MAIN  PROORAN 

IN 

OAN.NVIATO 

NAME /CALL  *VIA 

• ANO  *T0* 

IN 

OAN.NULSUB 

00 

NOTHINO 

IN 

OAM.SYS'BLOCK 

• 

BLOCK  data 

subroutine 

OPIOINAL  cooe 

CNANOe  OVCRLAVS  TO  RCOUCC  THPAOHINO 
MACRO  eONMANOS  % YIHC  CONNANO 
PCCK.  POKC.  COLOR.  iNrCNSI TY.PICTURC 
ir.  ri  % opYiNize  ovcrlays 
crosstab.  CHANOe  OISTAB  to  KHOTAB 


SUBROUT  I NCS 


. utilities  roR  main - - - 

SCO  s-rLiNro«.(s>MAiNi 

IN  OAN.rLiNPO  . OCT  PILE  OCSCRIPTIVC  INPORNATiON 

SCO  S-R3TASCSRTB*.IS-MAINi 
IN  OAN.RSTRCC  . RCAO  ONE  RECORD  PROM  TAPE  (UNIT  31 
IN  0AN.CST4AS  . CNARACTER  STRINO  POR  ASCII 
IN  OAM.ISRTBA  . INTCOCR  BUBBLE  SORT  ASCCNOINO 


. MONITOR  POR  phase  O.I.E.S  COMMANDS  - 

SCO  s-Picoias*. (S'PL inpo.s-rstascsrtbi 

IN  OAH.PICOOO  . CALL  USER-SPCCIPICO  PHASE  0 ROUTINE 

IN  OAN.PICiaS  . CALL  PREVIOUSLY  NAHCO  PHASE  |(?/9  ‘TO’  ROUTINE 

IN  DAH.NTABS/OAM  . OAN  UNIT  • TABLE  OOES  IN  SANE  SCO  H/  PORTRAN  I/O 


. utilities  POR  PHASE  0.1. 0.9  CONMANOS 


SCO 

IN 

IN 

IN 

IN 


S-RCAOS* . 
OAN. READS 

OAM. OCTS 
DAN. warns 

OAN.  SPANS 


(S-PICOIOSl 

'READ*  INTO  UNIT  S BUPPCR 
•OCT*  PREC-PORHAT  PIELO  PRON  :;NiT  S 
■ PROCESS  WARNING  DIAGNOSTIC  POR  UNIT 
. ENABLC/OISABLE  SPANNING  POR  UNIT  S 


BUPPCR 
S PIELO 


SCO  S'OPNCLPR* . IS-PICOtOSl 
IN  OAN.OPRPIC  . OPEN  ALT  PRT  PILES 
IN  OAN.CLOSPR  . Close  alt  PRT  piles 


SCO  S*CALCROP«.(S*PICOI09I 


L -SO 


OAN  MCKAOC  AmiNOtX  L 
HAIN  PMOORAnS/ROUriNCS 


IN  OAN.CALSYN  . CALIMATC  SVHtOL  TANLC 

IN  OAN.CALtPA  . CALINNArC  PNINr/PLOT  COCrPICICNTt  PON  tPACINO 
IN  OAN.CALHIN  . CALINNArC  HINOOH 
IN  OAN.CALCNA  . CALIBNATC  CHANNEL  POINYENt 
IN  OAN.CNOPOM  . CROP  SCANNER  OUtPUT  UlNOOH  TO  PIT 


. PHASE  O.I.E.S  CONHANOS  (PORTRAN  I/O  ALLOHEOt  — - - 

SEO  S-XQrEXI«.(S-RCA08.S-0PNCLPR.S-CALCROPt 
IN  OAN. Plexor  . PICTAO  INirULIZAriON  ROUTINE 
IN  OAN.PICEXI  . PICTAO  TCRHINATION  ROUTINE 

SCO  8-PsrARr«.(s-xQrexii 
IN  OAN.PSTART  . OENERAL  INITIALIZATION  ROUTINE 

SEO  S>0PEN3«.I8-X0TEXI) 

IN  OAN. OPENS  . OPEN  INPUT  SCAN  DATA  PILE  (UNIT  31 
SEO  8-0P30SK«.(S*0PEN3l 

IN  0AH.0P308K  . OPEN  INPUT  ••  DISK  IN  PX80EP  PNT  lUNIT  3> 

SEO  ?-0P3BIP«.(S-0PEN3l 

IN  0AH.0P3BIP  . OPEN  NSS  DATA  IN  BIP  PHT  (UNIT  31 
SEO  8-OP3HOP«.C$>OPEN3) 

IN  OAN.OP3HOP  . OPEN  NSS  DATA  IN  NOP  PNT  I UNIT  31 
SEO  S'OSrORHOR* . (S-OP3NOPI 

IN  0AN.03T0R  ■ NOP  PNT  TAPE  OIRECTORY  RECORO  (UNIT  3> 

IN  0AH.03H0R  . NOP  PNT  MEAOER  RECORO  (UNIT  31 

SEO  S-03AN0T*.(S<0P3N0Pi 

IN  0AN.03AN0T  . NOP  PNT  ANNOTATION  RECOROS  (UNIT  3> 

SEO  S*03SZAN« . CS'OSANOr I 

IN  0AN.03SZAN  . SIZE  ANO  INPUT  UINOON  POR  AN  TAPES 
SEO  8-03SZPN* . (S-03AN0T) 

IN  0AN.03SZPN  . SIZE  ANO  INPUT  UlNOOM  POR  PN  TAPES 
SEO  S-038ZAR* . IS-03AN0TI 

IN  0AN.03SZAR  . SIZE  ANO  INPUT  MlNOOH  POR  AR  TAPES 
SEO  S-03SZPR*. (S-03AN0TI 

IN  0AN.03SZPR  . SIZE  ANO  INPUT  MINOOU  POR  PR  TAPES 
SEO  S-03ANCL*. (S-OPSNOP> 

IN  0AN.03ANCL  . NOP  PNT  ANCILLARY  RECOROS  (UNIT  S> 

SEO  S'LOREOO* . (S'XQTEXI I 

IN  oan.loreob  . LOAO  reo'stration  paraneters  pron  unit  8 
SEO  S’CLOSrOP*.  (S'XQTEXM 

IN  OAN. CLOSES  . CLOSE  INPUT  SCAN  OATA  PILE  lUNIT  3« 

IN  OAN.PSTOP  . OENERAL  TERNINATION  RO>;TINE 


pictab>nap 

oot 


L-SI 


OAN  f>ACKAOC  AI»PeNOIX  L 
MAIN  MOORAHt/NOUriNCt 


^ICTAt'NA^ 

eos 


•CO  ••HCLP«.(« 
IN  OAH.KHOCLC 
IN  OAH.KHOCXP 
IN  OAN.KHOrt 
IN  OAN.KHOIF 
IN  OAN.KHONCN 
IN  OAN.KHONCX 
IN  OAH.KHOOrr 
IN  OAH.KHOON 
IN  OAH.KNOPCe 
IN  OAH.KNOPOK 
IN  OAN.KHONCN 
IN  OAH.KNOriH 


•NCAOS . ••OPNCLM.  ••CALCROf  I 
. CLCAR  NARNlNOt/CRRORS 
. eXRLAIN  NROORAN/CONNANO 
. CNO  IF... PI  tLOCK 
. OeOIN  IF... FI  OLOCK 
PHI NT  NCMS 

. CONOinONALLT  NCRFORH  NCXT  CONNANO 
. TURN  OFF  NOK  SHirCHCCSi 
. TURN  ON  HOOe  SMITCMICSI 
. PCCK 
. NOKC 

. NCNUHOCR  IOCT/CHCCK  NCH  HINOOM  fCOUCNCC  NUHSCRI 
. PRINT  CLOCK  Tine  A CHANOC  TINC 


SCO  S-OCOHCTRY* 
IN  OAH.KNOALI 
IN  OAN.KHONCN 
IN  OAH.KNOTIC 
IN  OAH.KHOUIN 
IN  OAH.KHOCON 


IS'NCAOS.S'OPNCLPN.S-CALCNOPI 
. ALION  COONOINATC  SYSTCHt 

. OCT/CHCCK  TNANSVCNSC  NCNCaTQN  CCNT  NCNIOIAN 
. OCT/CHCCK  TICK  INTCNVALS 
. OCT/CHCCX  MINOOH  CNVCLOPC/ VCRTICCS 
. OCT/CHCCK  UTH  PNOJCCTION  ZONC 


SCO  S*SPCCS-9«. 
IN  OAH.KHOCHA 
IN  OAH.KHOMCA 
IN  OAH.KNONAH 
IN  OAN.KNOONI 
IN  OAH.KNONAO 
IN  OAH.KHOSPA 
IN  OAN.PICOIS 
IN  OAH.PICLIS 
IN  OAN.PICPA9 
IN  0AH.PICPI9 
IN  0AN.PICPN9 
IN  OAN.PICT09 


iS'NCAOS.S-OPNCLPN.S-CALCNOPt 
. OCT/CHCCK  NAH/TNANSFORNCO  SCaNNCR  CHANNCLIS> 
. OCT/CHCCK  PAOC  HCAOINOtSI 
. OCT/CHCCK  TRANSFORNATION/HATCRI AL  NAHC 
. OCT/CHCCK  HINOOM  ORIOIN 
. OCT/CHCCK  RAOIANCC  LIMITS 
. OCT/CHCCK  HINOOM  SPACINO 
. OISPLAY  RAOIANCC/ORAOICNT/CLASS  IPHASC  9> 

. list  RAOIANCC/ORAOICNT/CLASS  IPHASC  9< 

. PARTITION  factor  SPACC  IPHASC  9 1 
. PICTURC  RAOIANCC/ORAOICNT/CLASS  IPHASC  9> 

. PROFILC  RAOIANCC  IPHASC  9> 

. total  TA9MLATI0NS  IPHASC  91 


SCO  S*NISC«.fS-RCAOS.S-OPNCLPR.S-CALCROPI 
IN  DAN.KNOCOL  . OCT/CHCCK  COLORS 

IN  OAH.KHOCOP  . OCT/CHCCK  NUH9CR  OF  OUTPUT  COPIES 
IN  OAN.KNOCRO  . CROSST A9UL A TC  COLOR  % INTENSITY 
IN  OAN.OISHIS  . HISTOORAN  PREVIOUSLY  DISPLAYED  DaTa  iPHASE  QI 
IN  OAN.KHOINT  . OCT/CHCCK  INTENSITY 

IN  OAN.KNOLIN  . OCT/CHCCK  LINCAR  TRANSFORMATION  MC I OHTS/ OA I N/ 91  AS 

IN  OAH.KHOPAO  . SKIP  TO  TOP  OF  NCXT  PAOC 

IN  OAM.KMOPRI  . OCT/CHCCK  PRINTER  SPEC  I F I C A T I DNS 

IN  DAN.KNOPOL  . OCT/CHCCK  POLAR  TRANSFORMATION  OAIN/SUS 

IN  OAN.KNDSHA  . OCT/CHCCK  SHARPEnInO  FILTER  COEFFICIENTS 

IN  OAH.KNOSYN  . OCT/CHCCK  SYMBOLS 

IN  OAN.KHOTAS  . TASULATC  BY  RADI ANCE/SYMBOL /COLOR/ I NTCNSI Ty 


SCO  S-CXCC* . (S-RCA09.S*OPNCLPR.S*CALCROPt 


IN  OAN.KNOXXX 
IN  OAM.KNOOAO 
IN  OAH.KHOOAS 
IN  OAN.KNOOBR 
IN  OAN.KHOOFR 


MACRO  COMNANOS 
DYNAMIC  AAOO 
DYNAMIC  lASO 
dynamic  IBRKPT 
DYNAMIC  IFRCE 


L*9B 


OAn  PACKAOC  AMCNOIX  I. 
HAIN  MOONANt/NOUriNCS 


^ICTA|-NA» 


IN  OAN.KNOOLO  . OVNANIC  «LOO 

SCO  t*Ot  M.  t tN t C • . ( t-NCAM.  t-OmaNN.  ••CALCftONl 
IN  OAN.NICOIt  . Oltm.AY  NAOl ANCC/ONAOICN1T/C!.AtS  (NNAtC  01 
IN  OAN.NICLIt  . LIST  NAOl ANCC/ONAOICNT/CLAOt  (NHAOC  0> 

IN  OAN.NICNIC  . NICTUNC  NAOl ANCC/ONAOICNf /CLASS  <NNASC  O' 

SCO  S-rACNOr«. (S-NCA08.S*0NNCLNN.S*CALCN0NI 
IN  OAN.NICfAC  . TACrON  CNANNCLS  INNASC  0* 

IN *OAN.NICfAO  . rACTON  CHANNCLS  INHASC  01 

IN  OAH.NICNOT  . NOTATC  FACTON  STNUCTUNC/COCrriCICNTS  INMASC  0> 

SCO  S-PICNAN*. (S*NCA08.S*0NNCLPN.S*CALCN0Nt 
IN  OAN.PICPAN  . PANTiriON  PACTON  SPACC  (PHASC  Oi 


SCO  S-PICPNO*. (S-NCAOS.S-OPNCLPN.S-CALCNOPt 
IN  OAN.PICPNO  . PNOPILC  NAOIANCC  IPHASC  Ot 

SCO  S-Picror*. IS'NCADS.S-OPNCLPN.S'CALCNOPt 
IN  OAN.PICTOr  . total  TAOULATIONS  IPHASC  01 


. HONITON  rON  PHASC  3.H.8  COHHANOS - 

SCO  S*PIC3<*S«.S>PIC0I09 

IN  0AH.PIC3H9  . CALL  PRCVIOUSLV  NAHCO  PHASC  S/<*/S  ‘TO*  NOUTINC 

. UTILITICS  TON  PHASC  3.«*.5  COHHANOS  - 

SCO  S-N03H0N«.  IS*PIC3*»SI 

IN  OAN.NOSeiL  . NCAO  HSS  DATA  IN  OIL  PONHAT  (UNIT  3> 

IN  0AH.N030S0  . NCAO  HSS  OATA  IN  SSQ  PONHAT  lUNIT  3> 

SCO  S-R030IP*. IS-PIC3H9> 

IN  OAN.NOSetP  . HSS  OATA  IN  OiP  PONHAT  (UNIT  31 

SCO  S-N03DSKNUL* . iS>PIC3»9t 
IN  0AN.R030SK  . OATA  ON  0 1 SK  IN  PXOOCP  PONHAT 
IN  0AN.N03NUL  . STNTHCTIC  OATA  >•  NO  UNIT  3 


. PHASC  3.N.S  CONNANOS  (NO  PONTNAN  WO*  

SCO  S'PICOI 3*. (S-N03H0P.S*N030IP.S*NO30SKNULi 
IN  0AN.PIC0I3  . DISPLAY  NAOIANCC 
SCO  S'PICOI***.  IS-N03NOP.S-N030IP.S*N030SKNUL> 

IN  OAN.PICOI**  . DISPLAY  ONAO I CNT /L  APL  AC  I AN/ V AN  I ANCC 
SCO  S-PICOIS*. lS'N03HOP.S-N030tP.S'R030SKNULi 
IN  OAH.PICOIS  . DISPLAY  CLASS 

SCO  S'PICPAS*. IS-N0SN0P.S'NO30IP.S'NO30SKNUL) 

IN  0AH.PICPA3  . PACTON  CHANNCLS 

SCO  S'PICLIS*. fS'N03HOP.S'N038IP.S'N030SKNULI 
IN  OAN.PICLiS  . LIST  NAOIANCC 


L-93 


PICTAi-NA^ 

eos 


OAN  fACKAOC  A^KNOIX  I 
MAIN  PNOOMANt/AOUriNCt 


SCO  t-^ICL IA« . (S-MOSNOP.t*«03ei».t*«OtOtKNUL I 
IN  OAN.NICLIA  . LIST  ORAOICNf/LANLACI AN/VARI ANCC 
SCO  t«R  I a I S* . ( t -ROMOR . t«ROIt  I R . « -ROlOtKNUL  I 
IN  0AN.Riei.l9  . LIST  CLAOt 

9C0  9-RieRAl«.l«-R03N0R.S-R0S0IR.t>R0S0SKNUI.t 
IN  DAH.RICRAS  . RARTiriON  tV  OCNtlTY 
tCO  9>R I CRA«»« . I S*ROSHOR . 9>R03il  R . 9 •R0309KNUI.  I 
IN  OAN.RICRAH  . RARTiriON  OY  ORAOICNr/LARLACI AN/VARI ANCC 

SCO  t-RICRI3«.l $ •R03H0R . 9 -ROSt I R . 3 •R0S09KNUL I 
IN  OAH.RICRIS  . RICruRC  RAOIANCC 
9C0  9*RICRI . ( 9>R0SN0R.  9*R0Stl  R . 9>R0S09KNUl  I 
IN  OAN.RICRIR  . RICrURC  ORAOtCNY/LARLACI AN/VARI ANCC 
9C0  9-RICRI9*. iS>R0SN0R.9>R03RIR.9>R0S09KNUU 
IN  0AH.RICRI9  . RICTURC  CLA99 

9C0  9*RICRRI«. IS>R03n0R.9>R0S9IR.9-R0S09KNULl 
IN  OAN.RICRRS  . RROriLC  RAOIANCC 

9C0  9*RICroS*. t9>R0SH0R.9-R0S9IR.9*R0S09KNULt 
IN  OAN.RICroS  . total  TA9ULATI0N9 


. NONITOR  rOR  RHASe  6.T.0  C0NNAN09  

9C0  9>RICe79*.9>RIC0ie9 

IN  0AN.RIC9Y0  . CALL  RRCVI0U9LV  NAHCO  RHA9C  9/7/9  ’TO*  ROUT  1 NC 


. RNASe  9.7.9  C0HNAN09  INO  FORTRAN  |/0i 

9C0  9«RICRA9«. (9<RICS79> 

IN  0AN.RICRA9 


L-9A 


o 


PAN  NACKAOC  ANNCNOIR  I 
NAiN  NNOONANt/NOUriNCt 

IN  OAN.AierAP/VINrUAL 


pierAp-NAN/viNrpAi 

001 


u 


0AM  MACKAOC  APOCNOIX  L 
MAIN  PNOOAANO/ noun  net 


PICOOO 

001 


•UONOUriNC  PICOOOt 
1 NANOUOl 


A CALL  PNAtC  0 OMNOunuCt  POM  PICTAO 

A NANC  or  tumouriNC  ro  call  ion  mulowoi 


e 

c 

c 

C NlOrOAY 
C 

c 


onioinal  cooc 

OCLCrC  ACTN  K*t  A NUlfCHIC  OPnONS 
NACNO  COHNANOS  A MNC  CONNANO 
reCR.roKC.coLOA. iNrcN.ricruRC. ir.ri 
CROtSTAO.  CNANOC  OlflAO  TO  KHOTaO 


C N ACNLOttCN  LCC  AS/07/70 

C N ACNLOttCN  LCC  00/C7/70 

C N ACNLOttCN  LCC  Al/lt/7t 

J C CNItN  LCC  IO/t«»/7t 

J C CNItN  LCNtCO  At/ It/ to 

MThOO 

NCTRICVC  NCxr  CONNANO.  VALIOATC  IT.  ANO  CALL  I Tt  tUONOUTINC. 
NACNINC'OCNCNOCNT  COOC 
NONC. 

CxrCNNAL  NCrCNCNCCt 

MAOt  A NCAO  NUNCNCO  CANO  ON  TCNNINAL  INPUT 

MTtAL  A OCT  ALPNAOCriC  CONNANO 

INTCOCN  ICC  A INTCOCN-CNAN-CQUIV  TON  CNANACTCN 

NANNt  A PNINT/LOO  UANNINO  NCttAOC 

PIC...  A OCOICATCO  AUONOUTInC  rON  CONNANO  ...  itCC  ACLOHI 
KNO...  A CONNON  tUONOUTINC  CON  CONNANO  ...  ItCC  iCLOHl 

CXCCPTIONt 

I.  A OLANK  CONNANO  It  lONONCO. 

f.  AN  invalid  CONNANO  OCNCNATCf  « OIAONOt*:C. 

I.  AN  CNO>Or>r|LC  ON  UNIT  t It  TNCATCO  ThC  AANC  At  ThC  CXiT  CONNANO. 
‘OLOOAL  OCCLANATIONt 

, INCLUOC  NULCtr.LItT  A OCPINC  NULL  CNANACTCN  tTRINO 

• ■’ 

LOCAL  OCCLANATIONt 


L'tt 


o u o o 


OAN  MCKAOC  AAKNOII  L 
MAIN  ^9NAHt/IIOtfnilCt 


piettt 

oot 


e 

inrr<>'**  KONO  • rimr  i cnam  or  ww«  coniiaiio  fKAiw  irtCA  oonc 

IMCOCM  LMTAT  A MAM  tTArut  l*COT*  MAMA  CNO*M*riLc> 
tNTCocR  KAtr  A Nooirico  I'C-c  or  rmtr  cnaii  or  ceimANO 

c 

c 

e fmoccouAC 

c 

c 

e 

C CAtL  MCVieuALV  NAHCO  tUOAOUTINC 

c 

CALL  rilACC 

CALL  NAHAUt  A CALL  TO  NULtUt  OOCt  NOrHlNO 

c 

c 

C MAO  CONHANO  rOON  UNIT  9 ICAAO  ACAOCR  OA  TCRHlMALi 
C 

KOtio**  NUL*  A inroffttLC  iNAur  iNor  Lcrr  jutriricoi 

iriNiArCN.NC.OI  CALL  ACAOSILSAtAT . • 'I  A riLL  OUrrCA.  OLANK  CUC  MAO 

iriHOAtCN.CQ.Ot  CALL  MA09(LAATAr.  NULCATl  A riLL  OurrCR.  NO  CUC  MAO 

irtLAATAT.NC. * *1  K0N0«*C0r9* 

irCKOHO.NC. *cer9*i  call  OCTAALirOHO.ClI.  NULCATl  • OCT  S ALAHA  CHANA 


CONVCOr  riRAT  CNANACrCN  or  eOMMANO  to  INTCOCR>CHAllAC<CN-COUiVALCNT 
KAAC«ICClKOMOi>ICCI 'A*i*t  • A TO  Z • I TO  AO 


CAAC  ATArCMCNT  ON  NOOiriCO  l*C>C  or  COHMANO'A  riNSr  CH«NLCrCR 
irilKAAC.LT.II.Ofl.iKAAf .Or.AAll  KAAC«A7  I NOT  ALAha 

00  roi 

0 NOt  .•»0A.N0l.«*0N.<*09.<*0A.W07.«0O.<*OA.<MO. 
t At  I .•itC.'*t1.Nlw.Nt9.'*l9.«l7.<»tO.*ilA.>»CO. 

A AAI .aAA.aaS.aAa.aA9.aAA.aA7i 
A .KAAC 


OCrCRHiNC  CONHANO.  ACRrONH  COMNANO.  CMANOC  KOND  to  il.ANK 


AOt  COMTINUC  ■•••  A 

iriKOHO.CO. ’ALI ’ I CALL  KHOAL I IKOHOi 
00  TO  000 

c 

aoa  continuc  a***  a 

00  TO  000 

c 

AOS  CONTINUC  C 

irtKOMO.CO. ‘CnA*  I CALL  KNOCHAIKOHOI 
iriKONO.CO. *CLC* I CALL  KNOCLCIKOHOI 
iriKOMO.CO. *COL*l  CALL  KNOCOLIKOHOI 
iriKONO.CO. *COr*l  CALL  KHOCOriNOHOI 
iriKONO.CO.'CNO*!  CALL  KNOC*OlKONO» 
00  TO  000 


• alion 


• ChannCL 
0 •<L'tAR 

• COLON 

• concA 

0 caoaataa 
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PtCOOO 

003 


•»0I»  CONTINUC  »•••  0 
IPCKONO.CQ.’OtSM 
00  TO  000 


CALL  PieOtStKONOt 


•»os  continue  ••••  c 
IPCKOHO.CQ. ‘COPS* 
IPCKOHO.CQ. 'CXI ‘ I 
tPfKONO.C . . ‘CXP’ I 

00  TO  eoc 


I CALL  PICCXKKOHOI 
CALL  PICCXKKOnOt 
CALL  KHOCXPfKONOI 


•»os  continue  *«««  P 

IPIKOHO.CQ. ‘PAC* I 

tpiKono.CQ. *Pi  *1 
00  TO  000 


CALL  PICPAC(KONO> 
CALL  KHOPI  (KONOI 


*»07  continue  •••«  0 
00  'J  000 


•»00  CONTINUC  A««*  H 
IPIKOHO.CQ. ‘HCA* I 
IPIKOHO.CQ. ‘HIS*  t 
00  TO  000 


CALL  KHOHCAIKOHOI 
CALL  OISHISIKONOI 


•»09  CONTINUC  a«*«  I 
IPIKOHO.CQ. ' IP  ‘t 
IPIKOHO.CQ. ‘ INT* I 
00  TO  000 


CALL  KHOIP  (KOHO> 
CALL  KHOINTIKOHOI 


•»I0  CONTINUC  a*<«  J 
•»tt  CONTINUC  a*««  K 
00  TO  000 


•»ta  CONTINUC  a***  l 

IPIKOHO.CQ. ‘LIN‘ I 
IPIKOHO.CQ. ‘LIS' ) 
00  TO  OOO 


CALL  KHOLINIKONO) 
CALL  PICLISIKOHO) 


■*13  continue  a«*«  H 

IPIKOHO.CQ. 'HER' t 
00  TO  000 


CALL  KHOMERIKOHO) 


•*l<«  CONTINUC  a«««  N 
IPIKOHO.CQ. 'NAN* I 
IPIKOHO.CQ. 'NCU' I 
IPIKOHO.CQ. 'NCX* I 
SO  TO  000 


CALL  KNONAHIKONOl 
CALL  KHONCUIKOHOI 
CALL  KHONCXIKOMO) 


<»IS  CONTINUC  a«*«  0 
IPIKOHO.CQ. 'OPP' I 
IPIKOHO.CQ. 'ON  ') 
IPIKOHO.CQ. *ORt ‘ t 
00  TO  001 


CALL  KMOOPPIKOHOI 
CALL  KHOON  IK0H0> 
CALL  KHQOR^IKOHOI 


•*16  CONTINUC  a«<*  P 
IPIKOHO.CQ. 'PAO* I 


CALL  KHOPAOIKOnO* 


a DISPLAY 


a CN0*0P-PILC  CAUSES  EXIT 
a EXIT 
a EXPLAIN 


a PACTOR 
a PI  iCNOiP) 


a HCAOINO 
a HISTOORAH 


a IP 

a intensity 


a LINEAR 
a LIST 


a HCRtOlAN 


a NAHE 
a NEWS 
a NEXT 


a OPP 
a ON 

a ORIGIN 


a PAOC 


I 


♦ 


L-56 


OAN  AACKAOe  APKNOIX  L 
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Rieooo 

OOH 


iriKONO.CQ. *HAR*t  CALL  RICPARIKONOi 
IPIKOHO.CQ. *RCe*»  CALL  KHORCetKONOI 
IPIKONO.eQ.’PIC*l  CALL  RiCRIC(KOHO> 
irfKONO.CQ. *POK*t  CALL  KNOROKIKONOi 
IPIKOHO.CQ. *ROL*l  CALL  KNOPOLCKONOI 
irtKOHO.CQ. ‘PRI  * > CALL  KNOPRHKONO> 
IPIKONO.CQ. ’PRO’I  CALL  PICPROIKOHOI 
00  TO  800 
C 

«»I7  CONTINUC  ••••  0 

00  ro  000 

C 

•»io  continue  a««*  R 

IPtKONO.CQ. ’RAO* t CALL  KN0RA0<K0H0> 
IPtKOHO.eO. ’REN* I CALL  KNOREN(KOHO> 
iriKOHO.EQ. ’ROT’ I CALL  PICROT(KOMO> 
00  TO  BOO 
C 

•»I9  CONTINUE  a*««  S 

iriKONO.EQ. ’SNA’ I CALL  KNOSHACKOHOi 
iriKONO.EQ. ‘SPA’ I CALL  KHOSPAtKOHOi 
iriKONO.EQ. ’SYN* ) CALL  KHOSYHfKOHOi 
00  TO  800 
C 

•*80  CONTINUE  a***  T 

IPIKONO.EQ. ’TAB’ I CALL  KNOTABfKONOI 
IFIKONO.EQ. ’TIC’)  CALL  KNOTIC(KONO> 
iriKONO.EQ. ’TIN’ I CALL  KNOT|NIKONO> 
iriKONO.EQ. ’TOT’I  CALL  PICTOTIKONOI 
00  TO  800 

c 

•*81  continue  a<«*  u 
•*88  continue  a«*«  V 
00  TO  800 

c 

•*83  continue  a«««  u 

iriKONO.EQ. ’UIN’ I CALL  KN0MINIK0N0> 
00  TO  800 
C 

continue  X 
•♦85  continue  a««*  Y 
00  TO  800 

c 

•♦86  CONTINUC  a***  Z 

ir IKONO.EQ. ’ZON* I CALL  KNOZONIKONO) 
00  TO  800 
C 

•*87  continue  a*««  NOT  alphabetic 

iriKONO.EQ.  ’ aAO’ I CALL  KNOOAOIKQNOI 
iriKONO.EQ. ’SAO’ I CALL  KNOOAOIKONOI 
iriKONO.EQ. ’SAS’ I CALL  KNOOASIKONO* 
iriKONO.EQ. ’SBR’ I CALL  KNOOBRIKONOI 
iriKONO.EQ. ’SrR’ I CALL  KNOOFRIKONOI 
iriKONO.EQ. ’SLO’ I CALL  KNOOLOIKONO' 

C 

C 


0 partition 

a PEEK 
a PICTURE 
a POKE 
a POLAR 
a PRINTER 
a PRoriLE 


a RAOIANCE 
a RCNUNBER 

a rotate 


a SHARPCNINO 
a SPACING 
a SYNBOLS 


a tabulate 

a TICKS 
a tine 
a total 


a Ml  NOON 


a ZONE 


•«ONLY  rOR  OEBUOOINO** 
a aAOO 
a SAOO 
a SASo 

a SBRKPT 

a srREE 
a SLOO 
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pieooa 

oos 


e IP  COHNANO  MAS  NOT 

c 

•00  IPIKONO.NC.* 
IPtKOnO.NC. * 

C 

C 

C COHNANO  IS  INVALIO 
C 

IPCKONO.NC. ’ 


POUNO.  mv  NACRO-CONHANO 

‘I  KOHO«*PIC>*  0 1ST  3 CHARS  OP  PROO  NANC  PLUS  *-* 

*>  CALL  KNOXXXIKONOI  0 HACRO  COHNANO  HANDLER 


IP  SriLL  NOT  POUND 

‘I  CALL  UARNSt  'INVALID  COHNANO  --*1 


PORCe  ALL  PORTRAN  I/O  routines  into  sane  SCO  AS  PICOOO  (NEVER  PCRPORHCOI 

irCKONO.EQ. * JUNK* i RCAO( 89S . S9SI  KONO 
09S  PORHATdXt 


RETURN  TO  NAIN  TOR  CALL  VlA/TO  NANCO  SUOROUTINC  IN  ANY  OVERLAY 


9 


RETURN 

ENO 


* 


I 
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0 

OAH  PACKAOe  APPEND IX  L 
NAIN  PttOOPAnS/ROUriNCS 


suBHounNC  Piciest  • call  phase  i/c/s  sueRouriNEs  por  pictas 

I NAHSUei  • NAME  OP  SUSROUTINE  TO  CALL 

c 

c 

C (E  H SCNLOSSERi 

C 

C 

C CALL  PREVIOUSLY  NAMED  SUBROUTINE 
C 

CALL  TRACE 
CALL  NAHSUB 
C 
C 

C RETURN  TO  MAIN  POR  CALL  VI A/ TO  NAMED  SUBROUTINE  IN  ANY  OVERLAY 
C 

RETURN 

END 


c 


4 


PICIBB 

001 


o o o o 


OAN  l»ACKAOe  AmNOU  I. 
MAIN  PROORAHS/ROUriNCS 


P1CS4S 

001 


OUMOUrtNC  IttCSIOt  0 call  pnam  s/a/o  SUOROUTIMCO  rOR  rictab 
I NANSUei  0 NAM  or  tUONOUriNC  TO  CALL 


C (C  H SCHLOSSCRt 

c 

c 

C CALL  RRCVIOUSLY  NARCO  SUOROUTINC 

c 

CALL  TRACe 
CALL  NAHSUO 


RCrURN  TO  RAIN  TOR  CALL  VlA/TQ  NARCO  SUOROUTINC  IN  ANY  OVCRLAY 


RCrURN 

CNO 


J 


ouououu  uouu 
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PtC67i 

001 


tUBROUTINC  PICOTOt  • CALL  PNASC  6/7/0  tUOROUriNCS  TOR  PICTAO 
I NANSUOt  • NAMC  OF  SUOROUTINC  TO  CALL 


le  N SCNLOSSCR) 


CALL  PREVIOUSLY  NAHCO  SUOROUTlNe 

CALL  tRACe 
CALL  NAHSUS 


RETURN  TO  HAIN  FOR  CALL  VIA/TO  NANEO  SUOROUTINC  IN  ANY  OVERLAY 

RETURN 

END 
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RICOIt 

001 


tUiOOUriNC  RiCOItt  • OlORLAY  Htt-OCRIVCO  DATA  (RNAtC  0> 
U KONOI  a It  FIRST  3 CHARS  Of  CORHANO  Ot  SRACCS 


e 

c 

e 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 


HISTORY 


c 

E 

H 

SCNLOSSER 

LEC 

I0/0SF7S 

c 

E 

N 

SCNLOSSER 

LEC 

06/a0/7S 

c 

E 

H 

SCNLOSSER 

LEC 

03/13/79 

c 

J 

C 

CRISP 

LEC 

1 1/06/79 

ORIOINAL  COOC 

OCLCTC  rctn  k a aoo  oprpic 
SIHPLIPV  LOOIC 

Rcvtse  roR  spacing  chanocs 


NCTHOO 


CHCCK/CALIORATC  SPCCS.  OCNCRATE  TICK  TAOLC  k DISPLAY  HCAOINOS. 
then  NAHE  PIC0I3/H/S  TO  GENERATE  BODY  OF  DISPLAY. 


hachinE'CEpenoent  code 


NONE. 


EXTERNAL  REFERENCES 


OETSKH 

OETSIN 

HOHARN 

NDNOTE 

NVIATO 

CALCHA 

CALSYN 

CAL  SPA 

CALUIN 

CROPOU 

OPRPIC 

OENTIC 

I0LU3 

lOERT 

lOCPIC 

NOUN  I T 

WARNS 


EXTERNAL  PICOOO. 
EXTERNAL  PICiao. 
EXTERNAL  PlCStS. 


OET  CHARACTER  STRING  DATA  FIELD  FROH  UNIT  S 

OET  integer  data  field  from  unit  5 

PRINT/COUNT/LOG  'WARNING*  DIAGNOSTIC  MESSAGE 
PRINT/COUNT/LOG  'NOTE'  DIAGNOSTIC  MESSAGE 

NAME  ‘VIA*  *ro'  subroutines 

CALIBRATE  CHANNELS 

CALIBRATE  SYMBOL  TABLE  FOR  OVERPRINTING 

CALIBRATE  transformation  COEFFICIENTS  FOR  SPACING 

CALIBRATE  WINDOW  ENVELOPES 

CROP  OUTPUT  WINDOW 

OPEN  alternate  PRINT  FILE(S> 

OENCRATE  TICK  TABLE 
identify  LOGICAL  UNIT  3 
identify  CRTS  SCENE 

IDENTIFY  current  COMMAND  SPECS  FOR  PICTaB 
WRITE  HEADING  LINEISI  AT  TOP  OF  NEXT  PAGE 
SUBMIT  WARNING  FOR  Ml SS I NO/ I NVAL I 0 FIELD  FROM  UNIT  S 
NULSUB 
PIC0I9 

PIC0I3.PIC0IN.PIC0IS 


EXCEPTIONS 


I.  ‘DISPLAY’  MAY  NOT  BE  A DEFAULT  COMMAND. 


L-BN 
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PtCOIt 

00* 


I.  ANY  MANNINO  OR  FATAL  CRROR  RRCVCNTS  OCNCRATION  Of  TNC  0I8RLAV. 

3.  TNC  rOLLOUINO  CXCCRTION  CONOITIONt  RROOUCC  THE  FOLLOUINO  RCfULTS 


CONDITION 


RROCCfSlNO  OCFAULT  COHNANOS 
(NUNO0U*0> 

klstyp  in  cohhon  uNoeriNEO 

KL8TYR  SPCCiriCATlON  HtSSiNO 
klstyp  SPCCiriCATlON  INVALID 
EXTRA  SPECIFICATION 
LINIT  CHANNEL  VALUE  RANOC  IS  NULL 
(LCVLOl >LCVHI I ) 

SPACINO  > O.S  OR  < 1.8 
NUHBCR  CONTROL  POINTS  < 6 
OCNANO  RUN  A OVERPRINTED  SYNOOLS 
OATA/CHCCKOUr  NODE 
UARNINOISI  OR  fatal  ERRORCSI 


GLOBAL  declarations 


ACTION 

OlAONOSriC 

NONE 

MANNINO 

KLSTYPs •’RAO* 

NONE 

USE  COMMON  klstyp 

NONE 

NONE 

MANNING 

NONE 

MANNINO 

NONE 

MANNINO 

DON’T  GENERATE  TICKS 

NONE 

DON’T  list  ticks 

NONE 

NO  overprinting  in  PIC0I3 

NOTE 

’TO’  ROUTINE  IS  NUL SUB 

NONE 

’TO’  ROUTINE  IS  PIC0I9 

NONE 

include 

KOMXQT.L 

1ST 

a 

COMMON 

INCLUDE 

KOMKLS.L 

1ST 

a 

COMMON 

INCLUDE 

KOMFIT.L 

1ST 

a 

COMMON 

INCLUDE 

KOMTBL .L 

1ST 

a 

COMMON 

INCLUDE 

KOMSYM.L 

1ST 

a 

COMMON 

INCLUDE 

MINOEF.L 

1ST 

a 

define 

INCLUDE 

KOMOUH.L 

1ST 

a 

CDMMON 

include 

nulcst.l 

1ST 

a 

DEFINE 

C 

C 

C LOCAL  declarations 

C 

C 

INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
C 
C 

C PROCEDURE 

C 

C 

CALL  TRACE 
C 
C 

C GET  DISPLAY 
C 

KTBLTY- 


PROORAH  EXECUTION  SUITCHES.  COUNTERS 
CLASSIFICATION  SPECTRAL  LIMITS 
adjustment /REG  I strati  ON  PARAMETERS 
tick/frcq/factor  table 

SYMBOL  table 

structure  of  uindoh  packets 

OUTPUT  UINOOU  PACKETS 
NULL  CHARACTER  STRING 


KLSAVE  I SAVE  LOCATION  FOR  KLSTYP 

INTEMP  I temporary 

LUNTIC  , I logical  unit  NUMBER  TO  LIST  TICK  COOROS  ON 

NPRL  IN.'nPRCOL  a number  of  PRINT  L I NE  $/ COL  UMNS  IN  DISPLAY 

LUNALT  a logical  unit  number  to  spool  printer  output 

NPRC’F  a NUMBER  OF  PRINT  COLUMNS  IN  ONE  FILE 


Type 

NUL  ’ 


a MARK  OLD  FRED  TABLE  AS  DESTROYED 
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RICOIO 

000 


irfNMNOOU.Ca.Ot  call  nOWARNt  *INVAUO  OCFAULT  CONNANO’I 
KLSAVC*kLtrYR  • OAVC  RRCVIOUS  OISRLAY  YYRC 
ir( (KLOrYR.NC. *ORA* I .ANO. 

A (KLSTYR.NC. *LAR* I .ANO. 

A IKLSYYR.NC. 'VARM.ANO. 

A IKLATYR.NC. ‘CLA* 1 1 
A KLtTYR«*RAO* 


A ir  UNOCPINCO 

a . 


CALL  OCrSKMIKLSTYP. (3t . NULCSYI  A 
C 
C 

e CNCCK  DISPLAY  TYPC 
C 

irtKLSTYP.NC. *RAO' t 
CALL  Nvuroi 
00  TO  300 

OHO  in IKLSTYP.NC. ’ORA’ I . ANO. 

A (KLSTYP.NC. ’LAP’ t . ANO. 

A (KLSTYP.NC. ’VAR’ n 00  TO  CSO 
CALL  NVIaTOI 
00  TO  300 

CSO  inKLSTYP.NC. ’CLA’ 

CALL  NVIATOI 
00  TO  300 

COO  CALL  HARNSC  ’SAO  OISPLAV  TYPC  ••’> 


* • 

TNCN  NAKC  IT  RAOIIANCCI  ... 

UNLCSS  Spec  I PICO  BY  01  SI  PLAY  I CNO 


00  TO  CHO 
PIC3>»S.PICOI3t 


PIC3VS.PICOI*»l 

00  TO  COO 
PIC3KS.PIC0ISI 


RAOl lANCei? 
NCXT  CALL  IS 


TO  PIC0I3 


ORAIOICNTI? 

LAPILACI ANI? 

VARI IANCCI7 

NCXT  CALL  IS  TO  PICOI<» 


CLAISSIT 
NCXT  CALL 


IS  TO  PICOtS 


KLSTVP*KLSAVC 


a RCSTORC  PRCVIOUS  OISPLAY  TYPC 


C 

C 

C ORA  IN  SPCCS  POR  CURRCNT  COHNANO 
C 


300  CALL  0CT8IN( INTCHP.  *I.*I.’CXTRA  OISPLAY  SPCCI PICAT I ON  --’t 
C 
C 

C CMCCK  RAOIANCC  LIMITS 
C 

IPILCVLOl .OT.LCVHI I I CALL  NOUARNf  ’NO  RAOIANCC  LIMITS’) 
IPINOATAC.NC.OI  00  TO  900  a OAT A/CHCCKOUT  MOOC 

c 

c 

C CALI8RATC  CHANNCLS/SYMBOLS/SPACINO/UINOOU 
C 

CALL  CALCHA 
CALL  CALSYN 
CALL  CALSPA 
CALL  CALUIN)  0.  I 
C 

c 

C OPCN  PRINT  PILCIS)  IP  NOT  QPCN.  CLCAR  UINOOU  NUNOCR  I RCSCT  PAOC  NUNBCR 


IPINOTOTL.NC.O)  00  TO  900 

IPINUNOOU.lt. Ot  CALL  OPRPIC  a OPCN  alt  PRT  PILOS)  BCPORC  1ST  UINOOU 

NUNOOU- I ABS ( NUNOOU I 

NPAOC-0 

c 

c 

C CROP  OUTPUT  UINOOU  TO  PIT  INPUT  UINOOU  S ALT  PRINT  PILOS) 

c 
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OAN  PACKAOe  APKNOU  L 
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NMCtr«K^Aoe-6  a numicii  or  rniNT  eotuuNt  rcR  rue  cxcluoino 

a LCrr  haroin  ano  a ncat  linc  charo 
CALL  CRoroHf  tooo.NALrn«NrRciri 
tr  (NoroTL.NC.ot  oo  ro  aoo 


C OCNCRATC  riCKt  (LIST  ON  UNIT  IQ  IF  RCOIOrRATION  ACCURAfC) 

C 

LUNT|C«0 

irtNCTLrT.or.si  LUNric«to  a list  ticks  on  unit  to 
ir  (IHSAOHUIULIN.HSriOOl .IT. SOI .OR. 
a IHtAOUHCHLIN.USRIOOl .or. 15011  lUNTIC-*!  a NO  TICKS 
ir  I tNSAOHHIUSAN.HSPIOOl .IT.SOI .OR. 
a INSAOHMIUSAH.MSPtOOl .or.ison  LUNTIC«*I  a NO  TICKS 
CALL  OCNTICI  LUNTIC) 


c coNPuTc  Size  or  print  uinoom 
c 

NPRLIN-iriXIPPOOHUIULlN.MNAXI ) • I F I X( PPOOMHI ML  I N . MHI N t > *1 
NPRCOL • I r I X I PPOOHU I UCOL . UMAX i I • I F I X I PPOOUM I UCOL . MH I N II » I 
C 
C 

C CHCCK  FOR  0IA0N0STIC8 
C 

iriNoroTL.NC.oi  00  ro  soo 

IFI IHOATCH.CQ. 01 . AND. INCISYH. NC. I n CALL  NONOTCl 
• ’SYHOOLS  NOT  OVeRPRlNTCO  ON  OCNANO  TCRNINAL*! 

c 

c 

C PRINT  HINOOU  HCAOINO  FOR  UNIT  6 
C 

HRITCia. 1*181  NUNOOU.NrCRAL 

•*IS  FORHATI*  HINOOH  NUNBCR  * . JS.SX. ’OISPLAY*  .6X.HA6I 
CALL  lOLUSI  81 
CALL  lOCRTI  6) 

CALL  lOCPICI  61 
C 

c 

C PRINT  UlNOON  HCAOINO  FOP  ALTCRNArc  PRINT  PILClSl 
C 

LUNALT.IO 

00  <*60  N«l  .NPRCOL  .NPRCIF 

CALL  H0UNIT(  i*.LUNALTI 
URITCILUNALT.hISI  NUNOOM.NTERAL 
CALL  I0LU3I  LUNALTI 

CALL  lOCRTt  LUNALTI 

CALL  lOCPICi  LJNALTi 
LUNALTaLUNALT*! 

*60  CONTINUC 

c 

c 

C ANY  OlAONOSriCSTT? 

c 

too  IFINOTOTL.CO.OI  00  TO  sao 

IFINOATAC.NC.OI  CALL  NVIaTOI  PICOOO.NULSUBI  8 OATA/CHCCKOUT 


n r»  n o 


f 


o 


OAN  PACKAOC  APPCNOIX  L #ICOIt 
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iriNOArAC.co.oi  call  nviatoi  oicioi.oieoiot 


iicruiiN  roil  CALL  ro  nahco  suonouriNC 

too  Kono*' 

AcrutN 

CNO 


OAN  MCKAOC  APKNOU  L 
NAIM  MOOHAHt/ROUriNCS 


PICOIS 

001 


OUMOVriNC  ^leoil  ^ OIOOLAT  RAOIANCC  IPHAOC  ii 


Ntoreov 


C N OCM.OOOCM 
c N ocHL Often 
j e cm  on 
j c cm  on 


LCC  lO/Of/TS 
kCC  00/07/70 
LCC  11/00/70 
LCNOCO  00/10/00 


OmOINAL  COOf 
woooAOC  oocuncNrArioN 
ocvioc  roo  nxOocr  ronnAr 
Aoo  •»  Honot  TO  ooiNT  ourrcA 


NCTHOO 


INiriALlZe  LOU  ANO  NION  OHINT  Llnat  ANO  COLUHNf.  OCNCAATC  ANO 
Amur  TO#  fAHALC  tCALC  ANO  OOROCA.  INITIAL  I2C  LOU  ANO  HIGH 
AOJUfTCO  LINC.  CALL  OCTNAO  TO  ACAO  LINC.  MASK  NON«TAlVIAL 
UINOOH.  AeOANALC/fCACCN/ COUNT  rACOUCNCY/OYNOOL IZC  LINC.  INfCAT 
TICKS  ANO  OUTAUT  LINC.  OCNCAATC  ANO  AAINT  OOTTON  tAHALC  tCALC 
ANO  OOAOCA.  NANC  AlCOlO  AS  ‘TO*  AOUTINC  AOA  MAAA-UA  Of  OISALAY 
AAOCCftINO. 


NACNINC'OCACNOCNT  COOC 


UTILIZCf  UNIVAC  excc  0 CA  AANTAff 

INTCANAL  AOUTINC  SANSCL  AtfUNCf  6 CHAAt  TO  AN  INTCOCA  OIN 


CXTCANAL  ACICACNCCt 


C A*»A  0 AOJUfTCO  COOAO  AQA  AAINT/AlOT  COOAO 

C OCTAAO  0 OCT  ALL  fCLCCTCO  AAU/ TAANf rOAHCO  CHANNCLf 

C HfKAlX  a NASK  NON'TAIVIAL  HINOOU 

C AAOVrl  a AAINT/OVCAAAINT  riLCf 

c NorATL  a aaint/loo/count  tatal  caaoa*  NessAoes 

C NVIATO  a NANC  *VIA*  ‘TO*  •UOAOUTINCf 

C CAAATA  a UAITC  TO  ALTCANATC  AAINT  riLCf 

c cfToiN  a cnaaactca  otaino  roA  intcoca 

OOUBLC  AACCISION  COSi*CS  a YAAI  aOLC'LCNOTh  ChAA  fTXINO  fOA  rixCO'LCNOTH 
CXTCANAL  AlCICf.  AIC0I9 

CXTCANAL  ACSfVN.  OC TOY T . OC T I CC . OCT  I NT . OCT NUL  | AOuTiNC  TO  OCT  flN  VALUC 

c 

c 

C CXCCATIONf 
C 

c 

c status 

c AAON 

C OCTAAO  NCAT  LINC  CNAA  AAINT  CCLL  SYAfOLS  OlAONOfTIC  ACTION 
C 

C •COT*  NO  data  NONC  AAINT  LINC 


L-OS 


u 


MCKAOC  AAMNOIX  I 
I MOORAHt/ROUriNCt 


Rieeis 

OOff 


OLORAL  OCCLARATIONt 


INCLUOC 

INCLUOC 

IRCLUOC 

IRCkUOC 

IRCLUOC 

INCLUOC 

INCLUOC 

INCLUOC 

INCLUOC 


KONxor 

KONKLt 

KONfVN 

HiNOCr 

KONOMW 

KOHTOL 

Ricocr 

Rxiocr 

NAXINT 


.LIST 

.LIST 

.Licr 

.LIST 

.Litr 

.Lisr 

.LIST 

.Litr 

.Lisr 


OAtA  l*t*l 
N/A 
N/N 


fAfAL 

CATAL 


RRINT  LIHC 
RCrimN 
RCruRN 


• CONNON  RROORAH  CXCCUTION  SMItCltft.  COUNTCRS 

• CONNON  CLAftiriCATION  iNfO 
A CONNON  lYNOOL  TARLC 

• ocriNC  tTRueruRC  or  hinoou  R«CKcrt 

• CONNON  OUTRur  UlNOOH  RACKCrS 

• CONNON  riCK/fRCQ  TAOLC 

• OCriNC  MCTAO  RARANCrCRS 

• ocriNC  rixCL  RurrcR  trNucruRC 

• NAXINUN  INTCOCR  VALUC 


LOCAL  OCCLARAriONO 


RARANCrcR  Nxours>i  • • or  nos  aucl  ourrcNS  in  array 

INTCOCRt  IN  NfA  iur  • aINTS  RRCANRLC  • iaOINS*|i/<*  • IaCXTRA  RtTCS*3i/h 

RARANCrCR  NHIXOr  • (RXOINt-ll  • l3S<*t*I>/«  • 

MOO  RRT  Our«MO*  RRCAN*(NAX  riLC<*CNAX  COLt/RO'NCATLN  COLC'NARO  COLtn*« 
RARANCrCR  NMIRir*IRXOINt«l  I •INALTNI  • IXRAOHl-  C • <»  1 1 • ^ 

RARAf«rCR  NTROCNaO  • * HOt  NCR  CHANNCL  IN  LOCAL  rRCO  TaRLC 

RARANCrCR  NrROtC«ICO  a • CNANItfLS  >N  LOCAL  rRCO  TARLC 

INTCOCR  NRxouriNHixor.Nxourt)  a array  or  net  rixcl  ourrcRS 
INTCOCR  IRRTOri NHIROri  a RRINT  ourrcR 

INTCOCR  NrRCQfNrRQSZ.NrROCNI  a LOCAL  rRCOUCNCY  TARLC  (RCORC  iNCLUOCf 

a INTCRNAL  ROUriNC  RCSIYNt 

INTCOCR  IRLIN  a RRINT  LlNC 

INTCOCR  IRCNIN. IRCNAX  a NININUN  ANO  NAXINUN  RRINT  COLUNN 

INTCOCR  IRLNIN. IRLNAX  a NININUN  ANO  NAXINUN  RRINT  t I NC 

rcal  aoul in. AOJtAN  a aojustco  linc  and  ranrlc 

INTCOCR  NLI00L.nl  I00N.nl  lOOf  0 NfA  LlNCMOOi  L OW . HI  OH . SRAC  1 NO 

INTCOCR  NIALIN  a NfA  LlNC  NUNRCR 

INTCOCR  NfASLO.NfAfMI  a LOH  AND  NION  NfA  fANRLC 

INTCOCR  If tat  a I/O  fTATuf 

INTCOCR  NTLChR  a NCAT  LlNC  CHARACTCR 

INTCOCR  NROLCf .NRORCf  a LCrT  f RIOHT  HAROIN  CHAR  ITRInC 
INTCOCR  IRLTIC. IRCriC. JfYTie  a tick  RRINT  L I NC . COLUNN. fYNOOL 
INTCOCR  NRRL IN.NRRCOL  a NUNOCR  Or  RRINT  LiNCf  ANO  COLUNNf 

INTCOCR  LACTLN  a LAfT  fCAN  LlNC  RCAO 


RROCCOURC 


CALL  TRACC 


T'  V,- 


F 
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AlCOII 

oos 


e iNtriALifC  Miiiinim  and  haxihun  munt  linc«  amo  colunn« 
e 

t mi  I N«##00N1M  ML  I N . HR  I N t 
ll*LIIAX«RROOMHIML  iN.HNAXi 
IRCNlN*RROOHMIHCOL .HHlNt 
I RCNAXaRROOMMI MCOL . MNAX I 
C 

e 

e coNMurc  Nuntcii  or  rniNr  lines  amo  coiuims 
c 

NnillN«inNAX-tPlNtN*l 

NMCoi«ircNAx*ircniN»i 


iNiruLiec  riAtr  tick 

CALL  iNiric  iinrie. Irene. jsvriei 


CLCAA  LOCAL  rACQUCNCY  TAOLC 

00  tso  l•t.NLIHCN 

00  COO  Kml.NfAQSZ 
NfACQIK. I 1*0 
too  CONTI Nue 

tso  CONTINUC 


INITIALIZC  LOH  ANO  HlOH  LINCS  ANO  SrACINO 

CALL  A«»r  (AOJLIN.AOJSAN.  rLOATtiriNtNI.I.  I 
NLtOOL«AO.iAlN*IOO. 

CALL  Arr  (AOJLIN.AOwSAN.  TLOAT M riHAX > . I . I 
NLIOOM«AOJltN*tOO. 

NLIOOS*NSAOUUIWL IN.USriOOi 


rosiTioN  at  Tor  or  uinooh 


MSAllN*NllOOL/IOO 

CALL  octaao  fHAKBur.  <o>  . (Nxourti . istat . hsaun.o.oi 
ir  mstat.nc.  *OAor* ) oo  to  ioo 

CALI  NorATL  (*SAor  (OAO  riio  on  unit  i*> 

CALL  crrATA  I'to  * .t.o. ‘*no  caroa  • toNorr  output*** 

00  TO  too 


OCNCNATC  ANO  PAINT  SANPLC  SCALC  ANO  OOAOCA  roA  LINC  SCPOAC  IIT  PAINT  k I NC 

SCO  CALL  SANSCL  flPATSr.linNIN'Ii.lIPCNiNi  .lIPCNAKM 

IP  I inSATCN.CO.OI  .AND.  (NPAllN.LC.SPl  . ANO.  I NPACOL  . LC  . S**  > > 

0 CALL  PAOVfl  (S.  *.<*.*  *.0.*  •.••llll**.lPATSr» 

CALL  PAOVri  MO.  •.«».•  •.«*.•  • . I II I • . IPATSri 

c 

c 

C ACAO.  NASK.  ACSAMPLC.  SCACCN.  SmtOLiZC  AND  PAINT  SCAN  LINCS 
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PICOI3 

OOH 


c 


IPLIN«tPLHIN 

LAtrLN«-HAXtNT 

00  350  HLIOO«HLIOOL.HLIOOH.nLIOOS 
NTLCMR-* i • 
nSALtN*HLI00/100 

CALL  A*»P  (AOJLIN.AOJSAH.  PLOAT I I PL  I Ni  . PLOAT  ( I PCHI N t I 
NSASL0>A0JSAI1 

CALL  A*»P  (AOJLIN.AOJSAH.  PLOAT  ( I PL  I HI  .PLOAT  ( I PCHAX I t 

nSASMl-AOJSAH 

IP  (HSALIN.NC.LASTLNI  call  OCTRAO  (HPXBUP.(NUiXBPI .(NXaUPSI . 
A ISTAT.  nSALIN.HSASLO.HSASHlt 


>OPL*n  00  TO  320 


LASTLN«H8AL IN 

IP  (( ISTAT. NC. *BAOP*i.ANO. (ISTAT.NC. 

CALL  HOPATL  ( C8S<»CS  ( I STAT  . I . HI  , 

A * WHILE  REAOINO  on  UNIT  3*1 

CALL  ERPRTa  ( *10  * .2.6. 

A *«l/0  ERROR  - lONORE  OUTPUT**) 

00  TO  900 

320  IP  ( ISTAT. EQ. *8A0R* t NTLCHR>*7* 

CALL  NSKPIX  (MPXBUPd.n.  NPXB'JP  ' t . I ) > 

IP  ( (NPXBUPCPXBINT. I I .EQ. *BYT* I .OR. 

A (NPXBUP(PXB!NT. I I .EQ. *CHR* i .OR. 

A (HPXBUPIPXaiNT. t ) .EQ. * INT’ ) .OR. 

A (NPXBUPCPXBINT. 1 1 .EQ. *NUL * 1 ) 00  TO  330 

CALL  HOPATL (* INVALID  BIN  TYPE  *. 

A CBSHCSCNPXBUPCPXBINT. I I . I . 31 . * IN  PIC0I3*I 

00  TO  900 

330  ^4P  (NPXBUPCPXBINT. I)  .EQ. 

A ( IPCNINI . ( IPCNAXI . 

(NPXBUPCPXBINT . I I .EQ. 

( IPCHINI . ( IPCHAXt . 

(NPXBUPCPXBINT. I I .EQ. 

( IPCHINI . ( IPCNAX) . 


IP 


IP 


, (IPLIN) 
.CETBYTl 
( I PL  I N) 
.OETICE) 

, ( I PL  I Nl  , 


350 


BYT')  CALL  RESSYN  dPRTBP. 

NPXaUP. (NWIXBP) . (NXBUPS) 

CHR*)  CALL  RESSYN  dPRTBP, 

NPXBUP. (NWIXBP) . (NXBUPS) 

INT*)  CALL  RESSYN  dPRTBP. 

NPXBUP. (NWIXBP) . (NXBUPS) .OETInT) 

IP  (NPXBUPCPXBINT. I ) .EQ.  *NUL * I CALL  RESSYN  ( I PR TBP . I I PL  I N) . 

^ ( IPCNIN) .( IPCNAX) . NPXBUP. (NUIXBPI . (NXBUPS) .GETNUL) 

CALL  CSTHIN  (NROLCS.  (I  ) . (SI  . NSAL  I N . ’ 0 * > 

NRORCS-HROLCS 

IF  ( (NBATCH.EO.  01  . ANO.  ( NPRL  IN.LE.  6<*)  . AND.  ( NPRCOL  . LE  . S'*  I > 

CALL  PROVFI  (S.  NROLCS.'*.  • ' . 0 . NTL  CHR  . ' I 

CALL  PROvn  (10.  NROLCS. >♦  .HRORCS.**  .NTLCHR  .•  I 000*  IPRTBP  ) 
IPL IN-IPL IN*! 

continue 


c 

c 

C OENERATE  AND  PRINT  SANPLE  SCALE  ANO  BORDER  FOR  LINE  AFTCR  LAST  PRINT  LINE 


C 


CALL  SANSCL  ( IPRTBF. dPLNAX*! ).( IPCHINI .( IPCNAX) I 

IP  ( (HBATCH.EQ.O)  .ANO.  (NPRL  IN.LE.  S'*)  .ANO.  (NPRCOL  .LE  .S'*)  ■ 

A CALL  PROVFI  (S.  * *.H.*  *.0.*  .IPRTBF) 

CALL  .ROVFt  dO.  * *.•*.*  *.'*.*  * . * 1 1 I 1 1 • * . ..  RTBF) 

CALL  PROVFI  CIO.  *••«•*.'*.*•«•**.'♦.*:*.  *31  I 1 1 «*.  IPRTBF) 

C 

c 

C HOVE  data  FRON  local  FREQ  TABLE  TO  COHNON  TABLE  (REPLACINO  TICKS) 
C 
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PtCOIS 

DOS 


NTiLTYmTUCO* 

Kr8LNU*NNN00H 
DO  600  l*t .NLINCN 

00  5S0  K«I.NPRQSZ 

KPNCQCK.M-NrftCQtK.II 

sso  eoNTiNue 
600  continue 
c 
c 

C NEXT  CALL  IS  TO  PIC0I9 
C 

900  CALL  NVIATO  ( PIC  I S9. PICOI 91 
RE TURN 
C 

c 

c 

c 

c 

c 

c 

C INTERNAL 

SUOROUTINE  INITIC  ( 0 initialize  tick  pointer  ano  oet  first  tick 

0 IPLTIC.  a PRINT  LINE  FOR  TICK 

0 IPCTIC.  a PRINT  COLUHN  FOR  TICK 

0 JSVTICI  a TICK  SYMBOL:  '**-PRIMARY.  ‘ -SECONDARY 

C 

c 

C GLOBAL  DECLARATIONS 
C 

C INCLUDE  KOHTBL.LIST 

C 
C 

C LOCAL  OECLARaTIONS 
C 

INTEGER  JSYOl (61/ *• ' 

INTEOER  NTICK 
C 
C 

C PROCEDURE 
C 

NTICK«0 
C 
c 
c 
c 


a COMMON  TICK  tables  ANO  FUNCTIONS 


«•'/  a TICK  SYMBOLS  FOR  TICK  LEVELS  0 A I 
a TICK  POINTER 


entry 

OETIC  ( 

a OET 

NEXT 

0 

IPLTI 

C. 

a 

INTEOER 

PRINT 

0 

IPCTI 

C. 

a 

INTEOER 

PRINT 

0 

J8YTI 

Cl 

a 

TICK  SYMBOL: 

C 

C 

C PROCEDURE 

C 

C 

C INCREMENT  TICK  POINTER 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NTtCK«NTICK*t 


COHPUre  TICK  LINC.  COLUNN.  LCVCL.  and  SYHBOt. 

IPtriC-LINTtCINTtCKt 
IPCTtC«COL TIC  INTICK) 

LVLTtC«LeVT|CINTICK) 

JSYTtC«JSYOt ILVLTtC»t ) 


RETURN 


internal 

subroutine  sahscl  i a generate  sample  scale  and  border 

0 IPRTBF.  a PRINT  BurPER 

1 IPLIN.  a PRINT  LINC 

I IPCMIN.  a MINIMUM  PRINT  COLUMN 

I IPCMAX)  a MAXIMUM  PRINT  COLUMN 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


method 


INITIALIZE  LOW  ANO  HIGH  SAMPLES  AND  SPACING.  SET  BUPrER 
preamble,  encode  sample  numbers  ANO  PUT  COLON,  string.  ANO 

COLON  IN  PRINT  BUrPER. 


machine-oepenoent  code 

ASSUMES  6 CHARS  PER  INTEGER  BIN 


EXTERNAL  RCPERCNCCS 

ANP  a adjusted  coord  pgr  print/plot  coord 

PUTCHR  a PUT  CHAR  IN  CHAR  STRING 

CSTNIN  a CHARACTER  STRING  POR  INTCCCR 


GLOBAL  declarations 

INCLUDE  KOMOUU.LtST  a OUTPUT  UlNOOH  PACKETS 

include  WINOCP.LIST  a OEPINE  UINOOU  packets 

include  pxboep.list  a oepinc  supper  structure 


local  declarations 

INTEGER  IPRTBPIII  a ARGUMENT 


PtCOIS 

OOB 
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( 


4 


C RCAL  AOJSAH  ■ AOJUSTCO  SANOte 

INTCOCR  IROIN  A POINTCR  TO  PRINT  OIN 

INTCOCR  N8ASAH  A SAHPLC  NUNOCR 

INTCOCR  NSIOOL .HSIOOH.NSIOOS  A NSA  SAHPLC'IOOi  LON. HIOH. SPACING 
C 

c 

C PROCCOURC 

c 

c 

C INiTIALIZC  LOU  ANO  HIGH  SANPLCS  AND  SPACING 
C 

CALL  AHP  (AOJLIN. AOJSAH.  TLOA T ( I PL  I Nl . FLOAT ( I PCHl Nl ) 
HStOOL-AOJSAH*  too. 

CALL  A<»P  lAOJLIN. AOJSAH.  FLOA  T ( I PL  I N I . FLOAT  ( I PCHAX  I I 
HSIOOH«AOJSAH*tOO. 

NS  I OOS-HSAOUU ( MSAH . U8P 1 00  > 


C 

c . 

C SCT  PRCANOLC  POINTCRS  ANO  BIN  POINTCR 
C 

IPRT8F(PXRCCNI-0 
I PRTBF ( PXL I NO I - 1 PL  I N 
IPRTBFtPXCHANI -0 
IPRTBF(PXQUAL>«0 
IPRTBFtPXBINTI »* INT  * 

IPRTBFIPXLBINI*! 

IPRTBFtPXLCOL I -IPCHIN 
IPRTBFtPXHBINi « tPCNAX- IPCHlN»t 
IPRTBFtPXHCOL I -tPCHAX 
IPRTBF(PXNOIN>>0 
tPRTBFIPXNOOA)  -0 
IPRTBFtPXLJOt  I >0 
IPRTBFtPXHJOl > -0 
tPBIN-IPRTBFtPXLBINI -I 
C 
C 

C CNCOOC  SAHPLC  NUNBCR  ANO  PUT  COLON.  STRINO. 
C 

00  too  HSIOO-MSIOOL .nSIOOH.nStOOS 
HSASAH-NSIOO/tOO 

CALL  PUTCHR  ( t PRTBF I PX8 I NS > I PB I N ) . 
CALL  CSTNIN  nPRT8F(PXBINS*tPBlNi  . 
CALL  PUTCHR  ( IPRTBF(PX8tNS*lPBIN> . 
tPBIN>lP8IN*t 
too  CONTINUC 
C 
C 

RCTURN 

C 

C 

C 

c 

c 

c 

c 

c 


ANO  COLON  IN  BUFFER 


( t ) . • : • I 

MSASAH.**.  "O’ I 
«6)  . ’ ! * I 
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C 

c 


INrCRNAL 

tURROUrtNC  ftrSSVN 


a RCBANPLe/scftecN/couN'  rRCQuCNCY/SYneoLize/ 
a INSCRT  nCKt 


0 IRRYtr.  a RRtNY  RUPPCR 

t IPLIN.  a PRINT  LINC 

1 tPCNiN.  a NINIHUH  PRINT  COLUHN 

I IPCHAX.  a NAXINUH  PRINT  COLUNN 

• 

I NPX8UP.  a ARRAY  OP  NSS  PIXEL  BUPPCRS 

I NUIX8P.  a NUN8CR  OP  HOROS  IN  ONE  OUPPER 

( NXBUPS.  a NUnOER  OP  SUPPERS 

I OETBIN)  a routine  to  OET  bin  VALUE--OETBYT.OETICE.OETINT.OETNUL 


HE  THOO 

COHPUTE  LOU  ANO  HlOH  SAMPLES  ANO  SPACING.  SET  SUPPER  PREAMBLE. 
POR  EACH  SAMPLE.  CHECK  IP  OUTSIDE  OP  INPUT  UINOOU.  CHECK  IP  OUT 
SIDE  OP  RADIANCE  LIMITS.  COUNT  PREQUENCY.  ANO  SYMBOLIZE.  INSERT 
TICKS. 


EXTERNAL  REPERENCES 

A<»P  a AOJUSTEO  MSS  COORO  POR  PRINT/PLOT  COORO 


GLOBAL  DECLARATIONS 


INCLUDE 

INCLUDE 

Include 

INCLUDE 

INCLUDE 


KOMOHU.LIST 

KOMTSL.LISr 

KOMKLS.LIST 

PXBOEP.LIST 

KOMSYM.LIST 


include  UINOEP.LIST 


I COMMON  OUTPUT  UINOOU  PACKETS 
1 COMMON  FREQ/ TICK  TABLE 
a COMMON  CLASSIPICATION  INPO 
a DEFINE  BUfTER  STRUCTURE 
a COMMON  SYMBOL  TABLE 

a define  UINOOU  packets 


LOCAL  DECLARATIONS 


parameter  numbps«8  a number  of 

INTEGER  MPXBUF(NUtXBP.NXBUPS)  a 
IPRTBPrti  a ARGUMENT 

NBINSO(NUMBFS)  a SIN  NUMBER 


MPX  BUFFERS 
ARGUMENT 


INTEGER 
INTEGER 
INTEGER 
INTEOE.l 
INTEGER 
INTEGER 
INTEGER 
real  AOJSAM 
INTEGER  IPIXLI 
a IPIXL<» 


PROCEDURE 


OF  sample  0 FOR  EACH  MPX  BUFFER 


NBINCO 
MSI OOL  . 
MSASAM 
IPBIN 
IPBTIC 


a BIN  number  OF  COLUMN  0 FOR  PRINT  BUFFER 
MSIOOH.MSIOOS  a MSA  SAMPLE'IOO:  L OU . H I OH . SP AC  I NO 
a MSA  sample  number 
a PRINT  BUFFER  BIN  POINTER 
a PRINT  BUFFER  BIN  FOR  TICK 
a AOJUSTEO  SAMPLE  NUMBER 
IPIXLB. IPIXL3. 

IPIXLS. IPIXLB  a PIXEL  VALUE  FOR  EACH  BUFFER 
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e iNtriALize  lom  and  hiom  sarrlcs  and  sracino 
c 

CALL  AHR  (AOJLIN.AOJSAN.  rLOArUPLINI  .FLOATt  IRCHlNlt 
NtlOOL*AOJSAN«IOO. 

CALL  AHR  (AOJLIN.AOJSAN.  FLOAT M RLI Nl . FLOAT M RCHAXn 
NStOON-AOJSAHMOO. 

NSI OOS-NSAOWHI MSAM . HSPI 00 1 
C 
C 

C SCT  NUneCR  of  bin  CONTAININO  SAHRLC  0 FOR  EACH  NPX  BUFFER 
C 

00  ISO  NUHBUF*! .NXBUFS 

NB I NSO I NURBUF I ■NPXBUF I PXLB I N . NURBUF I -nPXBUF ( PXL  SAN . NUNBUF I 

ISO  continue 
C 
C 

C SCT  PREAHBLC  POINTERS  ANO  BIN  POINTER 
C 

IPRTBF(PXRECNI«NPXBUF(PXRECN. I I 
IPRTBFIPXLINOI-IPLIN 
IPRTBF(PXCHANI*0 
IPRTBFf PXQUAL  >«0 
IPRTBFCPXBINTI-* INT* 

IPRTBF(PXLBlNi*a 
I PRTBF ( PXLCOL  > ■ I PCN I N 
IPRTBFIPXHBiNi •IPCNAX>tPCMIN»B 
IPRTBFIPXHCOL I >IPCNAX 
IPRTBFIPXNOINi «0 
IPRTBFCPXNOOAI -0 
IPRTBFCPXL JOI I «0 
IPRTBFf PXHUOl > «0 
IPBIN-IPRTBFIPXLBINI -I 

NBINCO-IPRTBFfPXLBINi-IPRTBFfPXLCOLi  0 FOR  INSERTINO  TICKS 
C 
C 

C RCSAHPLE/SCREEN  RAOl ANCE /COUNT  FREQUENCY/LOOK  UP  SYMBOLS 
C 

00  **00  NSIOO>NSIOOL.NSIOOH.NSIOOS 
NSASAM>NStOO/tOO 


C dUFFER  I 
C 

» 


t 

c 

C BUFFER  2 
C 


A 


IF  I IHSASAN.lt. NPXBUriPXLSAN. I ) 
(NSASAN.OT.NPXBUrtPXHSAN.  t I 
CALL  OETBI N ( IPI XL  I . 

HPXBUFfPXBlNS.I  > 

IF  f tPIXL I .OC.NPXBUFfPXNOOA. I I > 
IF  I ( IPIXLI .LT.LCVLOl > .OR. 
f IPIXLI .OT.LCVHI I I I 00 
IF  INL INCH-1 .EQ.O 


) .OR. 

II  00  TO  3S9  a SAMPLE 

NSASAN-NBI NSO (III) 

00  TO  3S0  a NO  DATA 

TO  360  a OUT  OF  RAO  L 
> 00  TO  320 


not 


INI  T 


IF  f INSASAN.lt. NPXBUF (PXL SAN. 2 1 ) .OR. 

(NSASAN.0T.NPXBUF(PXHSAN.2n I 00  TO  3S0  a SAMPLE  NOT 
CALL  OETBIN  (IPIXL2. 


PIC0I3 

BOB 


IN  BUFFER 


N BUFFER 
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PICOI3 

QIO 


HPXtUrtPXtlNt.ffi .inSASAN*NBIN80(CM I 
IP  I tlPIXLB.LT.LCVLOttn  .OR. 

f iRixLB.or.LCVNi (tn t 00  TO  seo  a our  or  rad  linits 

IP  INLIHCM-e.CQ.OI  00  TO  890  « 

C BUPPCR  3 

IP  I (N9ASAN.LT.nPXBUP(PXLSAN.3>  t .OR. 

CHSASAN.0T.nPXBUP(PXH8AN.3l n 00  TO  390  8 SAHPLC  NOT  IN  BUPPCR 

CALL  OCTBIN  tIPIXLS.  « 

NPXBUP(PXBIN8.3i . IHSASAN^NBINSOI 31  I > 

IP  I (IPIXL3.LT.LCVL0(3n  .OR. 

IIPIXLS.Or.LCVHI (31  I I 00  TO  360  a OUT  or  RAO  LIMITS 
IP  (NLIMCH-3.CQ.0I  00  TO  880 

j 

C BUPPCR  >»  ' 

C 

IP  I (NSA8AM.LT. HPxeUPCPXLSAM.HI I .OR. 

a IM8A8AN.0T.MPXBUP(PXHSAN.<*I  I t 00  TO  390  8 SAMPLC  NOT  IN  BUPPCR 

CALL  OCTBIN  ( IPIXLX. 

• NPXBUP(PXBINS.HI . (NSA8AN*N61NS0(<M  I « 

IP  ( ( IPIXL'^.LT  .LCVLO(*»n  .OR. 

I (IPIXLH.or.LCVHl  Kni I 00  TO  3B0  8 OUT  OP  RAO  LIMITS 

IP  INLIMCH-X.CQ.OI  00  TO  830  i 

C f 

C BUPPCR  9 
C 

IP  ( IMSASAM.LT.MPX8UPIPXLSAN.SI  I .OR. 

8 (M8ASAN.0T.MPXBUP(PXHSAM.Sni  00  TO  390  I SAMPLC  NOT  IN  BUPPCR 

CALL  OCTBIN  ( IPIXL9. 

- MPXBUPIPXBINS.SI . < MSASAM*NBI  NSO  ( 91  I > 

IP  ( I IPIXL9.lt  .LCVLOISn  .OR. 

8 ( IPIXL9.0T .LCVHI (SI n 00  TO  360  8 OUT  OP  RAO  LIMITS 

IP  (NLIMCH-9.CQ.0)  00  TO  800 
C 

C BUPPCR  6 
C 

IP  ( ( MS AS AM. L T . MPXBUP I PXLSAN. S*  I . OR . 

8 (MSASAN. OT . MPXBUP < PXHSAM. 6) ) ) 00  TO  390  8 SAMPLC  NOT  IN  BUPrCR  * 

CALL  OCTBIN  (IPIXLS. 

• MPXBUP  IPXeiN'S.SI  . I MSASAM>NBt  NSO  ( 6>  ) ) 

IP  I I IPIXLB.LT.lCVLO'SI I .OR. 

8 ( IPIXLB.OT.LCVH'I  (61  I I 00  TO  360  I OUT  OP  RA3  LIMITS 

C 

C COUNT  PRCOUCP  • ANO  SYMBOL  I rc  * 

C 

NPRCOI I PI  XL  6* I .6l«NPRCQ( IPIXL6*!  .61 >1 
800  NPRCQ( IPIXLS* I .91«NPRCQI I P I XL  9 • I . 9 ’ * I 

830  NPRCQ(  IPI  XL>**I  .>*i«nPRCQ(  I PI  XL'<  • I . >»  > * I 

860  NPRCQI IPI XL3*I . 31 •NPRCQI IPIXL3*I .31*1 

890  NPRCQI IPIXL8*! .8)«NPRC0i IPlXL8*t.8>*I 

380  NPRCQI I PI  XL  I *1 . I ) •NPRCQI IPI XL  I *1 . I>  *1 

IPRTBP IPXBI NS*IPBINI •KSYMI IPI XL  I *1  I 
00  TO  390 

390  IPRTBP(PXBINS*IPBINI*' : ' 8 NO  DATA  SYMBOL  j 

00  TO  390  ) ^ 
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PICOIX 

oil 


( 


3S0  IPRTtriPXRINS*IPIINt' 

SOO  IPRIN«IPtlN«l 

HOO  CONTINUC 


OCT  ANO  INSCRT  TICKS 


0 our  or  raoiancc  lihits 


• SAVE  TICK  rOR  SUBSCQUCNT  LINE 

ABOVE  HINOOH 
LEFT  OF  UINOOH 
RIGHT  OF  UINOOH 
lONORE  IT 

TICKS 


SOO  tPOTIC>IPCTIC*NBlNCO'l 

IF  ( IPLTIC.OT. IPLINI  00  TO  900 
IF  C 

0 (IPLTIC.lt. IPLINI .OR.  0 TICK 

0 (IPOTIC.lt. IPRTBFCPXLBINn .OR.  0 TICK 

A ( IPBTIC.OT. IPRTBFIPXHBINI I I • TICK 

A 00  TO  S90  A then 

IF  ( JSVTIC.EQ. I 00  TO  930  A ALUAVS  INSERT  PRINARV 
IF  ( IPRTBF(PX8INS»IPBTICI .EQ. * ‘I  00  TO  930 

IF  I IPRTBF(PXBINS«IPBTICI .NE. ’ : * I 00  TO  SSO 
IF  ( IPRT8F(PX8lNS*IPBTIC-t I .EQ. ’ ; * I 
A IPRTBF(PX8INS«IPBTIC-I !>'  ’ A HALO 

IF  ( IPRTBF(PXBINS*IPBTIC*I I .EQ. * > * I 
A IPRT8F(PXBIN8<-IPBTIC»t  l>*  * A HALO 

930  IPRTBF(PXBlNS«IPBTICI«JSyTIC 
SSO  CALL  OETIC  ( IPL T I C. I PCT IC . JSYT I C ) 

00  TO  SOO 


C 

c 


900 


return 

ENO 


ooooooooooooooooooooooooooo  OOOOOOOUOOO  OOOOOOOOOOO 
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PttOU 

001 


suonouMNC  oicoi*»  a oisnAv  onAOiCNr/LAOLACiAN/vAniANce  oNAtr  «»i 


NlSrOMY 


C H SCNLOtSeO  LCC  IO/OS/7S  OOlOlNAL  COOC 

C N SCMLOSSrO  LCC  10/10/79  UPOOAOC  OOCUHtNrAr I ON 


NCTNOO 


NOT  vrr  oesiONCo. 


NACHlNr-OCPCNOCNT  COOC 


NONC. 


cxrcNNAL  oercRCNces 


NONOTc  a PRiNr/couNr/LOo  *Norc*  oiaonostic  ncssaocs 
Nvuro  a nanc  *via*  *ro'  suoRouriNCS 

OOUOLC  PRCCtSION  C0S«»CS  a VARI  AOLS'LCNOrH  CHAR  STRINO  POR  PIXCO-LCNOrH 
CxrCRNAL  PICtOO.  •iCOtO 


cxccpriONS 


I.  Nor  rer  iNPiCHCNreo. 

OLOOAL  OCCLARATtONS  A 

INCLUOC  KOHKLS.LlSr  a COHNON  CL  ASS  I P I CA r | ON  INPO 

LOCAL  OCCLARAriONS  * 


NONC. 


PROCCOURC 


CALL  TRaCC 

c 

c 


L-00 
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AICOI« 

ooo 


CALL  RONOrCt 
• MOItMlAY.'. 

A COSHCtlKLSTYM.Ml.tSM. 

A * NOT  YCr  iNMLCNCNrCOI *> 

CALL  NVUrOI  MICtCO.PICOlAi 
RCruRN 


tumouriNC  picqis  • oimAr  eiAtt  onasc  si 


IC  N SCNLOttCRI 


CxrCSNAL  tUtMOuriNCf/rUNCTIONt  CALLCO 


NOMorr 

Nvuro 


CxrCHNAL  ^ICI«9.PIC0I9 
CALL  TNACe 

i ' 


CALL  nONOrCt *0IS^LAV. CLASS  NOT  rCT  INPLCNCNTCO* I 
CALL  NVlATOfPICieS.^ICOISI 
AC TUAN 
CNO 


i \ 


) 


L 


oooooooooooooooooooooooooooooon-oooooooo 


OAN  AACKAOC  AAKNOIX  4. 
MAIN  MOOttANt/ROuriNCS 


^ICOIt 

001 


OUOROUriNC  PICOlO  • OltPLAr  Ntt'OCRIVCO  data  (PHAOC  01 


HltrORV 


r 

N 

tCNLOtOEA 

LEC 

I0/0B/7S 

E 

H 

tCHLOtOEA 

LEC 

00/07/70 

E 

H 

SCHLOSSEA 

LEC 

00/01/70 

nctnoo 


OAIOINAL  COOC 

uaoaaoc  oocunCNTAriON 

00N*r  iNCRCNCNr  numoom  if  oiAONOorie 


CHECK  OlAONOtriC  COUNTCNS  «NO  AACMRC  rOA  NEXT  OISALAT. 


NACNINE'OEAENOENr  CODE 


NONE. 


ExrENNAL  NErEAENCES 


NONOTE 

NOCLNH 


EXCEATIONO 


NONE. 


OlOOAL  OECLANAriONO 


INCLUDE  KOHxor.Ltsr  a cohnon  NNooAAn  cxecution  suircHCs.  couNrcHs 

INCLUDE  NULCor.Litr  a oEriNC  null  chaaactca  stnino 

EXTEANAL  AlCOOO.NULSUa 


AAOCEOUAE 


CALL  TAACE 


ON  AEtUAN.  CALL  AlCOOO  TQ  OE^  CONNANOS 
CALL  NViAroiAICOOO.NULSUii 


L'OS 


II  ^ACKAOC  AWNOIX  I 
IN  MOONANt/ROunNCt 


e ANt  OlAQNOtnetTTT 

e 

m irtNorArL.co.oi  oo  ro  mo 

CALL  NONOfCI  *rATAL  CNRONO  --  NO  OlONLAT  OCNCNArCO*! 

OO  ro  000 

000  If INOUANN.CO.OI  00  TO  000 

CALL  NONOrCl  'NNCVIOUO  UANNINOO  --  NO  OlOfLAT  OCNCNATCO* 
If INOAtCN.CQ.OI  MNirCCO.OOOt 
OtO  fONNAri*»X.  *««rNV  AOAlNI  *1 

CALL  NOCLNMI  NULCOn 

00  ro  000 
e 
c 

C MCfARC  fON  NCXT  OlOfLAT 

e 

000  NMN00H«NMN00M*l 

c 

c 

e NcruNN  TO  Ncxr  otArcHCNr  in  callino  aoutinc 
c 

000  nctunn 
CNO 


u 

Nieolo 

OM 


) 
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OltNIt 

001 


SUOROWriNC  OiOMItl  A NItroOOAN  ARCVIOUOLT  OltALAYCO  OATA 

<1  RONOi  0 It  riotr  i chano  or  coiinano  oi  trACCo 

e (C  N tCNLOtftCllt 

mcLoos  KONRorAitr 

CKrCRNAL  AlCOOO.NULtUO 


CALI  NVIATO'AICOeO.NULtUOi 

CALL  nONorct ’HisrooRAN  connANO  Nor  rcr  inALCNCNTco*) 
NOno»  * 

RCruON 

CNO 


e 

c 


oooooooooonooooooooooooooooooooooooooooooooooo 
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PICCXI 

oot 


u 


subroutinc  Picrxif  • reRniNAriON  routinc  por  pictab 

U KOHOI  a It  FIRST  3 CHARS  OF  COHNANO  Ot  SPACCS 


» 


« 


HISTORY 


E 

H 

SCHLOSSER 

EC 

I0/0I/7S 

OESIGN/COOE/TEST 

J 

C 

CRISP 

LEC 

IB/31/79 

UPDATE  documentation 

J 

c 

CRISP 

LEMSCO 

0S/B8/80 

ONLY  CALL  lOERTS  IF  STRIP  H 

p 


nCTHOo 


CLOSe/VERIFY  INPUT  CRTS  TAPE.  ASK  ABOUT  PRINTER  DISPLAYS.  PRINT 
DISPLAYS  ONSITE.  IF  REQUESTED.  ELSE  DELETE  ALTERNATE  PRINT  FILES. 
TERMINATE  PROGRAM. 


machine-dependent  code 


NONE 


) 


EXTERNAL  REFERENCES 


I0LU3 

OLETPR 

CLOSES 

lOERTS 

READS 

CLOSPR 

PSTOP 


a PRINT  SHORT  ID  FOR  LOGICAL  UNIT  3 
a DELETE  ALTERNATC  PRINT  PILES 
a CLOSE  AND  VERIFY  lEOF  ON  INPUT  CRTS  TAPE 
8 PRINT  COMPLETE  ERTS  SCENE  IDENTIFICATION 
8 FILL  BUFFER  FOR  UNIT  S 

a CLOSE  alternate  print  files 
a PROGRAM  termination 


EXCEPTIONS 


NONE 


GLOBA'  declarations 


INCLUDE  KOMXQT.LIST 
INCLUDE  KOMNER.LIST 
INCLUDE  NULCST.LIST 


C 

C 

C LOCAL  declarations 

c 

c 


a COMMON  prooram  execution  switches,  counters 

a COMMON  ERTS  SCENE  PARAMETERS 

a define  null  character  string 


L-86 


oooo  onoo  oooo 
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PtCCXI 

OOO 


INTCOCR  RORY  A RCSRONSC  TO  RRlNf  PILCS  ONSIYC 
C 

c 

C RROCCOURC 

c 

c 

CALL  TRACe 
C 
C 

C OCT  OPTIONAL  ‘QUICK*  SPCCiriCAT ION 

c 

IPCnOATAC.NC.OI  00  TO  900  A OATA/CHCCKOUT  NOOC 

I rcMP-0 

CALL  oersKNdTrnp.ts*.  nulcsti 
IP( I TCNP-NC. ‘QUI ‘ I 00  TO  190 

uRirc(6. losi 

109  PORNATtHX. ‘ «*QUICK  PROORAN  TCRNl NA T | ON ‘ > 

00  TO  ISO 


CLOse/vCRipy  input  crts  tapc 
ISO  MRITCCS.ISSi 

ISS  rORNAT(>»X.  ‘ **PROORAN  TERN  I NA  T I ON  ‘ > 
CALL  CLOSES 


lOCNTirr  ERTS  SCENE  MITH  PITCH  t ROLL  IP  JUST  EXTRACTED  PRON  SIAT 

IP(INCCT.NE.«> .OR. (ABSIPITOEO) .0T.9. > I 00  TO  ISO 
URI TEI6. IN9I 

t>*S  PORHATriX)  A SKIP  LINE 

CALL  I0LU3I  6) 

CALL  lOERTSl  81 
URI TEI 10. IHSI 
CALL  I0LU3'  101 
CALL  lOERTSI  10) 


BATCH  RUN  MITH  PATAL  ERRORS  OR  ANT  OEHANO  RUN  ••  ASK  ABOUT  PRINTER  OISPLAriS) 

ISO  IPKHBATCH.EQ.  I I .ANO.  (NOPATL.EQ.Q)  ) 00  TO  SOO  0 BATCH  A OK 

IP (NOPATL .NE .0 ) CALL  HOUARNI 

• ‘PATAL  ERRORISi  ENCOUNTERED  --  OISPLAYISI  ARE  OEPECTIvE*) 

URI TEI 6. I 65) 

169  PORHATI’  OUTPUT  OISPLAYISI  ON  LINE  PRINTER?'* 

IPIKOHO.NE. ‘EOPS' I CALL  RE AOS  I L SST A T . • *1 

NORY«'N' 

CALL  OETSKHINORY.il).  NULCST) 

IPINORY.NE. • Y' I 00  TO  700 
C 
C 

C PRINT  OISPLAYISI  ONSITE 
C 

SOO  NUNOOU-HAXOI O.NUNOOU-I I 
URITEie.SHSI  NUNOOU 


L-B7 


u u o u 
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PICCXt 

003 


rORHATMX.It.’  OtSPLAYIS)  PRINTtOM 
CALL  CLOSPR 
00  TO  900 
C 

c 

C DON'T  PRINT  OISPLAYtSI  ONSITC 
C 

700  CALL  OLCTPR 
C 

c 

C TCRHINATC  PROORAH 
C 

900  CALL  PSTOPI  ‘«**PLeASC  AFReC  3.  OR  ARCUINO  3.  OR  ALOCATC  3. M 


PSTOP  OOCS  NOT  RCTURN 
CNO 


« 


i 
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OAH  PACKAOe  APPCNOIX  L 
NAIN  PROORANS/ROUriNCS 


RICfAC 

001 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


suoROuriNC  RicrACt  0 rAcroo  nos  cnanncls  ipnasc  oi 
U KONO)  • It  riRSr  3 chars  of  COHHANO  Oi  sraccs 


c 

e 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


n L OROUN 
J C CRISP 


LCC  01/03/70  ALOORITHH  COOINO 

LCC  18/00/79  AOO  UARNINO  FOR  SPACINO 


< I 


hcthoo 


CHCCK  COHNAMO  validity.  CHCCK  FOR  SPACINO  LCSS  THAN  ONC . CALI* 
BRATC  SPACINO/MINOOU  ANO  CROP  OUTPUT  MINOOW.  PRINT  MINOOU  HCAOINOS 
ANO  NAMC  PICFA3  TO  00  FACTORINO. 


HACHINC-OCPCNOCNT  CODE 


NONE 


EXTCRNAL  REFERENCES 


0ET9IN 

HOUARN 

CALCHA 

CALSPA 

CALHIN 

CROPOU 

OPRPIC 

I0LU3 

lOERT 

lOCPIC 

NVI ATO 

external 

EXTERNAL 


a 
a 
a 
a 
a 
a 
a 
a 
a 
a 

a NAME 

PICIE9. 

PIC3'*5. 


OET  INTEOER  data  FIELD  FROM  UNIT  S 
PRiNT/LOO/COUNT  'UARNINO*  NESSAOES 
CALIBRATE  CHANNELS 

CALIBRATE  PRINT/PLOT  COEFFICIENTS  FOR  SPACING 
CALIBRATE  HINOOU  ENVELOPES 
CROP  NSS  OUTPUT  MINOOU  TO  FIT  PRINT  FILE 

OPEN  alternate  print  file 

PRINT  SHORT  10  FOR  LOGICAL  UNIT  3 
PRINT  SHORT  ERTS  SCENE  IDENTIFICATION 
identify  CURRENT  COHHANO  SPECS 


SIZE 


■VIA'  * TO ' 
PICFA9 
PICFA3 


routines 


EXCEPTIONS 


I.  SPACINO  OF  less  than  ONE 
ANO  NO  factoring  mill  BE 


GLOBAL  declarations 


MILL  GENERATE 
PERFORHEO. 


A UARNINO  OIAOONISTIC 


INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 


KOHXQT.LIST 

kohtbl .list 

KOHNER.L 1ST 
KOHKLS.L 1ST 
KONIRT.LIST 


a COHHON  PROORAH  EXECUTION  COUNTERS. 

a COHHON  factor  table 
a COHHON  ERTS  SCENE  PARAHETERS 
a COHHON  CLASSIFICATION  INFO 
a IRRAOIANCE  COEFFICIENT  TRANSFORHS 


SMI TChES 


L-B9 


u 


DAN  PACKAOe  APPCNOIX  L 
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PICPAC 

OOP 


iNCLuoc  Konnr.utr 
tNCLUOC  UINOer.LIST 
INCLUOC  KOHtUU.LISr 
INCLUOC  KONOHU.LISr 


c 

c 

C LOCAL  OCCL ANA T IONS 

C 

C 

C NONC 

C 

C 

C PROCCOURC 
C 

c 

c 

CALL  TRACC 


• CONNON  AOJUSmCNr/RCOISTRATION  PARANCTCRS 
A OCPINC  HINOOH  PACKCrS 
a ocriNC  INPUT  hi  noon  packct 
a OCPINC  OUTPUT  UlNOOU  packct 


c 

c 

c 

c 


CHCCK  COMNANO  VALtOtTY 

irCNUNOOU.CQ.OI  CALL  NOHARN I ' t NVAL 1 0 OCFAUL T COHNANO'I 


C 

C 

C DRAIN  SPCCS  FOR  CURRCNT  COMNANO 

c 

KLSTYP*'RAO’  a OCFAULT  IS  FACTORING  OF  RAOIANCC 

CALL  OCTSINt I TCNP. *1 . -I . 'CXTRA  FACTOR  SPCC I F I C AT  I ON 


C 

C 

C CHCCK  FOR  SPACINO  Less  than  I --  (SPACING  SCALCO  BY  1001 
C 

IF  ( (NSAOUUlUL IN.U8PI 00> .OC.iOO) .AND. 
t (MSAOHHCHSAN.USPIOOI .Oe. 1001  I 00  TO  200 

CALL  NOHARN  (’RCQUCSTCO  SPACINO  LCSS  THAN  t. 
00  TO  800 
C 

c 

C CALIBRATC  SPAClNO^CHANNeLS/HlNOOU 

c 

200  CALL  CALSPA 
CALL  CALCHA 
CALL  CALHINC  0. I 
C 
C 

C CROP  OUTPUT  HINOOH  TO  FIT  INPUT  HINOOH 
C 

CALL  CROPOU(2S00.3S00> 


C 

C 


c 

CHCCK  FOR  OIAONOSTI 

cs 

W 

IFCNOATAC.NC.OI 

00 

TO 

900 

a oata/chcckout  nooc 

IFINOTOTL .NC.OI 

00 

TO 

BOO 

C 

C 


) 


4 


I ) 
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PICPAC 

003 


C CLCAR  HI  NOON  NUHSCR 
C 

IPINHNOOM.lt. 01  CALL  OPRPIC  0 OPCN  ALT  PRT  PILC(0>  BCPORC  1ST  UINOOU 
NNNOOU* I AOS ( NHNOOU I 


PRINT  HINOOU  HCAOINO  POR  UNIT  0 

IPINOATCH.NC.Ot  CALL  HOUNITIH.SI 
URITCie.tlSI  NHNOOU. NTCRAL 

HIS  PORNATI’  UINOOU  NUNOCR  ‘ . J3. OX . 'PACTOR* . 6X. HA6> 
CALL  I0LU3C6I 
CALL  IOCRTCO) 

CALL  lOCPICISI 


PRINT  HINOOU  HCAOINO  POR  UNIT  10 

HSO  CALL  HOUNiTIH.tOi 
CALL  IOLU3UOI 
CALL  lOCRTCIOI 
CALL  lOCPICdOl 
C 
C 

C NAHC  SUBROUTINC  TO  00  PACTORINO 
C 

CALL  NVIATOt  P I C3H5 . P I CPA3)  3 NCXT  CALL  IS  TO  PICPA3 

00  TO  900 
C 

c 

C UARNINOS  ENCOUNTCRCO  ••  NCXT  CALL  IS  TO  PICPA9 
C 

BOO  CALL  NVIATO)  P I C 1 39 . P I CP A9) 

KLSTVP-0  a NO  PACTORINO  PCRPORMCO 
C 
C 

C RETURN  POR  CALL  TO  NANCO  SUBROUTINE 
C 

900  KOHO-' 

RETURN 

CNO 
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RICfAS 

001 


SUIROUriNC  RICfAS 


a r AC TOR  RAU  nss  CHANNCLS  (RNASC  31 


HISTORY 


N L BROHN  LCC  01/09/70  ALOORITHH  COOINO 

J C CRISP  LCC  10/09/79  RCVlSC  INITIALIZATION  OP  CHANNCLS  ANO 

PACTORS.  CALL  TO  OSSPR3 


NCTHOO 


SCT  NUNBCR  op  CHANNCLS  ANO  PACTORS.  COHPUTC  SUNS  ANO  SUNS  OP 
PRODUCTS  POR  NSS  OR  TCST  DATA.  CONPUTC  CORRCL AT  I ONS.  NCANS. 
STANOARO  OCVIATIONS.  CIOCNVALUCS.  CtOCNVCCrORS.  pcrccnt  op 
VARIANCC  POR  CACH  PACTOR.  FACTOR  STRUCTURC.  ANO  FACTOR 
COCPPICICNTS.  NARK  KTaBLC  AS  CONTAININO  FACTOR  PARANCTCRS. 


nachinc-ocpcnocnt  cooc 

i \ 

NONC  ' ^ 


CXTCRNAL  RCPCRCNCCS 


OSSPR 

OCORLT 

JACNX 

CISRTO 

OOPCMT 

OOSQRT 

OORCCP 

NXNLT 

NDHARN 

NVI ATO 

CXTCRNAL 


a CONPUTC  OBL  PRCClStON  SUNS  ANO  SUNS -OP -PROOuC T S 

a corrclations/ncans/ocvs  pron  o p suns/suns-op-proos 

a JACOBI  ITCRATION  TO  PINO  C-  VAL UCS/ C - VCC T ORS 
a SORT  C-VALUCS/C-VCCTORS  or  OCSCCNOINC  C-VALUCS 
a CONPUTC  X OP  TRACC  POR  NATRIX  DIAGONAL  CLCNCNTS 
a SQUARC  ROOT  OP  NATRIX  DIAGONAL  CLCNCNTS 
a RCCIPROCAL  OP  NATRIX  DIAGONAL  CLCNCNTS 
a NATRIX  NULTIPL ICATION 
a PRiNT/LOO/COUNT/  'WARNING'  NCSSACCS 
a NANC  'VIA'  'TO*  SUBROUTINCS 
PICIBS.  PICPA9 


CXCCPTIONS 


I . 


A MARNINO  MILL  BC  ISSUCO  IP  A NAXINUN  NUNBCR  OP  ITCRATIONS  IS 

cxcecoco  IN  THC  ciocnvaluc/cigcnvcctor  routinc. 


g. 


A MARNINO  MILL  BC  ISSUCO  IP  THC  NUNBCR  OP  CHANNCLS  RCOUCSTCO 
IS  LCSS  than  two. 


OLOBAL  OCCLARATIONS 


L>9B 


OAH  PACKAOC  APPCNOIX  L PICFAk 

HA IN  PROOftANS/HOUriNCS  OOC 


( 


c 

INCLUOC  KONXOr.LIST  • CONNON  HROORAH  CXCCuriON  SHITCHCS.  COUNTCRS 

INCLUOC  K0HLUS.LI8T  « HACKCT  HOINtCRS  rOH  UNIT  3 

INCLUOC  KOHTBL.LIST  • CONNON  FACrOR  TABLC 

INCLUOC  KONKLS.LIST  • CONNON  CLASSirtCAf ION  INFO 

OOURLC  PRCCISION  C8SHIN  • VARI ABLC-LCNOTN  CHAR  STRING  FOR  INTCOCR 

C 

c 

C LOCAL  OCCLARATIONS 

C 

C 

PARANCrCR  NRCOIN-7 

RCAL  rcsrt 10.31/ 

A 7.  .«».  .e.  .0.  .8.  .7.  .s.  .9.  .7.  .8.  . 

A 4.  . I . .3.  .8.  .S.  .8.  .3.  .9.  .8.  . 

A 3. .B. .S. . I . .7. .9. .3. .8. .5. .8. / A TCST  DATA  FROM  COOLCV  A LOHNCS 
C a (19711 .P  I to 

OOUBLC  PRCCISION  OSUNINRCOIN)  I SUNS 

OOUBLC  PRCCISION  OSPROOl NRCOI M . NRCOI HI  I SUNS  OF  PROOUCTS 
RCAL  CVALRRINRCOIN.NRCOINt  A C I OCNVALUCS* • » *0 . S ION  OIAOONAD 

INTCOCR  NROH.NCOL  A ROM/COLUNN  NUNBCR 

C 

c 

C PROCCOURC 
C 

c 

CALL  TRACC 
C 
C 

C FLAO  KTABLC  AS  OCSTROYCO 

c 

KTBLTVO 

C 

c 

C INITIALIZC  NUNBCR  OP  CHANNCLS  AND  FACTORS  POR  NSS  DATA 
C 

IF  (LU3SCQI I I .CO. *NUL  ' I 00  TO  160  A NO  TAPC--USC  TCST  DATA 
IF  (NLINCH.lt. 81  CALL  NOHARN  ('ONLY  ONC  CHANNCL  RCQUCSTCO'I 
KCHACO-NL INCH 
KPACCO«KCHACO 
IF  INOTOTL . NC. 01  00  TO  900 
C 
C 

C RCAO  SCAN  LINCS--CONPUTC  SUNS  ANO  SUNS  OP  PRODUCTS 
C 

CALL  0SSPR3  ( OSUN . OSPROO . ( NRCO I N I . KP I XCO . KCHACO) 

IF  (KPIXCO. OC. 100)  00  TO  800 

CALL  NOHARN  ('PIXCL  COUNT  OP  ' . C8SN I Nl KPt XCO . 3 I . ' TOO  SHALL ' I 
00  TO  900 

c 

c 

C CONPUTC  NUNBCR  OP  PIXCLS.  CHANNCLS.  PACTORS  POR  TCST  DATA 
C 

160  KPIXCO«IO 
KCHAC0«3 
KFACC0«3 


L-93 


i»icrAS 

oos 


c 
c 

e coNPure  suhs  i sunt  or  rnooucrt  row  retr  data 

L CALL  OSSrUfOSUN.OSMOO.  INMCOIN> . TCST.KPIXCO.KCNACOI 

* 5 

C COHPUTC  COPRCLATIONS.  MEANS.  STANOAPO  OCVIATIONS 
C 

<00  CALL  OCORLT (COPRCL.CHNCAN.CHSro. 

> KP I XCO . DSUN . OSPPOO . KCHACO . NPC  0 1 N ; 

00  <«»0  NSro-l  .KCHACO 

IP  (CHsroiNsroi .oe. I . I oo  to  <ho 

CALL  HOHARN  (’STO  OEVlATION  LESS  THAN  1.  POR  CHAN  *. 

A CS8HIN(NST0.<< I 

00  TO  900 

<•*0  continue 
c 
c 

C OUPLICATE  CORRELATION  MATRIX 
C 

00  <60  NROU- I .KCHACO 

00  <60  NCOL*t .KCHACO 

ElOVALtNROH.NCOLI -CORRCL (NROH.NCOL  * 

<60  continue 
c 
c 

C compute  EIOENVALUES  a EIOENVECTORS  a sort  in  order  or  OESCENOINO  EIOENVALUES 
c 

IT-SO 

CALL  JACHXCEIOVAL . E 1 0 VEC . NRCO I M . KCHACO . 9 . E -7 . I T . SOOO . I > 

CALL  EISRTOfEIOVAL .ElOVEC.KCHACO.NRCOI HI 
C 

c 

C COMPUTE  PERCENT  OP  VARIANCE  ACCOUNTED  POR  SV  EACH  PACTOR 
C 

CALL  OOPCNTIEIOVAL . KCHACO. KPACCO . NRCO I H . NRCO I M . PC T VAR  I 
C 
C 

C COMPUTE  PACTOR  structure  (PSTRuCI  > (CI0VAL««.9I  lEIOVECI 

C IPSTRUCI  IS  CORRELATION  MATRIX  BETuEEN  CHANNELS  ( ROUS > A PACTORS  iCOLUMNSI 

C 

CALL  OOSQRT lEIOVAL . KCHACO . KPACCO . NRCO I M . NRCO I M . E VAL RR l 
CALL  MXML  TiEIOVEC.EVALRR.PSTRuC .KCHACO.KCHACO.KPACCO. 

A NRCOIM.NRCOIMI 

C 

c 

C COMPUTE  NORMALIZED  PACTOR  COEPPICIENTS  I PCNORM I ■ I E I OVAL • • • . S 1 1 E I OVEC I 
C 

CALL  OORECPIEVALRR. KCHACO. KPACCO. NRCOIM.NRCOIM.EVALRRI  I RECIPROCAL 

CALL  MXNLTtEIOVEC.EVALRR.PCNORM.KCHACO.KCHACO.KPACCO. 

A NRCOIM.NRCOIMI 

. ! e 

i c 

f C MARK  KTA6LE  AS  CONTAININO  PACTOR  PARAMETERS  PROM  PRINCIPAL  PACTOR  ANALYSIS 
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■"raBHHSET 


-HHaH 


OAN  PACKAOe  AAACNOIX  L PICfAl 

MAIN  MOOKANS/AOUTINCS  OOA 


KTftTt»*fACT* 

KrtLNM*NMNOOH 
00  TO  900 
C 

c 

e fLAO  CRAOA  oerccrco  oy  ciocnvaiuc/ciocnvcctor  routinc 
c 

000  CALL  NOUARN(‘NAX  irCRATIONS  IN  GIOCNM 
C 
C 

900  CALL  NVlATOIRICtOO.RICrAOi 

c 

c 

RETURN 

CNO 


i 

i 
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MAIN  MOOAANS/ROUMNCS 


^lerAt 

001 


e 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 


ouooouriNC  oiefAO  « rAcroo  nan  mo  cnannclo  innaoc  oi 


n L ONONN 
J C CNISN 


LCC  01/01^70 
LCC  10/00/70 


ALOONITNH  cool  NO 
UNONAOC  OOCUNCNTaT ION 


NCTNOO 


MINT  Ncsuirt  or  rAcroNiNO  rooN  ktaolc. 


NACNINt'OCNCNOCNT  COOC 


NONC 


CXrCNNAL  NCrCNCNCeS 


NDNOTC 
NVI ATO 
NATNNr 
rACNNT 

exrCNNAL  PICOOO.NULSUO 


OLOOAL  OeCL ANA r IONS 


iNCLuoc  KONxor,t.isr 
INCLUOC  KonrsL.Lisr 


c 

c 

c 

c 

e 


PNOCCOUNC 


CALL  rPACC 


c 

c 

c 

e 

c 

c 

c 


c 

c 


CALL  NVI ATOfPICOOO.NULSUOl 


CNCCX  TON  OlAONOSncS 

irixroLrr.NC. *rAcr* I oo  ro  ooo 

iriNOTO/L .NC.Oi  00  TO  000 


lOS  PONNATf  nUNOCN  OP  PI  XCLS*  / IX.  I 10/ I 

HNircfO.iosi  KPixco 

l’>S  rONNATf*  CHANNEL  STANOAHO  0evlATI0N3‘l 
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UNI  rc 

CALL  NATNNrfC.CNtrO.'  * . I .KrACCO. I .71 

e 

c 

M9  rONNATI*  CNANNCL  NCANt'i 
MNircic.fcsi 

CALL  NArPNMe.CNHCAN.  * * . I .urACCO.  I .71 

c 

c 

CH9  fONNAri*  CONACLAMON  NCruCCN  CNANNClt*! 

HNITCIC.tHSI 

CALL  NArunri e.eOARCL. * chan* .KCHAC0.KrACC0.7.7l 
C 

c 

SfS  rONNATl*  CIOCNVALUCS  (OIAOONAU*l 

uNircd.xcsi 

CALL  NATARTte.riOVAL. ’ ROM  * . KCHACO . Kf ACCO . 7 . 7 I 
C 
C 

s*»9  roNNAff*  cioCNvecroMS*  > 

MNircia.iHsi 

CALL  HAfANrfa.eiOveC. * A0M*.KCNAC0.KrACC0.7.7l 
C 

c 

laa  rORNAT f 'OPNINCtPAL  TACrOR  analysis  fUNROrATSOI  --‘/I 
HRircca.ias* 
c 
c 

sas  roRHATi’  iNOiviouAL  lit  t cuNuiArtvr  let  t or  variancc  av  tactor 
HRircia.sasi 

CALL  NATRRna.RCrvAR.  * S ’ .C . Kf  ACCO  .C . 7 I 

c 

c 

CALL  rACRRr(rarRUC.rCN0RN.rC0Rl0.CHST0.CHNCAN.KCHAC0.KrACCO.7.7l 
00  TO  090 

c 

c 

c CHCCK  oiAONosTic  couNrens 
c 

aoo  triNOMARN.CQ.oi  oo  ro  aao 

CALL  NONOrC I 'RRtV I Ous  UARNINOS  ••  NO  rACYORINC  rCRrORNCO‘1 

ir (NBArcH.co. 0 1 uRircio.atst 

ats  rORNATl*  ...TRY  AOAlN*l 
00  TO  900 

990  iriNOrAYL-COOl  00  TO  090 

Call  nonoyc i 'prcvious  rArtL  crrors  -•  no  rAcroRtNO  rcRroRNCO*: 

00  ro  900 

990  iriNCNCCK.CO.Ot  00  TQ  990 

CALL  NONOrci ’CMCCKOUr  NOOe  ••  no  TACrORtNO  RCRrORNCO*l 
00  ro  900 
C 
C 

C RRCRARC  rOR  NCxr  OISRLAY 

c 

990  NMMOOW>NUNOOU»l 


NICrAO 

OM 
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001 


e 

e eiCAO  MAONiNot  I ocruiiii  ro  NCxr  orArcnCNr  in  callino  nouriNC 
c 

000  CALI  NOCLOHI'OI 
ocr UAN 


DAN 


I 


NOU  k 
luriNCt 


AtCLIt 

oai 


tuMOuriNC  Aieiiti  • Lit?  ntt-ocmvco  data  ianak  oi 
u RONOi  A It  riAtr  j CNARt  or  eowiANo  oi  oaacco 


NltrONT 


C M tCNLOStCR 
0 A OCCK 


LCC  IO/tO/7«  OAIOINAL  COOC 

LCC  l|/t0/79  ACVtU  rOA  SAACINO  CHANOCt 


IfCTNOO 


CNCCK/CAUIAATC  SACCt.  OCNCAATC  I.I9T  HCAQINOt. 
TmCN  NAHC  AICLIS/>t'S  ro  OCNCAATC  ooov  or  list. 


NACHINC'OCACNOCNT  COOC 


( 


Ufi’t  UNIVAC  rOATAAN  V FUNCTtON  iOOk. 
CiirCANAk  ACrCACNCCt 


« 

4 


ocrsKN 

octsin 

NOUAAN 

NVI ATO 

CALtAA 

CALCNA 

CAkUIN 

CAOAOW 

OAAAIC 

tOkUS 

lOCAT 

lOCAIC 

NOUN  IT 

UAAN9 

CkTCRNAk 

CKTCANAk 

CKTCANAk 


• OCT  CMAAACTCA  OTRINO  OiTA  riCkO  rnON  UNIT  9 
$ OCT  InTCOCA  data  riCkO  TAOH  unit  9 

$ AAlNT/COUNT/kOO  ‘HAANINO’  OIAONOSTIC  NCSfAOC 
A NANC  *V|A'  *TO’  SUiAOUTiNCf 

A CAkllAATC  TAANOroANATION  COCrriCICNTS  roA  SAACINO 
A CAkItAATC  CHANNCkS 
A CAkItAATC  UlNOOM  CNVCkOACS 

• CAOA  OUTAUT  UlNOOM 

A OACN  AkTCANATC  »AINT  rikClSI 
A lOCNTirv  kOOICAk  UNIT  S 
A IDCNTirv  CATS  tCCNC 

A lOCNTirv  CUAACNT  CONNANO  SACCS  rOA  PtCTAS 

• UAITC  HCAOINO  klNC'f)  AT  rOA  OT  NCXT  »A3C 

; sutMiT  uaanino  roA  nissinq/ tuvAkio  ncko  tacn  unit 
AlCOOO.  NUkSUt 
AlCtft.  AICU9 
AIC3N9.  AiCkIS.AICkiP.AtCkIS 


9 


CXCCATIONS 


t . 

t. 

s. 


‘kIST*  NAT  not  OC  a OCfAUkT  CONNANO. 

ANT  UAANINO  OA  AATAk  CAAOA  AACVCNTS  OCNCAATION 
TNC  rOkkOUiNO  CXCCATION  conditions  AAOOUCC  TMC 


or  tmC 
rokkou 


list! 

NO  ACSUkTS 


k’SS 


oooooooooooooooooo 


OAH  PACKAOe  APPCNOIX  L 
HAIN  PftOORAHS/ftOUrtNCS 


PICLIS 

eo« 


CONDITION 


PROCESS I NO  OerAULT  COHHANOS 
(NHNOOH-0) 

KLSTYP  in  CONHON  UNOtriNCO 
KLSTYP  SPECtriCATION  NtSSINO 
KLSTYP  SPECIPtCATtON  INVALID 
extra  SPECiriCATioN 
LI  NIT  CHANNEL  VALUE  RANGE  IS  NULL 
ILCVLOl >LCVHl I I 
OATA/CHECKOUT  nOOE 
UARNINO(S)  OR  FATAL  ERROR(S> 


ACTION 

DIAGNOSTIC 

NONE 

WARNING 

KLSTyP:«‘RAO* 

NONE 

USE  COMMON  KLSTYP 

NONE 

NONE 

WARNING 

NONE 

WARNING 

NONE 

WARNING 

‘TO*  routine  is 

NULSUB 

NONE 

‘TO*  routine  is 

PICLIS 

NONE 

GLOBAL  OECLARATIONS 


C 

c 

C 

C 

C 


c 

c 

c 

c 

c 


INCLUDE  KONXQT.LIST 
INCLUDE  KOHKLS.LIST 
INCLUDE  XONTBL.LIST 
INCLUDE  UINOEF.LIST 
INCLUDE  KOHOUH.LIsr 
INCLUDE  NULCST.LIST 


LOCAL  DECLARATIONS 


INTEGER  KLSAVE 
integer  INTEMP 
INTEOCR  NPRLIN 
INTEGER  NPRCOL 
INTEGER  LUNALT 
INTEGER  NPRCtr 
INTEGER  NOONAX 
INTEGER  NOD 
INTEGER  PPOTOUia.MMOl 


PRG?E0URE 


CALL  trace 


C 

C 

C GET 
C 


list  type 


CONHON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 
COHMDN  classification  SPECTRAL  LIMITS 
COMMON  TICK/FREQ/FaCTOR  TABLE 
DEFINE  STRUCTURE  OF  WINDOW  PACKETS 
COMMON  OUTPUT  WINDOW  PACKETS 
DEFINE  NULL  CHARACTER  STRING 


a SAVE  LOCATION  FOR  KLSTYP 
a TEMPORARY 

a NUMBER  OF  PRINT  LINES  IN  LIST 
a NUMBER  OF  LOGICAL  PPO  COLUMNS  IN  LIST 
a LOGICAL  UNI'  number  TO  SPOOL  PRINTER  OUTPUT 
a number  OF  LOGICAL  PPO  COLUMNS  IN  ONE  FILE 
a MAXIMUM  • OF  nodes  in  PPDOWW 
a ' OF  NOOE  IN  PPDOWW/ PPOTOW 
a TEMPORARY  PPDOWW 


a 

a 

a 

a 


ktblty**  nul‘  a mark  old  freq  table 

IFINWNOOW.EQ. 0)  CALL  MOWARNI  ‘INVALID 


KLSAVE-KLSTYP  » 

IFI (KLSTYP. NE. ‘ORA' 
(KLSTYP. NE. ‘LAP' 
(KLSTYP. NE. ‘VAR' 
(KLSTYP. NE. 'CLA'  1 
KLSTYP«‘RA0‘ 


SAVE  PREVIOUS  LIST 
. AND. 

. AND. 

. AND. 

> a IF 

a . . 


A3  DESTROYED 
DEFAUL  T COMMAND' 1 
TYPE 


undefined  . . . 

. then  make  it  raoiiancei  ... 


L-lOO 
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CALL  OerSKHtKLSTYP. (3) . NULCSTl  • ...  UNLESS  8RECIFIE0  BY  L 


C 

C 

C 

C 

C 

c 

c 

c 


CHECK  LIST  TYPE 

IFIKLSTYP.NE. ‘RAO* > 00  TO  8N0 

CALL  NVIATOI  PIC3HS.PICL I 31 
00  TO  300 

a*»0  IFKKLSTYP.NC.  *ORA*  I . AND. 

A IKLSTYP. NE. ’LAP* ) . AND. 

A (KLSTYP.NE. *VAR* n 00  TO  ESO 

CALL  NVIATOI  PIC3HS.PICLI>»> 

00  TO  300 

250  IFIKLSTYP.NE. *CLA* t 00  TO  280 

CALL  NVIATOI  P I C3HS . P I CL  I S> 

00  TO  300 

200  CALL  HARN5I  *BAO  LIST  TYPE  •-*) 

klstyp-klsave  a restore  previous  list  type 


DRAIN  SPECS  FOR  CURRENT  COMMAND 

300  CALL  OETSINI INTEMP.  * t .* 1 .* EXTRA  LIST  SPECIFICATION  •-*) 

CHECK  radiance  limits 


A RADIIANCEI? 
a NEXT  CALL  IS  TO  PICLI3 

A 0RAI0IENT17 
a LAPILACIANI? 
a VARIIANCEI7 
a .NEXT  CALL  IS  TO  PtCLIN 

a CLAISSI7 

a NEXT  CALL  IS  TO  PICLIS 


IFILCVLOl .OT.LCVHI I 1 CALL  MOHARN!  *N0  RADIANCE  LIMITS’I 
IFINDATAC.NE. 0>  00  TO  900  a OATA/ChECKOUT  mode 
C 

e 

C CALIBRATE  SPACINO/CHANNELS 
C 


CALL  CALSP/ 

CALL  CALCHA 
C 
C 

C SAVE  THE  PHYSICAL  PPO  VERTEX  COLUMNS 
C 


N00MAX«a00L (PPOOUUIHUSeO.UHEAO) ) 

00  390  NOO«HVER.NOOMAX 

PPOTOMIMCOL ,NOO> •PPOOMMIUCOL .N00> 

390  continue 
C 

c 

C transform  TO  LOOICAL  PPO  VERTEX  COLUMNS  FROM  PHYSICAL 
C 


00  379  NOO«HVER.NOOMAX 

PPOOHHI UCOL . NOO ) •PPOOHM I HCCL . NOD  > > 3 
379  continue 


C 

C CALIBRATE  OUTPUT  NINOOU  ENVELOPE  USING  LOGICAL  PPO  VERTEX  COLUMNS 
C 


C 


CALL  CALUINI  0.1 


L-tOI 


PICLIS 

003 

I SIT  I CHO 


. |- 


ooou  ooou  uouu  ouuu  ouou 


OAH  PACKAOC  APPCNOI 
HAIN  PROORAHS/ROUTI 


PICLIS 

OOH 


X L 

Nes 


C 

C CROP  OUTPUT  HtNOOU  TO  FIT  INPUT  UINOOM  % ALT  PRINT  FILCISt 
C (3  PNTSICAL  PPO  COLUMNS  PCR  LOO I CAL  PPO  COLUHNt 
C 

NPRCir-tKPAoe-**-ow3  a nunbcr  or  looical  ppo  columns  pcr  pile 

C a CXCLUOINO  LEFT  MAROIN  A e NEAT  LINES 

CALL  CROPOUl  IOOO.NALTM«NPRCIFI 


.STORE  the  physical  PPO  VERTEX  COLUMNS 

00  •»00  NOO-UVER.  NOOMAX 

PPOOHHt  UCOL .NOOl >PPOTOHIHCOL .N00> 
<»00  CONTINUE 


CHECK  FOR  OUONOSrtCS 

IF  (NOTOTL.NE.OI  00  TO  900 


OPEN  PRINT  FILECSI  IF  NOT  OPEN. 

IF(NHNOOH.LT.O>  CALL  OPRPtC 
NUNOOU- I ABSCNHNOOMI 
NPAOE>0 


CLEAR 

a 


UlNOOH  NUMBER  A RESET  PAOE  NUMBER 
OPEN  ALT  PRT  F1LE(S>  BEFORE  1ST  HtNOOU 


COMPUTE  LOOICAL  SIZE  OF  PRINT  UlNOOH  FROM  LOGICAL  PPO  ENVELOPE 

NPRL IN>IFIX(PPOOUU(UL IN. UMAX) ) -IFI X ( PPOOUU) UL 1 N. HMI N) ) *1 
NPRCOL«IFtX(PPOOUH(HCOL.UMAX)  ) • 1 F I X ( PPOOUU ( UCOL . UM I N I ) 

CHECK  FOR  OIAONOSTICS 

IFCNOTOTL .NE .0)  00  TO  900 


PRINT  UlNOOH  HEAOING  FOR  UNIT  6 

URITE(6.>H9)  NUNOOU.MTCRAL 
VIS  FORMATC  UlNOOH  NUMBER  ’ . J3 . 6X  . ' L I S T * . SX  . V A6 ) 


CALL 

I0LU3I 

6) 

CALL 

lOERTi 

S) 

CALL 

lOCPICi 

6) 

C 

C 

C PRINT  UlNOOH  HEAOINO  FOR  EACH  ALTERNATE  PRINT  FILE  IN  LOOICAL  PPO  ENVELOPE 
C 

LUNALT«IO 

00  V60  N*t .NPRCOL .NPRCIF 

CALL  HOUNITI  V.LUNALTI 
HRITE(LUNALT.VIS)  NUNOOU . MTERAL 
CALL  I0LU3I  LUNALT) 

CALL  IOERT(  LUNALT) 


L-IOZ 


uouu  oouu 
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PICLIS 

OOS 


CALL  tOCPICt  LUNALTt 
LUNALr>LUNALT»t 

•»eo  coNTiNue 


ANY  01  agnostics??? 

900  IPINOTOTL .eO.OI  00  TO  990 

triHOATAC.NC.OI  CALL  NVIATOI  PI COOO . NULSUB I 

iriHOATAC.tO.O)  CALL  NVIATOI  PI C 199. PI  CL  I 9 > 


RETURN  FOR  CALL  TO  NANEO  SUBROUTINE 

990  KONO-' 

RETURN 

ENO 


• OATA/CHECKOUT 


oooooooooooooooooooooooooooooooooooooooo 


PICLI3 

001 


OAN  PACKAOe  APPCNOIX  L 
HAIN  PMOORAnS/ROUTINCS 


SUSMOUriNC  PI CL  1 3 


• list  RAOIANCe  CPNASC  31 


history 


E 

H 

SCHLOSSER 

LEC 

to/as/Ts 

ORIGINAL  COOE 

0 

A 

BECK 

LEC 

11/08/79 

NEU  PXBOEF  BUFFER 

FORMAT 

J 

C 

CRISP 

LEHSCO 

os/is/so 

AOO  H HOROS  TO  PR 

INT  BUFFER 

HCThOO 


initialize  loh  and  high  print  lines  ano  coluhns.  generate 

AND  PRINT  TOP  SAHPLE  SCALE  ANO  BOROER.  INITIALIZE  LOU  ANO 
HIGH  AOJUSTEO  line.  CALL  OETRAO  TO  READ  LINE.  MASK  NON- 
TRIVIAL HINOOU.  RESANPLE/SCREEN/COUNT  PREQUENCY. 

GENERATE  ANO  PRINT  BOTTOM  SAHPLE  SCALE  ANO  BOROER. 

NAME  PICLI9  AS  ‘TO'  ROUTINE  FOR  URAP-UP  OF  LIST 
PROCESSING. 


nachine-oepencent  cooe 


ASSUMES  6 CHARS  TO  AN  INTEGER  BIN. 


EXTERNAL  REFERENCES 


C 


AHP  a AOJUSTEO  COORO  FOR  PRINT/PLOT  COORO 

OETRAO  a OET  ALL  SELECTEO  RAH/ TRANSFORMEO  CHANNELS 

M6KPIX  a MASK  NON-TRIVIAL  HINOOU 

PROVFI  a PRINT/OVERPRINT  FILES 

NOFATL  a PRINT/LOO/COUNT  'Fatal  error*  messages 

NVIATO  a name  'VIA*  'TO*  SUBROUTINES 

ERPRTA  a URITE  TO  alternate  print  files 
cstvin  a character  string  for  integer 

INTEGER  NI>»NC  a NUMBER  OF  INTECERS  FOR  NUMBER  OF  CHARACTE 

OOUBLE 


PRECISION 
VI  A 

EXTERNAL  PICIZ9. 
EXTERNAL  RESCRN. 


CBSHCS 
TO 

PICLI9 

OE TBY  T . OE T I CE . OE T I NT . OE T NUL 


a VARI ABLE-LENOTK  CHAR. STRING  FOR  F 


a routine  to 


RS 

I XEO-LENGTH 


OET  BIN  VALUE 


,C 

* C EXCEPTIONS 
C 

c 

•C.^  STATUS 
C FROM 

C OETRAO  NEAT  LINE  CHAR  PRINT  CELL  SYMBOLS  OlAONOSTIC  ACTION 

C 

C ‘EOF*  ‘t‘  NO  OATA  NONE  PRINT  LINE 


L-IO»* 


oo  or>  n n o r>  n noooooon 
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RICLIS 

OOP 


*1A0M* 

*BAOr*  N/A 

•ort*  M/A 


NO  DATA  ( * 1 1 : * t NONC 

N/A  ratal 

N/A  ratal 


PRINT  LINC 
RETURN 
RETURN 


OLOPAL  OECLARATIONS 


INCLUDE  KONXOT.LIST 
INCLUDE  K0HKLS.LI8T 
INCLUDE  UINOCr.LIST 
INCLUDE  KOHOHU.LIST 
INCLUDE  KOHTBL.LISr 
INCLUDE  PXBOEP.LIST 
INCLUDE  PICOEr.LtSr 
INCLUDE  MAX  I NT. list 


A COMMON  PROORAM  EXECUTION  SWITCHES.  COUNTERS 
• COMMON  CLASSIRICATION  INFO 
a OEPINE  STRUCTURE  OF  WINDOW  RACKETS 
a COMMON  OUTPUT  HIN'^OH  PACKETS 
a COMMON  TtCK/FREQ  ABLE 
a DEFINE  BUFFER  STRUCTURE 
a DEFINE  PICTAB  PARAMETERS 

a MAXIMUM  integer  value 


LOCAL  declarations 


parameter  NXBUFS«6  a • of  mss  pixel  BUFFERS  IN  ARRAY 

INTEOERS  IN  MSA  BUF  > #INTS  PREAMBLE  * ( *81  NSf'S) /•*  * IpEXTRA  BYTES*3)/H 
PARAMETER  NUtXBF  * (PXBINS'll  * (3S*»S*3W<»  * (tS*3Wi» 


H05  PRT  BUF-H05  PREAM»INAX  FILES*IMAX  COL S/ PO-NE ATLN  COLS-MARO  C0LS)>«>* 
PARAMETER  NHIPBF«CPXBINS-t  I «(MALTHl  • (KPAOHl*  B • '» I I t <* 

C 

parameter  nfrqchps  a » wos  per  channel  in  local  freo  table 

PARAMETER  NFROSE-IEB  a * CHANNELS  IN  LOCAL  FREO  TABLE 

INTEOER  NPXBUFCNHIXBF.NXBUFSI  a ARRAY  OF  MSS  PIXEL  SUFFERS 
INTEGER  IPRTBFINHIPBF)  a PRINT  BUFFER 

INTEOER  NFREQINFRQSZ.NFRQCHI  a LOCAL  FREQUENCY  TABt E (SCOPE  INCLUDES 
C a INTERNAL  routine  RESSYM) 

INTEOER  I PL  IN  a PRINT  LINE 

INTEOER  IPCMIN. IPCMAX  a MINIMUM.  MAXIMUM  PRINT  COLUMN 

REAL  AOJLIN.ADJSAM  a ADJUSTED  LINE  AND  SAMPLE 

INTEUER  MLIOOL.MLtOOH.MLIOOS  a MSA  LlNEMOO;  L OU  . HI  OH  . SPAC  I nC 

integer  MSALiN  a MSA  line  number 

INTEOER  ISTAT  a WO  jTaTuS 

INTEOER  NTLCHR  a NEAT  LINE  CHARACTER 

INTEOER  MROLCS.MRORCS  a LEFT  ( RIGHT  MARGIN  CHAR  STRING 
INTEOER  IPLMIN. IPLMAX  a MINIMUM  AND  MAXIMUM  PRINT  LINE 

INTEOER  MLtOO  a MSA  LiNE'tOO 

INTEGER  MSASLO.MSASHI  I LOU  t HIGH  MSA  SAMPLE  NUMBER 

INTEOER  NPRL IN.NPRCOL  i * PRINT  LINES.  COLUMNS 

INTEOER  LASTLN  a LAST  SCAN  LINE  READ 

integer  i.k  a 00  loop  indexes 

C 

C 

c procedure 

c 

C 

CALL  trace 
C 


L-IOS 
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C 

C INiriALIZC  niNINUH  AND  NAXINUN  PRINT  LINES  AND  COLUHNS 
C 

I PL N I N-PPOOHH ( UL I N . HH I N I 
IPLNAX*PPOOUH(NLlN.HNAXi 
tPCNlN>PPOOHN(MCOL .HHINI 
IPCNAX*PPOOHMIUCOL .HNAX) 

c 

c 

C CALCULATE  THE  NUMBER  OF  PRINT  LINES.  COLUHNS  TO  BE  PRINTED 
C 

NPRL IN«IPLHAX-IPLNlN»l 
NPRCOL>( IPCHAX*IPCHIN*I I «3 
C 
C 

C CLEAR  LOCAL  FREQUENCY  TABLE 
C 

DO  BSO  l*t .NLIHCH 

DO  aOO  K*l .NFRQ8Z 
NFREQfK. I I >0 

aoo  continue 

BSO  CONTINUE 


INITIALIZE  LON  AND  HlOH  LINES  ANO  SPACING  f ] 

'K  - 

CALL  AHP  (AOJLIN.AOJSAM.  FLOAT ( I PLMI Nl . I . I 
NLtOOL«AOJLINMOO. 

CALL  ANP  (AOJLIN.AOJSAH.  FL OAT ( I PL  MAX ) . I . I 
NLIOOH>AOJLlN«lOO. 

NLtOOS«MSAOHH(HL IN.USPIOO> 


POSITION  AT  TOP  OF  HI  NOON 
NSALIN>HLIOOL/tOO 

CAlL  OETRAO  (MPXBUF. I 01 . INXBUFSI  . ISTAT  . MSALIN.0.0) 

IF  ( ISTAT.NE. ’BAOr* I 00  TO  300 

CALL  MOFATL  (‘BAOF  (BAD  FILCI  ON  UNIT  3*1  • 

CALL  ERPRTA  ( ^ 

A *10  * .a.NI>»NC(aB)  . * * I ^0  ERROR  •-  lONORE  OUTPUT**) 

00  TO  900 


generate  ANO  PRINT  SAMPLE  SCALE  ANO  BORDER  FOR  LINE  BEFORE  1ST  PRINT  LINE 

S 

300  CALL  SAMSCL  r I PRTBF . ( I PL  Ml N- I ) . ' I PCMI N l . ( I PCMAX ) ) 

IF  ( (MBATCH.EQ.  01  .ANO.  INPRL  I N.LE  .6**  ) . ANO.  < NPRCOL  . LE  . ) ) 

A CALL  PROVFI  fB.*  *.0.*  * . * • I I I 1 « * . I PRT  BF ) 

CALL  PROVFI  no.*  *.V.*  *.«».*  * . * • I III  I * . I PR  TBF 1 
C 
C 

C READ.  MASK.  RESAMPLE.  SCREEN*.  COUNT  FREQUENCY  ANO  PRINT  SCAN  LINES 
C 

IPLIN-IPLMIN 

LASTLN*>MAXlNT 
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00  X90  NLIOO-NLIOOL.NLIOON.nLIOOS 

NrLCHR**i’ 

NSALIN-nUOOMOO 

CALL  A*»P  (AOJLIN.AOJSAH.  PLOATf  IPL  INI  .FLOAT ( tPCNINI  i 
HSASLO«AOJSAH 

CALL  A*»P  f AOJLTN.AOJSAN.  FLOAT  ( I PL  INI  . FLOAT  ( t PCNAX  It 

NSA8HI«A0JSAN 

IF  fNSALIN.NC.LASTLNI  CALL  OCTRAO  INPX8UF. (NHI XOFI . (NXOUFSI . 
A ISTaT,  N8ALIN.NSASL0.HSA8HI I 

LA8TLN-N8ALIN 

IF  ( f ISTAT. NC. 'BAOF* I .AND. I ISTAT.NC. 'OFL * I I 00  TO  380 
CALL  HOFATL  ( C8SHC8( ISTAT. I .HI . 

A ’ HHILC  RCAOINO  ON  UNIT  3*1 

CALL  CRPRTA  ( *10  * .8.6. 

A *<l/0  CRROR  - lONORC  OUTPUT**) 


00  TO  800 

380  IF  (ISTaT. 80. *BA0R*l  NTLCHR*'?* 

CALL  NSKPIX  (NPXBUFI I . I I . NPXBUF (I . I I I 

IF  ( ( NPXBUF (PXSI NT . I I .80. * BYT* I .OR. 

A ( NPXBUF ( PXB I NT . I I . 80 . * CHR  * I . OR . 

A I NPXBUF (PXB I NT. 1 1 . 80 . * I NT  * I . OR . 

A (NPxeUF(PXBINT.|l .80.‘NUL*l I 00  TO  330 

CALL  HOFATL (' INVALID  BIN  TYP8  *. 

A C8SHCS(HPXBUF(PXBINT.| I .1 .31 

00  TO  900 

330  IF  (NPXBUFIPXBINT, M .80. 

A ( IPCNINI . ( IPCNAXI . 

IF  (NPXBUF(PXBINT. I I .80. 

A ( IPCNINI .( IPCNAXI . 

IF  (NPXBUFIPXBINT. I I .80. 

A ( IPCNINI .( IPCNAXI . 

IF  (HPXBUFfPXBINT. I ) .80. 

A ( IPCNINI .( IPCNAXI . 

CALL  CSTMN  (NR0LCS.(I>< 

NRORCS>HROLCS 

IF  ((NBATCH.80. jl .AND. ( NPRL I N . L8 . 8H I .ANO. ( NPRCOL . L8 . 6H I ) 

A CALL  PROVFI  ( 6 . HROL CS . H . * * . 0 . NTu CHR . * I • • • • • * . I PRTflP ) 

CALL  PROVFI  MO.MROLCS.H. HRORCS.h.mTLCHR. * 1 •••••*. IPRTBr 
I PL  IN- I PL  IN* I 
390  CONTINUC 


IN  PICLI3*) 


*BYT*)  CALL  R88CRN  ( I PRTBF . ( I PL  I N I 
NPXBUF. (NWIXBF) . (NXBUFSI .08TBYTI 
’CHR*)  CALL  R8SCRN  ( I PRTBF . ( I PL  I Nl 
NPXBUF. (NMIX8FI . (NXBUFSI .08TIC8) 
‘INT’)  CALL  R88CRN  ( I PRTBF . ( I PL  I N) , 
NPXBUF. INUIXBF) . INXBUFS) .08TInT) 
NUL*)  CALL  R88CRN  ( I PRT BF . ( I PL  I N I . 
NPXBUF. (NMIXBFI . (NXSUFS) .08TNUL ) 
'61.  HSALIN.H. ‘0’ ) 


C 

C 

C 08N8RAT8  ANO  PRINT  SANPL8  SCALC 


C 


ANO  BOR08R  FOR  L I N8  AFT8R  LAST  PRINT  L 1 N8 


CALL  SANSCL  ( I PRTBF . ( I PL HAX » I l . ( I PCN I N ) . ( I PCNAX ) ) 

IF  ( (NBATCH.80. 0) .ANO. INPRL IN.L8.6HI  .ANO. 'NPRCOL  .L8.6H)  ) 

A CALL  PROVFI  (6.*  '.H.*  ‘.O.*  

CALL  PROVFI  no.*  *.H.*  *.V.*  * . • II  I I I • * . IPRTBF) 

CALL  PROVFI  (10. * ; • . * 31  I I I • * . IPRTBF) 


N0V8  data  FRON  LOCAL  FR80  TABL8  TQ  CONNON  TABL8 

XT8LTY«*FR80* 

KTBLNH-NUNOOW 
00  600  l-l .NL INCH 


L-107 
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00  S80  K«I.MrPQfZ 

KEPEQIK. I l•N^RE0IK. II 
SSO  CONTINUE 

600  continue 
c 
c 

C NEXT  CALL  IS  TO  PICLI9 
C 

900  CALL  NVIATO  ( PICI99.PICLI9I 
RETURN 


INTERNAL 

subroutine  SAHSCLt  a OENERATE  SAMPLE  SCALE  ANO  BORDER 
0 IPRTBF.  a PRINT  BUFPER 

( IPLIN.  a PRINT  line 

( tPCHiN.  a NININUH  PRINT  COLUMN  ILOOICAL) 

( IPCMAXi  a MAXIMUM  PRINT  COLUMN  ILOOICAL I 
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algorithm  oesion 

0 

A 

beck 
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aloorith  cooino 

method 

initialize  LOU  ANO  HlOH  SAMPLES  ANO  SPACINO.  SET  BUFFER 
PREAMBLE.  ENCOOE  SAMPLE  NUMBERS  ANO  PUT  COLON.  STRING.  ANO 
COLON  IN  PRINT  BUFFER. 

NOTE.  3 PHYCICAL  PPO  BINS  PER  LOGICAL  PPO  COLUMN. 


MACHINE-OEPENCENT  COOE 

ASSUMES  6 CHARS  PER  INTEGER  BIN 


EXTERNAL  REFERENCES 


ANP  a AOJUSTEO  COORO  FOR  PRINT/PLOT  COORO 

PUTCHR  a PUT  CHAR  IN  CHAR  STRING 

csthin  a character  string  for  integer 


exceptions 

ASSUMES  6 CHARAC  ERS  PER  INTEGER  BIN. 


PICLIS 

OOS 


t ) 


L-lOB 
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006 


0L06AL  OeCLARATIONS 


INCLUOC 

KONOHH.L 

1ST 

0 

CONNOR 

INCLUOC 

MINOCf .L 

1ST 

0 

OCf INC 

INCLUOC 

PXBOCf .L 

1ST 

• 

OCf INC 

OUTPUT  MINOOM  PACKCTO 

sToucruoc  Of  uiNOOu  PACKS rs 
pixCL  ourrCR  STRucruRC 


LOCAL  OCCLARATIONS 


INTCOCR  iPRrorm 
RCAL  AOJL IN. A0J8AN 
iNreocR  tPoiN  • 

INTCOCR  HSA8AN  • 


• AROUHCNT 

I AOJUSrCO  LINC.  SANPLC 
POINTCR  TO  PRINT  OIN 
SANPLC  NUH9CR 


INTCOCR  HSIOOL .H8IOOH.NSI0O8  • N8A  SANPLC*tOOi  LOW. HI  OH. SPAC I NO 


C 

C 

C 

C 

C 

C 

C 


PROCCOURC 

INITIAL  ICC  LON  ANO  HI  OH  8ANPLC8  ANO  SPAC I NO 


CALL  AHP(  AOJLIN.  AO.ISAN.  PLOAT  ( I PL  I N I . fL OA T ( I PCN  I N)  I 

H8IO0L-AOJ8AN«100. 

CALL  A>»P(  AOJLIN.  AOJSAH.  FLOA  T ( I PL  I Ni  . fLOA  T I I PCHAX  I) 
H8IOOH-AOJSAN* 100. 

N8IOOS>NSAOUH(USAH.USPt  001 
C 
C 

C SCT  PRCAHBLC  POINTCRS 


IPRTOPIPXRCCNI-O 
I PRTOf I PXL I NOi • I PL  I N 
IPRTBP(PXCHAN) -0 
IPRT8riPXQUALI«0 
IPRTBriPXOINn>*  INT* 

IPRTBf IPXLBINi -a 
IPRTBf (PXLCOL I •IPCNIN 
C 

C CONVCRT  LOOICAL  PPO  COLUMNS  TO  PHYSICAL  PPO  BINS 
IPRTBf fPXHBINI -t  f I PCHAX -IPCNIN* I I • 31 *I 
C 

IPRTBf I PXHCOL )•! PCHAX 
IPRTBf IPXNOINI >0 
IPRTBf rPXNOOAi *0 
IPRTBf (PXL JOI 1 >0 
IPRTBf (PXHJOl l>0 
C 
C 

C INITIALIZC  bin  NUHBCR  to  bin  onc 
c 

IPBlN«IPRTBf IPXLBINI -I 
C 

c 

C BUILO  8CALC  ANO  BOROCR(S> 

C (5  PHYSICAL  PPO  BINS  PCR  LOOICAL  PPO  COLUNNi 
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C 

00  too  NSIOO-NflOOL.NOIOON.NOIOOS 
ntAtAN«NtlOO/IOO 

IMTif  (PXOINA*IMIN*OI«*  • * 

iMreriMoiNo»iPoiN*i  !•*  • * 

CALL  l»urCNRMPArariPXOlNO*IAOIN*>l  . ( It  . *t*l 
CALL  CSrHINIiaNror(AXOINt*IAOlN*»l  . lOl  .**.  nfASAn.H 
CALL  AurCHAMPRrer(PXOlNS*IPOIN»CI  .101  . *t’i 
IPOIN-IPOIN*] 
too  CONTlNUe 

c 

c 

C RCrUAN  TO  CALL  I NO  ROUT  INC 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


000  RCruRN 


INTCRNAL 

8U0R0UTI 

0 IRR'Or. 

1 I RL  I N . 

( IPCNIN. 
I IPCHAX. 


NC  RC8CRNI  • RCSANPLC/SCRCCN/COUNT  PRCQUCNCV 
• PRINT  OurPCR 
a PRINT  LINE 

a NINIHUH  PRINT  COLUMN  (LOOICAD 
a HAXINUN  PRINT  COLUMN  (LOGICAL  I 


*0*1 


a 


* :0000i * 


♦ 


i.  \ 


I MPxour.  a ARRAY  or  nss  pixel  ourrERs 
( NHixer.  a number  op  moros  in  one  buppcr 
( NXBurs.  a NUMBER  or  buppero 

I oetbini  a routine  to  oet  bin  value**octbvt.octice.oetint.oetnul 
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REQUIREMENTS 

0 

A 

BECK 

LEC 
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ALOCRI ThM 

DESIGN 

0 

A 

BECK 

LEC 

1 1/07/79 

ALOORI THM 

CODING 

method 

COMPUTE  LOW  AND  HIOH  SAMPLES  AND  SPACING.  SET  SUPPER 
preamble.  POR  each  sample.  CHECK  IP  OUTSIDE  OP  INPUT  UlNOOw. 
CHECK  IP  OUTSIDE  OP  RaOIANCE  LIMITS.  AND  COUNT  PREOUENCY. 
NOTE.  3 PHYSICAL  PPO  BINS  PER  LOGICAL  PPO  COLUMN. 


MACHINE -DEPENDENT  CODE 
NONE. 
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DAD  ^ACKAOC  AMCNOIX  L 
NAIN  PMOOMAHt/AOUriNCt 


^tCLIS 

OOt 


CXTCRNAL  RCrCRCNCCt 

AHR  • AOJutrco  n«t  eoono  roR  RRtNr/RLor  cooro 

etr«»iN  • CHARAcrcR  strino  tor  intcocr 
OerCHR  • ocr  CNARACTCR  TROR  CNARACrCR  strino 


CXCCRTiONS 

NONC. 


OLORAL  OCCLARATIONS 

INCLUDE  KONOHH.Litr  • CONHON  OUTRUT  HINOOH  RACKETS 

INCLUDE  KONTSL.LIST  • CDHNDN  rHEQ/TICK  TAfLE 

INCLUDE  KONKLS.LISr  I CONNON  CLASSiriCATION  INTO 

INCLUDE  RXSDEf.LiST  • OETI NE  SurrCR  STRUCTURE 

INCLUDE  KOHSYN.LIST  I CDHNDN  SVNSOL  TARLE 

INCLUDE  HINDER. LIST  • OERINE  STRUCTURE  OR  HINDDU  RACKETS 


LDCAL  DECLARATIONS 

INTEOER  HRXSURINHtXBR.NXSURSt  A AROUHENT 
INTEGER  IRRTSRIil  • AROUHENT 

INTEOER  IRIXLI  . IRIXLR.  IRIXL3.  IRIXL*».  IRIXLS.  IRIXLS  • VALUE  OR  RIXEL  ROR 
C EACH  HRX  RURRER 

RARAMETER  NUNRRS-R 

INTEOER  NOINtOINUHSRSi  A RIN  NUHRER  OR  SAHRLE  0 ROR  EACH  HRX  RURRER 

integer  HSI OOL .NStOOH.NSIOOS  A HSA  SAHRLE*IOOi  LOH. HI  OH. SRAC I NO 

INTEOER  HSASAH  A NfA  SAHRLE  NUNOER 

INTEOER  IRRIN  A RRINT  RURRER  SIN  ROINTER 

REAL  AOJL IN.AOJSAN  A ADJUSTED  LINE  AND  SAHRLE 

INTEOER  HSI 00  A HSA  SAHRLE* 100 

INTEOER  KSTRIX  A CHARACTER  STRINO  OR  RIXEL  RADIANCE 
C 
C 

, C RROCEOURE 

♦ C 

C 

C initialize  LOH  ANO  HlOH  SANRLES  AND  SPACING 
C 

CALL  AHR  ( ADJL IN.AOJSAH.  RLOA T ( t RL I Nl .RLOA T I t RCH I N M 

MSIOOL*AOJ$AN* too. 

. CALL  AVR  I AOJL IN. AOJSAN.  RLOA T I | Rl | N I . RLOAT ( I RCHAX I I 

HSI00H«ADJSAH* I 00. 

HS I OOS*NSAOHH( HSAH . USR t 00  > 

C 

C 

C SET  NUHRER  OR  RIN  CONTAININO  SAHRLE  0 ROR  EACH  HRX  RURRER 
C 

DO  ISO  NUHRUR*! .NXRURS 

NR I NSO I NUHRUR  > •HRXBUR I RXLR I N . NUHRUR I 'HRSOUR  < RXL S AH . NUHRUR  > 

_ ISO  continue 

( 
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OAN  PACKAOC  AMCNOIX  L PICLIS 

MAIN  MtOOKANt/AOUnNCfl  Mt 


C 

C wr  ARCAHILC  ROINfCRt  AND  tlN  RQINTCN 
C 

iRRTtripxiiceNi«NRxiur(RxiiceN.ti  • 

IRUrtriAXLlNOlalRLIN  * 

lMrtriRXCNANI«0 

IRIirircRXQUALI«0 

ifnrtriAxtiNTi^'iNr* 

iRRrirfPXLiiNi** 

IPRriPIPXLCOLI^IPCNIN  • 

c 

e CONVCAT  LOOICAL  PPO  COLUHNt  TO  PNYtICAL  PPO  II Nt 
IPRrtriPXNRINI*(l IPCNAX-IPCNIN*! I*SI»I 

c 

I PNTtr I PXHCOL i • I PCNAX 

IPRTRrtPXNOINIaO 

iPRriripxNOOAi«o 

ipRTirtpXLJono 

IPRTiriPXNJOl  !•« 

ip«iN«iPNr0ripxLtiNt-t 

e 

e 

C ACSANPLC/tCACCN  AAOl ANCC/COUNT  PNCQUCNCr 

® k 

00  «oo  ntioo«M«tooL.HtiooN.nsioot  * I 

NtAtAK>NtlOO/ 100 

c 

C RCtANPLC  AND  SCRCCN  OUPPCII  I 

c 

IP  I (HOAtAH.Lr.HPXOUPIPXLOAH. I II .OA. 

A intAOAN.or .HPxtuPtPxNOAn. n 1 1 oo  ro  soo  i oahpic  mot  in  lurrcA 

CALL  OCTtIN  MPtXLI  . 

A NPXtUPfPXOlNA.  I I . (HtASAH»NOlNSO<  DM 

IP  MPIXLt  .Oe.NPXtUPiPXNOOA.  I > I 00  TO  ISO  • NO  OAfA 
IP  ( I IPIXLt .Lf .LCVLOl > .OA. 

A I iPixLi .er.LCvHi 1 1 1 00  ro  seo  • out  op  aao  linits 

IP  (NLINCN-t .CQ.OI  00  TO  SCO 

c 

C BUPPCA  t * 

c 

IP  C INAAAAN.lt . NAXauPlAXLAAN.pl  I . OA . 

A (NAAAAN.OT.NAxaUPlAXHAAN.pi  I I 00  TO  SSO  • AANALC  NOT  IN  AUPPCA 

CALL  OCTAIN  (lAIXLP. 

A NAXaUPIAxaiNA.PI . (NAASAN*N0lNA3(pl I I 

IP  I ( IAIXLP.lt. LCVLO(pi I .OA.  * 

A I IAIXLP.OT.LCVHI ipl n 90  TO  SCO  • OUT  OP  AaO  LlNITA 

IP  INLINCH'P.CO.OI  00  TO  PAO 

e 

C BUPPCA  S 
C 

IP  ( (NAAAAH.LT.NAXauPlAXLAAN.il  I .OA. 

A (NAAAAM. or. NAxauP( AXNAAN.il 1 I 00  TO  lAO  A AANALC  NOT  IN  AUPPtA 

CALL  OCTaiN  (lAIxls. 

A HAXBUPi AXaiNA. II . (NAAAAN»NAINAO( II > > 

IP  (iiaixli.lt. LCVLOI^M.OA. 

A IIAtXLl.Or.LCVHliilil  00  TO  ISO  • OUT  OP  aao  LIKITA  ) 


L'llP 


woo  ooo  ooo  oouoo 


DAN  MCKAOC  AAKNOIK  L 
HAIN  MOONAHt/MOUriNCt 


010 


tr  INLINCN-B.CQ.Ot  00  TO  tOO 

e 

e iurrco  a 
c 

If  I tNOAOAH.LT.NOXOUriOXlSAN.Hi I .00. 

0 (HOAOAN.or.noKOurioxNtAN.Aiii  00  ro  ISO  a saholc  not  in  ourreo 

CALL  OCrOIN  IIOIXLH. 

0 NOXOUriOXOINt.AI . INSAtAN*NOINtOtH) I I 

ir  (ItOIXLl.Lr.LCVLOlHIt .00. 

a I loixLA.or .LCVNi lAi 1 1 oo  ro  soo  a our  or  oao  Linirs 

ir  iNLinCH><*.eo.o*  oo  ro  cso 


ourreo  s 

ir  I INSASAN.Lr.NOXOUrtivXLSAH.Si  I .00. 

a iNOAtAN.or.NOxourtoxHSAN.si 1 1 oo  ro  sso  a saholc  Nor  in  ourreo 

CALL  oeroiN  iioixLS. 

a NOXOUriOXOlNS.SI . CHSAtAn*NOINtO(St I I 

ir  (IIOIXLS. Lr.LCvLOisn  .00. 

a ( loixLS.or .LCvMi ISM  I oo  ro  seo  a our  or  oao  Linirs 

ir  iNLiNCH'S.ca.oi  oo  ro  eoo 


ourreo  s 

ir  < iHSASAN.Lr.HoxourioxLSAH.ei > .00. 

a iNSASAH.or.HOxourioxHtAN.oi M 00  ro  sso  a sanolc  Nor  in  ourreo 

CALL  OCrOlN  IIOIXLS. 

a NOxsurioxoiNS.oi . ifisAiAN*NoiNSOisi  > > 

ir  1 1 loixLO.Lr .LCvLoie* 1 .00. 

a I loixLO.or.LCvHi iBi M 00  ro  seo  a our  or  oao  Linirt 

couNr  roeauCNCY 

NrOCQI  lOIXLO*!  .SMNrOCQl  101  XL 0*t  >01*1 
ooo  Nroeoi loixLS*! .s> •Nrocoi irt xl?  t ,s> >1 

es5  NrwfonpixL'**! .<*)»NroeoMoixL 

soo  NrocQi  !0ixL3*i . Si  »?iroroi  loi  xls*i  . si  • 1 

soo  Nroeoi  ioixLS*t  .si  •Nroem  loi  >;■.  s*i . si  * 1 

sso  NrocQi 101  XL  I *1 . 1 1 •NrocQi lot  xl  t . 1 * *t 


iNseor  OAOiANCC  valuc  into  ooint  ourreo 

IS  OnrSICAL  000  OiNf  OCO  LOOICAL  ooo  COLUNNI 

call  car<»iN(Ksrot  X.  1 1 1 . s. 

• lOIXLl.S.'O'l  * 

CALL  oercMOi loorsr iox9iNa»tooiN*o« . a nunoocos  digit 

• Ksroix.iiii 

Call  oercNoi  lowror (ox;?iNS*iooiN*t  I . a rcNS  oioit 

• Ksroix.iSM 

CALL  ocrcMOl loortr (oxoiNS*toeiN*si . a u^trs  oioir 

• Ksroix.iSM 

in ioororioxoiNS*ios(N»oi .eo. *o* 1 i ooror 10x01  ns* loo in*oi : 
00  ro  sso 


L'llI 


o o o o noon 


OAN  FACKAOe  APPCNOtX  L 
HAIN  PROORAnS/ftOUTINCS 


^ICLtS 

Oil 


C INSCRT  *NO  DATA*  SVHBOL*  INTO  PRINT  BUFPCR 

e 

ISO  iPRr8F(PxeiNs»ipeiN«oi-*i * 

tPRTBF(PXetNS*IPNtN«t  : * 
IPRrBPlPXBINS»lPBlN*at«*  t ‘ 

•O  TO  390 


INSERT  *NO  INFO*  SYNBOLS  INTO  PRINT  BUFFER 

360  IPRTBF(PXeiNS«IPBlN»OI«* : * 

IPRT8FIPXBINS«IPBlN»t !•*  * 
IPRTBFIPXBINS^IPBINt'SI-*  ’ 

390  IPBIN«IP9IN»3 

•»oo  continue 


RETURN  TO  CALLING  ROUTINE 

000  RETURN 
ENO 


Of 


ooouuuuuuoou 


OAH  ^ACKAOe  APPENDIX  L 
MAIN  PNOORAHS/ftOUMNES 


subroutine  picli*»  a list  oraoient/laplacian/varunce  IPHASE  hi 


(E  H SCNLOSSERt 


EXTERNAL  SUBROUT INES/PUNCTIONS  CALLED 


HONOTE 

NVUTO 


EXTERNAL  PICIE9.PICLI9 
CALL  TRACE 
C 

c 

c 

CALL  HONOTE I 

• ’LIST.ORAOIENT/LAPLACIAN/VARIANCE  NOT  rET  IHPLEHENTEO't 
CALL  NVIATOf  PI C1S9 . PI  CL  1 9> 

RETURN 

ENO 


Piet  19 

OBI 


L-119 


ouuoooouuou  uuu 


u 


OAN  ^ACKAOe  APPCNOIX  L 
MAIN  PROOMANS/ROUTINCS 


PICLtS 

001 


tuoRouriNC  PtcLte  a list  class  (pmasc  st 


ce  M SCNLOSSCRt 


eXTCRNAL  SUOROUriNCS/PUNCTIONS  CALLED 


MONore 

Nvuro 


EXTCRNAL  PICteS.PICLIS 
CALL  TRACE 


CALL  HONOTE( ’LIST. CLASS  NOT  YET  INPLENCNTEO* I 

CALL  NViATOlPICtOS.PICLISI 

RETURN 

ENO 


i 


) 


# 


1*116 


UOUUUUUUUOUUUUUUUUUUUUOUUUUUUWOOUUUUUUO 


OAH  ^ACKAOC  APPCNOIX  L 
HAtN  PROORAHS/ftOUTINCS 


PtCLIS 

001 


SUOKOUTINC  PICLIO  0 LIST  nOO'OCRIVCO  data  IPHASe  0) 


HISTORY 


c 

N 

SCNLOSSCR 

LCC 

08/83/70 

c 

N 

SCHLOSSCR 

LCC 

00/84/70 

c 

N 

SCNLOSSCR 

LCC 

0S/0I/7S 

ncthoo 


ORIGINAL  COOC 

UPQRAOe  OOCUneNTATION 

DON’T  INCRCMCNT  NUNOOW  IT  01  AGNOSTIC 


CNCCK  DIAGNOSTIC  COUNTERS  ANO  PRCPARC  TOR  NEXT  LIST. 


HACNINE-OEPCNOENT  COOC 


NONE. 


EXTERNAL  RCPERCNCES 


HONOTC 

NOCLRU 


EXCEPTIONS 


NONE. 


GLOBAL  oeCLARATIONS 


INCLUOC  KONXOT.LIST  I COMMON  PROGRAM  EXECUTION  SNITCHES. 

INCLUDE  NULCST.LIST  i OEEINE  NULL  CHARACTER  STRING 

EXTERNAL  PICOOO.NULSUB 
C 
C 

C PROCEDURE 

C 

C 

CALL  TRACE 


C 

C 

C ON  RETURN. 
C 


CALL  PICOOO 


CALL  NVIATOlPICOOO 


C 

C 


TO  OCT  COMMANDS 
NULSUBI 


COUNTERS 


L-II7 


o o o o o o o o 


OAN  MCKAOC  AWNOIX  L 
HAIN  MOORAHS/ftOUriNeS 


RICLI9 

OOt 


c 

c 


ANY  OtAONOSriCS??? 

•00  iriNorATL.eo.oi  oo  to  ooo 

CALL  NONOret  TATAL  CRNORS  --  NO  LIST  OCNCRATCO** 

00  TO  900 

OfO  iriNOHARN.CQ.Ot  00  TO  900 

CALL  HONOTCf  ‘PRCVIOUS  UARNINOS  •-  NO  LIST  OCNCRAreO't 
iriNOATCH.eO.OI  URITCte.OOSt 
90S  rORHATf>»X.  *«*TRV  AOAINI  * t 

CALL  HOCLRMI  NULCSTI 
00  TO  990 


* 


» 


« 


RRCPARC  rOR  NEXT  UtNOOH 
900  NMNOOU^NUNOOU*! 


RETURN  TO  NEXT  STaTENENT  IN  CALLINO  ROUTINE 

090  RETURN 
ENO 


j 


» 


PAGfc  jc 

OF  P,  VIR  grjAr.rn" 


uooooooooooooooooooooo 


0«N  PACK  Ate  AMCNOIX  L 
NAIN  PftOOXAHt/ROUnNCS 


PIC^AN 

001 


tuioouriNe  ^icoaih  • AAoririoN  rAcroo  soacc  (onaoc  o> 
u KONOi  • It  noor  i chaho  or  connano  ot  srAcct 


tc  H scMLOtseni 


cxrexNAL  suoROuriNes/ruNcrioNs  callco 


RCAOS 

NOHARN 

NVIATO 

CAL8RA 

CALHIN 

CROROU 

OPRRIC 

lOLUS 

lOCRr 

lOCRIC 

NOUNI r 


INCLUOe  konxqt.list 
INCLUOe  KOHNCR.LISr 
INCLUOe  KONKLS.LlSr 
iNCLuoe  Konnr.Lisr 
iNCiuoe  KonsYN.Lisr 
INCLuoe  MlNOCP.LISr 
INCLuoe  KONiMN.LISr 
INCLuoe  KOHOHU.LISr 
INCLuoe  TRPORH.Llsr 

exreRNAL  Ricooo.Pictag.picsts.RicPAS.PicPAH.ptcPAO.NULSue 

CALL  rRACe 

c 

c 

c oer/CHecK  critcrion  a nanc  ncxt  'to*  sueROuriNC 
c 

IPINHNOOH.eQ.O*  CALL  NOHARNI * I NVAL I 0 OePAULT  CONNANO' I 

KLsryp>o 

CALL  OerSKHIKLSrvP.S.'Oi 
irCKLSYYP.Ne. 'DCN* I 00  TO  CtO 

Call  nvi ArotPicits.PiCPASi  a ocnsitv  ••  ncxt  call  is  to  picpas 

00  ro  300 

OHO  IPIKLSTYP.Ne. 'ORA' t 00  TO  2S0 

CALL  NVIAT0(PIC3<«S.PICPA«I  a ORAOICNT  --  NCXT  CALL  IS  TO  PICPA4 

00  ro  300 

too  iPiKLsrYP.Ne. 'LAP'i  00  ro  eoo 

CALL  NVi  Ar0(PIC3*»S.PICPA<*l  a LAPLACIAN  ••  NCXT  CALL  18  TO  RICPAH 

00  ro  300 

coo  CALL  UARNSI'BAO  PARrinON  CRirCRION  --'I 
c 
c 

C ORA  IN  8PeC8  POR  CURRCNr  CONNANO 

c 


L*t  19 


0*n  PACKAOC  AMCNOIX  I 
HAIN  MOORANS/HOUriNCt 


l»IC^AII 

OOC 


300  CALL  OCTSIN(irCM».*l.-l.*CxTIIA  OAOTtriQN  SPCCirtCAT ION  •••! 

e 

e 

e CNCCK  NAOIANCC  LI  NITS 
C 

iriLCVLOl.Or.LCVNIII  call  NOUARNCNO  OAOIANCe  LIHITS*! 
irCNOArAC.NC.OI  00  TO  000  • OATA/CNCCKOUr  NOOe 

c 

c 

C CALtORAre  sracino/minoom 

c 

CALL  CALSPA 
CALL  CALHINIO. ) 

C 

C 

C CROP  OUTPUT  UINOOM  TO  FIT  INPUT  Ml  NOON 
C 

CALL  CROPOUl 0000. 35001 
C 

c 

C CHECK  FOR  OIAONOSTICS 
C 

IFINOTOTL.NC.OI  00  TO  000 
C 
C 

C CLEAR  HI  NOON  NUNOCR  A RESET  PAOC  NUHOCR 
C 

IFINUN00U.lt. 01  CALL  OPRPIC  • OPEN  ALT  PRT  FILClSi  BEFORE  1ST  UlNOOU 
NUNOOU* I ABS ( NUNOOUl 
NPAOC-0 
C 
C 

C PRINT  UlNOOU  HCAOINO  FOR  UNIT  B 
C 

IFIHBATCN.NC.OI  CALL  H0UNITM».8I 
HRirCIB.<»ISI  NUNOOU.NTERAL 

HIOFORHATI*  UlNOOU  NUNBCR  ' . J3 . 8X . * PART  I T I ON  * . 8X  . •*  A6  > 

CALL  I0LU3IBI 
CALL  lOCRTCSl 
CALL  IOCPIC(S'< 

C 

c 

C PRINT  UlNOOU  HCAOINO  FOR  UNIT  10 

c 

•*00  CALL  HOUNI  Tm  . 10) 

HRITCllO.**ISI  NUNOOU.fiTCRAL 
CALL  lOLUSdOt 
CALL  lOCRTdOl 
CALL  lOCPICdOl 
00  TO  BOO 
C 
C 

C HARNINOS  ENCOUNTERED  --  NEXT  CALL  IS  TO  PICPA9 
C 

BOO  CALL  NViATOlPICIBO.PICPAOt 

KLSTVP»0  A NO  PARTITION  OCNERATCO 


L-ieo 


OAH  PACKAOC  AMCNOIX  L 
MAIN  MOOAAHS/ROUtlNCS 


RICRAN 

OOS 


00  ro  too 
c 
c 

C OATA/CHCCKOUr  NOOC  ••  OCT  NEXT  CONNANO 

c 

•so  CALL  NVUrOfAiCOOO.NULtUB) 

c 

c 

e 

C RETURN  rOR  CALL  TO  NAMED  SUBROUTINE 
C 

900  KONO-’ 

RETURN 

■ENO 


L-IOI 


u u u 


OAN  ^ACKAOC  AMEND  IX  I. 
NAIN  MOORANt^NOUnNCt 


tUiROUTtNC  RtCRAS  A RANfiriON  DY  OCNflTV  IRHAtC  tl 


(C  M SCNIOSSCRI 


EXTERNAL  SUBROUriNES/rUNCTIONt  CALLED 


NDNOTE 

Nvuro 


EXTERNAL  RICt8«.PtCRA9 
CALL  trace 


CALL  NDNOTE I 'PARTI TION.OENSi TT  NOT  YET  INPLEHENTED’ > 

CALL  NVIATOI  PIC1E9.PICPA9) 

RETURN 

ENO 


RICRAS 

901 


o o o 


OAN  MCKAOC  AMCNOIX  L 
NAIN  MOORANt/MOUMNCt 


»IC»A« 

001 


•UmOUriNC  O l>ANnriON  ev  ORAOICNT/LAnACIAN/VARIANCC  fRMAtC  •»! 


fC  N OeNLOttCRI 


cxrcRNAC  tutROuriNCt/ruNcriONS  callco 


MONO re 
Nvuro 


CXTCRNAL  RICISO.RICRA9 
CALL  TRACe 


CALL  HONOrC( 

• ‘RARrtriON.ORAOieNr/LAPLACIAN/VARIANCe  NOT  rCT  iHPLCHCNreO* > 
CALL  NVIArOlPICIOO.PtCPAOl 
RCrURN 
CNO 


L-IOJ 


0*N  PACKAOC  AMCNOtX  L 
MAIN  fillOORAnS/NOUriNCV 


PttPlk§ 

001 


c 

c 

c 


oviMuriM  oieoAO  o OAoririON  rACToo  ooacc  ionaoc  o» 


IC  N OCNLOOOCRt 


cxrcRNAL  suooouriNCO/ruNcrioNO  callco 


NONOrC 

Nvuro 


CxrtONAI.  PICifO.RICOAO 
CALL  trace 


CAU  NONOTCI 'RARTiriON  COHNANO  NOT  rCT  IHRLCHCNrCO’ > 

CAit  NVlATOCRICtCO.RieRAOl 

RETURN 

END 


I •ION 


OAN  ^ACRAOC  AMCNOIX  I 
NAIM  PROOMAHt/RQuriNCt 


#ICMt 

001 


tuoNouriNC  oicoAO  0 OARnrioN  rAcroo  aOACC  cohaoc  oi 

(C  N OCMLOOOCRI 

cxrmNAL  suoROvriNCO/ruNcriONt  callco 

nONorc 

Nvuro 


CXrCRNAl  RICOOO.NUIOUO 
CALL  rOACC 


CALL  NONOrec ‘RAOrirtON  CONNANO  NOT  VCT  inRLCMNTCO*  > 
CALL  NViArOIRICOOO.NULSWO* 

RCruRM 

CNO 


L'ICS 


Mfl  ^ACKAOC  AWMIX  L 
MAIN  MOORAIIt^WOUTIIlCt 


^ICPIC 

001 


OtfMOUriNC  oieoict  t Oterwnc  HAOUNCff/OflAOICNr/LAOLACUN^VARUlICC/CLAOO 
U KONOt  0 1 1 riOOT  0 CNAIIt  9T  CONNANO  ORACCO 


Ml  or OUT 


C N OCNAOOOCR 
C N OCNLOOtCO 
C N OeNLOOtCR 


kCC  00/ 17/70 
kCC  11/00/70 
LCHOCO  00/00/00 


ocQumcNCNro  a ocoion 

oruoico 

inoLCnCNTCo 


ncthoo 


CNCCK/CALIOOATC  OOCCS.  CLCAR  teOtCN.  a OCNCRATC  OtCTuRC  HCAOINOO. 

TM'..  NAMC  oteoio/i*/o  ro  ocncratc  ooov  or  oictunc. 


nacnimc-kocnocnt  eooc 


NONC. 


CXTCONAL  NCrCNCNCCO 


OCTOKM  A OCT  CHANACrCR  CTAINO  DATA  MCLO  rOOH  UNIT  9 

OCTOIN  A OCT  INTCOCR  OAT*  flCLO  fAOM  UNIT  0 

NOMAMN  A MINT/COVNT/lOO  ’UAONINO*  OlAONOfTIC  NCOtAOC 

NONOrC  A OR I NT /COUNT /LOO  *NOTC’  OlAONOOTIC  NCOtAOC 

NVIATO  A NAHC  ‘VIA*  *T0‘  tUOROUTINCt 

CALCNA  A CAAIORATC  CHANNCLt 

CACeOL  A CALIORATC  color/ INTCNSI tv  tVNOOLO 

CALtOA  A CALIORATC  TRANtfORNAT  I ON  COCmCICNTA  rOA  fOACINO 

CALMlN  A CALIORATC  WINDOW  CNVCLOOCt 

CROOOW  A CROO  OUTOUT  WINDOW 

Caornt  a writc  ascii  inaoc  to  minarv  output  OCVICC 

OPRPIC  A OPCN  ALTCRNATC  print  PlLClfi 

lOLUX  A lOCNTirv  LOOICAL  UNIT  ] 

lOCRT  A lOCNTirv  CRTS  SCCNC 

lOCPIC  A lOCNTirv  CURRCNT  CONNANO  SPCCS  rOR  PICTaO 

nounit  a writc  HCAOINO  LlNdSI  AT  TOP  or  NCXT  NAOC 

WARNO  A SUONIT  WARNINO  rOR  HI  SSI  NO/ I NVAL 1 0 riCLO  TROH  UNIT  9 

VIA  TO 

CXTCRNAL  PICOOO.  NULSUO 

cxtcrnal  Pictto.  PiCPio 

CXTCRNAL  PICINS.  PICPIS.PICPi*. PICPIO 


CXCCPTIONS 


I.  ‘PICruRC*  NAV  not  oc  A OCrAULT  COMNANO. 


L-lOO 


uouuuuuu 


OAH  rACKAOr  APPCNOIX  L 
MAIN  PROORANS/POUriNeS 


picpte 

oot 


g.  ANY  MARNINO  OR  PATAL  CRROR  PRCveNTS  OeNCRArtON  OF  TMC  PICTURC. 

3.  TNC  POLLOUINO  CXCEPTION  CONDI riONS  PRODUCE  THE  FOLLOHINO  RESULTS 


COMC • ■ 


PROCESSING  OEPAULT  COHHANOS 
CNNNOOH>0) 

KLSTYP  in  COHHON  UNDEFINED 
KLSrvP  specification  HISSING 
KLSTYP  specification  INVALID 
EXTRA  SPECIFICATION 
LI  HIT  CHANNEL  VALUE  RANGE  IS  NULL 
(LCVLOl >LCVHI I ) 

COLOR  NODE  SNITCH  NOT  ON 
BATCH  RUN 

oata/checkout  node 
UARNINOtSi  OR  FATAL  ERROR! Si 


ACTION 

01  AGNOSTIC 

NONE 

MARNINO 

KLSTYPt«*RA0* 

NONE 

USE  COHHON  KLSTYP 

NONE 

NONE 

MARNINO 

NONE 

MARNINO 

NONE 

MARNINO 

NONE 

MARNINO 

NONE 

HARNINC 

*T0*  ROUTINE  IS 

NULSUB 

NONE 

*To*  routine  is 

PICPI9 

NONE 

GLOBAL  declarations 


INCLUDE  KOMXQT.LIST 

include  kohkls.list 

INCLUDE  KONFIT.LIST 
INCLUDE  KONTBL.LIST 
INCLUDE  KOnSYH.LIST 
INCLUDE  KOHKS.LISr 
INCLUDE  HINOEF.LIST 
INCLUDE  KOHONU.LIST 
INCLUDE  NULCST.LIST 


C 

C 

C 

C 

C 

C 

C 

c 

c 


local  declarations 


INTEOER  KLSAVe  a 
INTEGER  INTEHP  i 
INTEGER  NPRL IN.NPRCOL  a 


PROCEDURE 


CALL  trace 


CHECK  IP  CONHANO  IS  LEGAL 


a COHHON 
a COHHON 
a COHHON 
a COHHON 

a COHHON 

a COHHON 
a DEFINE 
a COHHON 
a DEFINE 


PROGRAH  EXECUTION  SNITCHES.  COUNTERS 

CLASSIFICATION  INFO 

AOJUSTHENT/ REGISTRATION  PARAMETERS 

TICK/FREQ/FACTOR  TABLE 

SYMBOL  TABLE 

COLOR  SCREEN  PARAMETERS 

STRUCTURE  OF  HI  NOON  PACKETS 

OUTPUT  UINOOH  PACKETS 

NULL  CHARACTER  STRING 


SAVE  LOCATION  FOR  KLSTYP 

temporary 

NUMBER  OF  PPO  L INES/COLUHNS  IN  PICTURE 


IFINHNOOH.EO.Oi  CALL  HOUARNI 
IFIHBATCH.NE.OI  CALL  MOHARNi 
• ’PICTURE  COMMAND  NOT  ALLOHEO 
IFINCOLOR.EQ.Oi  CALL  MOHARNI 


’INVALID  default  command* i 
IN  BATCH*  I 


L-187 


OAH  MCKAOe  APPCNOU  L 
NAIN  PftOOflAHS/ROUriNeS 


PICPIC 

003 


• *PICrURC  CONNANO  NOT  ALLOUCO  (COLOP  HOOC  NOT  ONI* I 

c 

c 

c ocr  picruRC  typc 
c 

KTOLTY**  NUL*  0 NARK  OLD  PRCQ  YABLC  AS  OeSTROYEO 

klsavc-klstyp  a save  previous  picture  type 

irUKLSTYP.NE.  *0RA‘l  .ANO. 

A (KLSTYP.NE. ‘LAP* I .ANO. 

A (KLSTYP.NE. * VAR* I .ANO. 

A (KLSTYP.NE. ‘CLA* 1 1 
A KLSTYP«*RA0* 

CALL  0ETSKH(KL8TYP.(3I . NULCSTI 
C 
C 

C CHECK  PICTURE  TYPE 
C 

IP(KLSTYP.NE. *RAO*l  00  TO  EVO 

CALL  NVIATO(  PIC3VS . PI  CPI  3) 

00  TO  300 

EHO  IFKKLSTYP.NE. 'ORA'I.ANO. 

A (KLSTYP.NE. ‘LAP* • .ANO. 

A (KLSTYP.NE. 'VAR* n 00  TO  ESO 

CALL  NVIATO(  PIC3>»S.PICPI<*) 

00  TO  300 

ESO  ir(KLSTYP.NE. ‘CLA* I 00  TO  E60 

CALL  NVIATO(  PI C3HS . PI  CPI S> 

00  TO  300 

EBO  CALL  HARNS(  *SAO  PICTURE  TYPE  -•*) 


A IF  UNOEFINEO  . . . 

A ...  THEN  HAKE  IT  RAOMANCEI  ... 

A ...  UNLESS  SPECIFIED  8Y  PICITUREI  CHO 


A RAOl lANCei? 

A NEXT  CALL  IS  TO  PICPtS 

A ORAtOIENTI? 

A LAPfLAClANI? 

A VARtlANCei? 

A NEXT  CALL  IS  TO  PICPlV 

A CLAtSSl? 

A NEXT  CALL  IS  TO  PtCPIS 


KLSTYP>KL8AVE 


A RESTORE  PREVIOUS  PICTURE  TYPE 


C 

c 

C DRAIN  SPECS  FOR  CURRtNT  CONNANO 
C 

300  Call  oetsini intenp.  «i.-i. ‘Extra  picture  specification  --‘i 
c 
c 

C CHECK  RADIANCE  UNITS 
C 


IFCLCVLOl -OT.LCVHII I CALL  NOUARNI  ' liO  RADIANCE  LINITS'i 
IF(NDATAC.NE.0>  00  TO  900  A OATA/CHECKOUT  MODE 

C. 

C 

C CALIBRATE  CHANNELS/COLORS^SPACINO/UINOOH 
C 

CALL  CALCHA 
CALL  CALCOL 
CALL  CALSPA 
CALL  CALHINI  0. I 
C 
C 

C open  print  file (SI  IF  NOT  OPEN.  CLEAR  MlNOOU  NUNBER  » RESET  PAGE  NUNBER 
C 

IFINOTOTL.NE.OI  00  TO  900 

IFINUNOOH.LT.OI  CALL  OPRPIC  » OPEN  ALT  PRT  FILEIS'  BEFORE  1ST  MlNDOH 
NUNOOH- I ABS ( NMNOOUl 
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PICPIC 

00« 


NPA0e»0 

c 

c 

V CROP  OUTPUT  UINOOU  TO  FIT  INPUT  UINOOU  A COLOR  SCRCCN 

c 

CALL  CROPOHC  KSLINC.KSCOLHI 
IP  INOTOTL.NC.Ot  00  TO  900 
C 
C 

c coHPUTc  Size  or  print/plot  oevice  icolor  scrccni  hinooh 
c 

NPRLIN*iriXfPPOOUHIHLIN.NHAXI I - 1 P I XI PPOOUUt ML  I N. UHl Nl I »l 
NPRCOL«IPIXiPPOOUHIMCOL .WHAX) I - 1 P I XI PPOOUMf UCOL . MHI Nl I *1 
C 

c 

C CHCCK  POR  01  AGNOSTICS 

c 

IPINOTOTL.NC.O)  00  TO  900 

c 

c 

C CLCAR  SCRCCNS  ANO  PRINT  HINOOM  HCAOINO 
C 

CALL  CAPRNTIO. I .KSON)  A ROUTC  UNIT  8 OUTPUT  TO  COLOR  SCRCCN 

CALL  CAPRNTIO. I .KSCLCR)  A CLCAR  COLOR  SCRCCN 

MRITCie.llS)  NUNOOH.NTCRAL 

•MS  PORNATI'*  UINOOH  NUN8CR  * . J3. 8X  . *PICTURC  * . 8X  .<1X81 

CALL  CAPRNTIO. 1 .KS0PP1  A ROUTC  UNIT  8 OUTPUT  TO  BAH  SCRCCN 

URITCI8.>»I5I  NHNOOH.HTCRAL 
CALL  I0LU3I  8) 

CALL  lOCRTI  81 

CALL  lOCPICI  81 
C 
C 

C ANY  01 AONOSTICS??? 

C 

900  IPINOTOTL.CQ.OI  00  TO  990 

IPIHOATAC.NC.OI  CALL  NVUTOI  P I COOO  . NUL  SUB  I A OaTa/CHCCKOUT 

IPIHOaTaC.CQ.OI  CALL  NVIATOI  PI C 1 89 . P I CP  I 9 > 

C 

C 

C RCTURN  rOR  CALL  TO  NANCO  SUBROUTtNC 
C 

990  KONO-* 

RCTURN 

CNO 
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PICPIS 

OOt 


suaiiouriNe  picpis  • picrune  raoiamcc  f phase  st 


history 


e H SCHLOSSCR 
r H SCHLOSSCR 
e H SCHLOSSCR 


LCC  OS/ 17/79 
LCC  11/06/79 
LCnSCO  09/96/00 


RCQuiRcncHrs  a ocsiom 

SruBBCO 

iHPLencNTeo 


HCTHOO 


INiriALIZC  LOU  AND  HIOH  PPO  LINES  ANO  COLUHNS.  INITIALIZE  LON  AND 
HlOH  AOJUSTEO  line.  CALL  GETRAO  TO  READ  LINE.  MASK  NON-TRIvIAL 
UtNOOU.  RESAHPLE/SCREEN/COUNT  rREQUENCY/SYNBOL I ZE  LINE.  OUTPUT 
LINE.  NAHC  PICPIS  AS  'TO*  ROUTINE  POR  URAP-UP  OP  PICTURE 
PROCESS I NO. 


HACHINE -dependent  CODE 


NONE. 


EXTERNAL  REPERCNCES 


AtP  a AOUUSTEO  COORO  POR  PRINT/ PLOT  COORO 

OETRAO  a OET  ALL  SELECTED  RAH/ TRanSPORNEO  CHANNELS 

NSKPIX  a HASK  NON- TRIVIAL  Ml  NOON 

NOPATL  a PRINT/LOO/COUNT  'PATal  ERROR'  HESSAOES 

NVIATO  a NAME  'VIA'  'TO'  SUBROUTINES 

CAPRNT  a WRITE  ASCII  INAOE  TO  PRIHARY  OUTPUT  DEVICE 

INTEGER  N|i»Ne  a NUHBER  OP  INTEGERS  POR  NUMBER  OP  BYTES 

DOUBLE  PRECISION  C8S<*CS  a VAR  I ABLE -LENGTH  CHAR  STRING  POR  PIXEO-LENGTh 
VIA  TO 

EXTERNAL  PICI99.  PICPIS 

external  RESCOL.  OETBYT.GETICE.OETINT.OETNUL  a routine  to  OCT  BIN  VALUE 


EXCEPTIONS 


status 

PRON 

OETRAO 

PPO  CELL  SYMBOLS 

01  AGNOSTIC 

ACTION 

•Eor* 

NO  data  IORAY) 

NONE 

WRITE  LINE 

*BAOR* 

NO  data  IORAYI 

NONE 

WRITE  LINE 

•BAOP' 

N/A 

PATAL 

RETURN 

•OPL  * 

N/A 

PATAL 

RETURN 
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PICPIX 

00« 


c 

C 0C08AL  OeCLARAriONS 
C 

c 

iNCLuoe  KONxor.Lisr 
tNCLUOe  kohkls.list 
INCLUOe  KONSYN.Ltsr 
INCLUOe  KOHKS.LISr 
INCLuoe  UINOCP.LIsr 
INCLuoe  KONOHH.LISr 
INCLuoe  KOHTBL.LISr 
iNCLuoe  picoer.Lisr 
iNCLuoe  PXBoer.Lisr 
INCLuoe  NAXiNr.Lisr 
c 
c 

C LOCAL  OeCLARAriONS 

C 

c 

PANANereft  NXBurs*6 
c iNreoeRS  in  hsa  suf 
pARAnereR  nhixbf 


a COHNON  PROORAH  execuYioN  SHircHes.  couNreRS 
• COHNON  CLASSIFICATION  INFO 
a COHNON  SYHBOL  TaBLC 
a COHHON  COLOR  SCRCeN  PARAHereRS 
a oeFiNe  stRucruRe  of  uinooh  packcts 

a COHHON  OUTPUT  UINOOH  PACKCTS 
a COHHON  TICK/FReO  TABLe 
a oeFiNe  pictab  paranctcrs 
a oeFiNe  pixcl  buffcr  structurc 

a HAXIHUN  INTeOtR  VALUC 


a * OF  Hss  PixeL  sufffrs  in  array 

•INTS  PReAHBLC  * (•BINS*3I/H  » f*CXTRA  BYTeS*3>/H 
(PXBINS-li  » (3S<*8«3>/*»  * (t9»3>/H 


C •HOS  COLOR/ INTeNSt TY  BUF-HOS  PRCAH^aSB 

PARAHCTCR  NUt KBF- I PXB I NS> I)  » 856 

PARANeTCR  NFROCH-6  a • HOS  PCR  CHANNCL  IN  LOCAL  FRCQ  TABLE 

PARAHCTCR  NFRQSZ*I88  a • CHANNELS  IN  LOCAL  FREQ  TABLE 

INTEGER  HPXBUFfNWIXBF.NXBUFS)  a ARRAY  OF  HSS  PIXEL  BUFFERS 
INTEGER  KIBUFCNHIKBF)  a COLOR/ INTCNSI TY  BUFFER 

INTEGER  NFRCQ(NFRQSZ.NFROCH)  a LOCAL  FREQUENCY  TABLE  (SCOPE  INCLUDES 
C a INTERNAL  ROUTINE  RESCOLI 

INTEGER  NFRCROnO.I5l  a LOCAL  CROSS  FREQUENCY  TABLE 

INTEGER  I PL  IN  a PPO  LINE 

INTEGER- IPCniN. IPCHAX  a NININUH  ANO  HAXlHUH  PPO  COLUHN 

INTEGER  IPLHIN. IPLNAX  a HINIHUH  ANO  NAXINUN  PPO  LINE 

REAL  AOJLIN.AOJSAH  a ADJUSTED  LINE  ANO  SAMPLE 

INTEGER  NLIOOL .HLIOOH.HLIOOS  a HSA  LINC«I00:  L OU . HI  OH . SPAC I NO 

INTEGER  NSALIN  a HSA  LINE  NUMBER 

INTEGER  MSASLO.HSASHI  a LOH  ANO  HlOH  MSA  SAMPLE 

INTEGER  ISTaT  a I/O  STATUS 

INTEGER  NPRL IN.NPRCOL  a NUMBER  OF  PPO  LINES  ANO  COLUMNS 

integer  lastln  a last  scan  line  read 


PROCEDURE 


CALL  trace 


initialize  minimum  ANO  MAXIMUM  PPO  LINES  ANO  COLUMNS 

IPLNlN>PPOOUH(HLIN.UHINt 
IPLNAX*PPDOUU(HLIN.HMAXt 
IPCHIN*PPOOHUIUCOL .UMINI 
IPCHAX«PPOOUH(WCOL .UMAX! 


L-I3I 


oouo  uuoo  ouoo 


OAN  PACKAOC  APPCNOIX  L 
MAIN  PMOORAnS/ROUTINCS 


e 

c coHPure  Nunaen  of  ppo  lincs  ano  columns 
e 

NPRLIN«tPLNAX-IPLHIN»l 
NPRCOL • I PCNAX - I PCN I N* I 
C 

c 

e CLEAR  LOCAL  FRCOUCNCY  TASLCS 

c 

00  SSO  l>l .NLINCN 

00  200  K«I.NFRQSZ 
NFREOCK.I l-O 
200  CONTINUE 

2S0  continue 

00  200  1*1.10 

00  270  K*l .IS 

NFRCROI t .Kl*0 
270  continue 

200  continue 
c 
c 

C initialize  LON  ANO  HI  OH  LINES  ANO  SPACING 
C 

CALL  A<*P  (AOJLIN.  AOJSAN.  FLOAT  I I PL  HI  N I . I . I 
HL100L*AOJLIN«tOO. 

CALL  AHP  lAOJLIN.AOJSAN.  FL OAT ( I PL NAX I . I . I 
HLIOOH*AOJLIN*IOO. 

HL1008*NSAOHU(ML IN.USPlOOl 


POSITION  AT  TOP  OF  HiNOOM 
HSALIN-HLIOOL/lOO 

CALL  OETRAO  INPX8UF. IOI . INXOUFSt . ISTAT.  HSALIN.O.OI 
IF  ( ISTAT.NE. *BAOF’ 1 00  TO  300 

CALL  HOFATL  (*0A0F  (8A0  FILCI  ON  UNIT  3*) 

00  TO  SOO 
300  continue 


TURN  ON  COLOR  SCREEN 

CALL  EAPRNTIO. I .KSONI 


READ.  MASK.  RESANPLE.  SCREEN.  SYHBOLIZE  ANO  WRITE  SCAN  LINES 

I PL  I N*  I PL  HI  N 
LASTLN*-HAXINT 

00  380  HLIOO*NLIOOL.HLtOOH.HLIOOS 
NSALIN*HLIOO/IOO 

CALL  A«P  lAOJLIN.AOJSAH.  FLOAT ( I PL  I Nl . FL OAT ( I PCHI N !l 
NSASLO*AOJSAH 

CALL  A**P  lAOJLIN.AOJSAH.  FLOAT  1 1 PL  I Nl  .FLOAT  I I PCHAX  > I 

NSASHI *AOJSAN 

IF  INSALIN.NE.LASTLNI  call  OCTRAO  iHPXauF. inhIXBFI . (NXBUFSI 


o 

f»tC^13 

003 


0 

0 


) 
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IStAt.  NSALIN.HSASL0.N8A8HI I 

LASUN'NSALIN 

ir  ((ISrAr.NC.’BAOr*!. AND. (ISTAT. NC.'OFLMI  00  TO  SCO 
CALL  NOFATL  (COSHCSI  ISTAT.  I .<*1 . 

* HNILC  ftCAOINO  ON  UNIT  S’ I 

00  TO  SOO 

CALL  HSKPIX  (NPXBUPM.lt.  NPXBUPM.tn 
IP  ( (NPXOUPIPXSINT. 1 1 .CO. ‘OVT’I .ON. 

(NPXeUPIPXBINT.  I I .eO.  ’CHNM.ON. 

(NPxeuPiPxeiNT, 1 1 .CO. * int* i .on. 

INPXOUPIPxeiNT. I I .CO. ’NUL’II  00  TO  330 
CALL  HOPATLC ' INVALID  BIN  TrPt  ’. 

COSHCSIHPXOUFCPXBINT.n .1 .31 . ' IN  PICPIS’i 
00  TO  BOO 

IP  (NPXBUP(PXBINT.I) .CQ. ’BYT’)  CALL  NCSCOL  (KIBUP. MPL INI  . 

I IPCNINt . MPCNAXI . HPXOUP. (NWIXBPt . ( NXBUPS i . OC TBYT I 
IP  (NPXOUPIPXBINT. I I .CQ. ‘CNN’I  CALL  NCSCOL  ( K I BUP . C I PL  I Ni . 

( IPCHINI . MPCNAXI . HPXBUP. (NUIXBP) . I NXBUPS I. OCT  I CC I 
IP  (NPXeUPfPXeiNT. II .CO. * INT* I CALL  NCSCOL  (KIBUP. MPL INI . 

( IPCNINI . MPCNAXI . NPXBUP. (NUIXBP I . (NXBUPS I .OCT  I NT  I 

IP  (NPXBUP(PXBINT.  I I .CO.  *NUL  * I CALL  NCSCOL  (KIBUP.  MPL  INI  . 

(IPCNINI . MPCNAXI . NPXBUP. (NUIXBP I . ( NXBUPS I . OCTNUL I 

CALL  CAPNNTI  I . NI<»NB(  K I BUP ( PXHBI  NI  I . K I BUP  ( PXB ' NSI  I 
I PL  I N* I PL  I N» I 
3S0  CONTINUC 
C 
C 

C NOVC  data  pron  local  prcq  tables  to  CONNON  table  (REPLACINO  ticksi 

c 

KTBLTY*‘PRCQ' 

KTBLNU>NUN00U 
00  600  1*1 .NL INCH 

00  550  K«I.NPNOSZ 

KPNCQIK. I l«NPRCQ(K. I I 
550  continue 

600  continue 

00  700  1*1.10 

00  650  K*l . IS 

KPRCRO( I .Kl *NPRCRO( I .Kl 
650  continue 

700  continue 
c 
c 

c TURN  orr  COLOR  SCREEN  AND  RETURN  ••  NEXT  CALL  IS  TO  PICPIS 
C 

900  CALL  EAPRNTIO. I .KSOrri 

CALL  NVIATO  ( P I C 1 39 . P I CP  1 9 1 
RETURN 
C 
C 
C 
C 
C 
C 
C 

c 


6 

6 

300 

6 

6 

6 

6 

330 

6 

6 

6 

6 
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PICPIS 

DOS 


INTCRNAL 

tUMOUriNC  RCSCOLI 


a RetANm.e/«CNCCN/couNT  rneQucNCY/coLOR 


0 

KIBUF. 

a 

COLOR/ INTENSITY  BUFFER 

( 

tPLlN. 

a 

PPO  LINE 

( 

IPCHIN. 

a 

MINIMUM  PPO  COLUMN 

1 

IPCHAX. 

a 

MAXIMUM  PPO  COLUMN 

• 

1 

MPXBUF. 

a 

ARRAY  OF  MSS  PIXEL  BUFFERS 

1 

NUI XBF. 

a 

NUMBER  OF  UOROS  IN  ONE  PIXEL  BUFFER 

( 

NXBUFS. 

a 

NUMBER  OF  PIXEL  BUFFERS 

1 

OETBINI 

a 

routine  to  get  bin  VALUE--OETBYT.OET 

c 
c 

C nCTMOO 
c 
c 
c 
c 
c 
c 
c 

C exTERNAL  RCreRENCCS 

c 

C AHR 

c oerice 

c rutryt 

C HOVBSr 

c 

c 

C OLOBAL  OCCLARAriONS 

c 


conpure  lom  and  hioh  samples  and  spacing,  set  bufper  preamble. 
POR  each  sample,  check  ir  OUTSIDE  or  INPUT  UINOOU.  CHECK  ir  OUT- 
SIDE or  RADIANCE  LIMITS.  COUNT  FREQUENCY.  AND  SYMBOLIZE.  INSERT 
TICKS. 


a ADJUSTED  MSS  COORD  FOR  PRiNT/PLOT  COORD 

a GET  INTEOER-CHARACTER-EQUI VALENT  FROM  CHARACTER  STRINO 
a PUT  BYTE  INTO  BYTE  STRING 
a MOVE  BYTE  string 


OUTPUT  UINOOU  PACKETS 
FREQ/TICK  table 
CLASSIFICATION  INFO 
PIXEL  BUFFER  STRUCTURE 
SYMBOL  table 
COLOR  SCREEN  PARAMETERS 
UINOOU  PACKETS 
MAXIMUM  integer 


C 

1 NCL  UOE 

komouu.list 

a 

COMMON 

C 

INCLUDE 

komtbl.list 

a 

COMMON 

C 

INCLUDE 

komkls.list 

a 

COMMON 

C 

INCLUDE 

pxboef.list 

a 

DEFINE 

c 

INCLUDE 

komsym.list 

a 

COMMON 

c 

INCLUDE 

KOMKS.L 1ST 

a 

COMMON 

c 

INCLUDE 

uinoef.list 

a 

define 

INCLUDE 

maxint .list 

a 

define 

LOCAL  DECLARATIONS 


NUMBFS-6  a number  OF  MPX  BUFFERS 

MPXeuF I NUI XBF. NXBUFSI  a argument 
KIBUFUl  ' a ARGUMENT 
NBINSOINUMBFSI  a BIN  number  OF  SAMPLE 
MSIOOL.MSIOOH.MSIOOS  a MSA  SAMPLEMCO; 

MSASAM  a MSA  sample  NUMBER 

KIBIN  a COLOR/InTENSI TV  BUFFER  BIN  POINTER 

REAL  ADJSAM  a adjusted  SAMPLE  NUMBER 

INTEGER  IPIXLI . IPIXLB. IPIXL3. 

k IPIXLN.IPIXLS. IPIXLS  a PIXEL  VALUE  FOR  EACH  BUFFER 


PARAMETER 

integer 
integer 

INTEGER 

integer 

INTEGER 

integer 


0 FOR  each  MPX  BUFFER 
LOU. HI  OH. SPAC I NO 


INTEGER  IKENU  a INTEOER-COLOR'EQUI VALENT  (NEUI 

INTEGER  KIKE.KIKENU  a COOED  INTEOER-COLOR-EOUI VALENT  I CURRENT ). NEUi 
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PICVtl 

OM 


iNTcocM  nr.  iiCNu  • iNreocil'iNrcNtirv-CQuivALCNr  (CuRwcNr.MCui 
iNrcocit  Kite  A cooeo  iNreocii>iNrcNtirr>CQutvAieNr  (cumirNri 

MoceouRC 


INiriALirC  LOM  AND  NlOH  SANPLCS  ANO  $^ACINO 

CALL  A*»f»  (AOJLIN.AOJSAN.  fLOATt  lALINI  .fLOArMPCHlNI  > 
NSI00L«ADJ8AH«I00. 

CALL  A*»l»  (A0JLIN.A0J8AN.  fLOAT ( IPL  INI  .TLOAT I I^CNAXI  I 

ntlOON«AOJSAN«  too. 

NSI008*NSAOHH(H8AN.HSPl00> 

C 

e 

c srr  Nunsex  op  bin  containino  sanplc  o por  cacn  hpx  buppcr 
c 

00  ISO  NUHBUP* I . NXBUP8 

NO  I N80 ( NUNBUP I •RPXBUP I PXL  BIN. NUNBUP i -NPXBUP ( PXL  S AN . NUNBUP  > 
190  CONTINUe 
c 
c 

C INiriALiZC  PRCAHBLC  POR  COLOR-lNrCNSI rv  BUPPCR 
C 

KIBUPIPXRCCNI«HPXBUP(PXRCCN, I I 

KlBUP(PXLINOI*IPLIN 

KIBUP(PXCHANI»0 

KIBUPIPXQUALI*0 

KiBuPiPXBiNri«‘Brr' 

KIBUP(PXLBINi>I 
KIBUPIPXLCOL i-IPCNlN 
XIBUPfPXNCOL lalPCNAX 
KlBUP(PXN0INI«0 
KIBUP(PXNOOAI>0 
KIBUPCPXL  JOn-0 
KIBUPfPXHJOl >•0 
C 
C 

C iNiriAUZC  BIN  POINTCR  k PIR9T  BIN  OP  COLOR'INTCNSI  TV  BUPPCR 
C 

KIBIN-KIBUPIPXLBINI 

CALL  PUTBrriKIBUPIPXBINSt . IKIBINI . 331  • ASCII;  I 

C *!•  TURNS  ON  PICruRiNO  IN  NORTHST AR/ I SC 

C <CR>  <LP>  AT  CNO  OP  CACH  liNC  TURN  OPP  PICTURING 

C 
C 

C INITIALIZC  CURRCNT  iNTeOCR'INTCNSITy-CQUlV  k COOCO  I NTCOCR>COlOR-CQUl V 
C 

IIC>NAXINT 

KIKC*NAXINT 

C 

c 

C RCSANPLC/SCRCCN  RAOl ANCC/COUNT  PRC QUCNCY /LOOK  UP  SVNBOLS 
C 

00  NbO  NSIOO>NSIOOL.NSIOON.NSIOOS 
NVASAN*NSIOO/IOO 
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RICRIS 

007 


e 

c ourrcR  i 

e 

ir  ( (noaoan.lt.nrxoufirxloan. i n .or. 

0 IROAOAH.OT.HRXOOriRXMOAM.nn  00  TO  070  • OAHRIC  MOT  IN  OURrCR 

CALL  OCTOIN  ItRIXLI, 

• HRXiUriRXilNO. 1 1 , IHOAOAH^NOINOOn 1 1 > 

IRIXLt*IRIXLt  A OCCONO  CHANNCL  VALUC  OAHC  AO  MROT  ir  UNOCriNCO 

If  (IRIXLt.OC.HRXtUrtRXNOOA.in  00  TO  000  A NO  DATA 

ir  IIIRIXLt.LT.LCVLOn.OR. 

A (IRIXLt.OT.LCVNtni  00  TO  300  A OUT  Or  RAO  L INI  TO 

ir  (NLtHCH-l .CQ.OI  00  TO  300 
C 

c ourrcR  o 
c 

tr  I IHOAOAN.LT.NRXOUrCRXLOAN.Oi I .OR. 

A INOAOAH.OT.NRXOUriRXHOAH.On  I 00  TO  300  A OAHRLC  NOT  IN  OUrrCR 

CALL  OCTOIN  (IRIXLO. 

. NRXOUrCRXOINO.OI . (NOAOAN«NOINOO(OI I I 

ir  lllRIXLO.LT.LCVLOlOn.OR. 

A ( IRIXLO. OT.LCVNI ion  I 00  TO  300  A OUT  Or  RAO  LIMITS 

ir  (NLINCH'O.CQ.OI  00  TO  000 

eurrcR  s 

ir  I IHtASAN.LT.NRXOUriRXLSAH.Si > .OR. 

A IHSAtAH.OT.NRXOUriRXH8AN.3n  I 00  TO  3S0  A 8AHRLC  NOT  IN  BurrCR 

CALL  OCTOIN  IIRIXL3. 

• NRXOUriRXOINS.31 . INSA8AN*N0IN80I3) > ' 
ir  1 1 IRIXL3.LT  .LCVLOl  Sn  .OR. 

A IIRIXL3.0T.LCVHll3ni  00  TO  360  A OUT  Or  RAO  LIMITS 

ir  INLINCH'S.CO.OI  00  TO  060 

ourrcR  •* 

I r II NSASAN . L T . HRXOUr  I RXL  SAM . <*  n . OR . 

A INSASAN.0T.HRX6UriRXHSAN.vn  I 00  TO  3S0  A 8ANRLC  NOT  IN  BUrrCR 

CALL  OCTBIN  IIRIXLV, 

• HRXOUriRXOINS.Vt . (HSASAH*N6I  I80*v  ^ > > 
ir  niRIXLV.LT.LCVLOIvn  .OR. 

A I IRIXLV.OT .LCVHl I VI) I 00  TO  360  A OUT  or  RAO  LIMITS 

ir  INLINCH-V.eo.oi  00  to  030 

turrcR  s 

ir  I INSASAN.LT.HRXBUriRXLSAM.S) I . OR. 

A INSASAN.OT.HRXBUriRXNSAH.Sn  I 00  TO  3S0  A SANRLC  NOT  IN  BUrrCR 

CALL  OCTBIN  tIRIXLS. 

• NRXBjriRXBINS.SI . (NSASAN*NBINSOlS>  * • 
ir  IlIRlXLS.LT.LCVLOiSn  .OR. 

A IIRIXLS.OT.LCVHlISn I 00  TO  360  A OUT  or  RAO  LIMITS 

ir  INLINCH'S.CQ.OI  00  TO  COO 

c 

c BurrcR  6 
c 

ir  I INSASAN.LT.NRXBUriRXLSAH.6l ' .OR. 
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OAN  ^ACKAOC  AmNOIX  L 
NAIN  MOORAHS/AOUTINCS 


RICRII 

Mi 


A 


A 

C 

C COUNT 

e 


toe 

too 

too 

too 

sto 

c 

c 

C INFO  • 

c 


(NtAOAN.OT.NFXturiFXNSAN.eill  00  TO  ISO  A SANFLC  NOT  IN  OUFfCH 
CALL  OCrOIN  (IRtXtO. 

NPxeur I exit NS « 0 1 . t nsAtAN*Nt I Noo 1 0* 1 1 
IF  f (IRIXLO.lt. ICVLOfSIl. OR. 

tlRtXLO.OT.LCVHIIOm  00  TO  SOO  A OUT  OF  RAO  LtNlTf 


FRCOUCNCV 

NFRCQIIRIXLS»I.OI«NFRCQ(IRlXLO*l .0>*l 
NFRCQIIFtXL5»t .S>*NFRCQ(IRIXLS*t .St*l 
NFRCQI  IFtXL«*l  .•>I»NFRCQ(  IRIXL<»*I  ,•11*1 
NFRCOI tFIXLS»t .St*NFReQIIRlXLS»t  >S>  *1 
NFRCQt IFiXLt*l.tl«NFRCQ(IRtXLt*t .81*1 
NFRCQI  IFIXU  *1  .n«NFReOMRtXLl*l . 1 1 »| 


- LOOK  UR  NCM  INTCOCR'INTCNSI rv>CQUl V A I NTCOCR-COLOR-CQUl V 

CALL  eCTICrillCNU. 

KSrN(IRIXLI*ll,(9M 
CALL  OCTICeilKCNU. 

KSYNI IR(XL8*I I . <61* 

00  TO  170 


NO  OATA  --  AStlON  NCU  INTeOCR'iNTCNSITY'CQUIV  A I NTCOCR'COLOR'CQUI V 


390  CALL  oericcntCNu. 

• KOYN(  IOYHNO*M  . (Sn 
CALL  OCriCCIlKCNU. 

• KOYNI lOYNNO*! I . (Ot I 
00  TO  370 


NO  INFO  •>  ASSION  NCU  I NTCOCR* I NTCNSI T V>CQUl V A INTCOeR'COLOR'COUl V 

300  CALL  OmCCillCNU. 

■ KOYNIlOYNNUt  I .(SI  I 

CALL  OCTICCMKCNU. 

• KSVN(  ISVMNI  *n  . (61  I 


COUNT  INTCNSirv  X COLOR  CROSS  FRCOUCNCY 

370  NFRCROI I (CNU*t . UCNU*1 > *NrRCRO( t ICNU*! . tKFNU*t i *t 


IF  NCM  COOCD  I'K-C.  RUT  COOCO  l-K-C  A COOCO  I'l-C  IN  OUFFCR 

KIKCNU*KSKIKC( IKCNU*!  I 
IFIKIKCNU.CQ.KIKCI  00  TO  300 
KUe^KIKCNU 
KIOIN*KttlN»t 

CALL  RUrOYTtKlOUFCRXSlNSI.fKieiNI . KIKCl 

ttC-IICNU 

KllC»ltC*S7 
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KlttN«ICttlN*l 

CALL  PurtvriKieuriPxttNti.tKittNi . kiic* 

PO  TO  <»PO 

e 

c 

e SANC  eoLOP  --  tr  panc  iNrcNtirr  % pin.  wPOArc  eooco  nc  in  turrcp 
e 

IPO  irn iCNu.NC.  I ici  oo  ro  no 

iKiic.pr.iioi  00  ro  ipo 

KIIC>KIIC*IO 

CALL  Purpvrt tKiPUrfPXPiNPt .KiPiNI . KIICI 
00  TO  <»00 

c 

c 

C PANC  COLON  UITN  NCH  INTCNPirr  ON  NCH  PIN 

c 

IPO  IIC*IICNU 

XI ic«i te*P7 

KIPlN*KtPlN*l 

CALL  NUrOYrtKIPUflNXPINPl.lKIPINI.  KIICI 
C 

c 

C LOON  70  NNOCCfP  NCXT  NIXCL 
C 

KOO  CONTINUC 


PTONC  NOINTCN  TO  LAtf  PIN  IN  NNCANPLC  A NAO  PUfrCN  HITM  0 NUL‘P 
KiPUrtNXNPINI*KiPlN 

CALL  HOVPtr (KIOUrCNXPINPI . IKIOIN*! I .IPI , 

• O.dl.lll.Oi 


NICNII 

OOP 


POO  NCruNN 
CNO 


• • 


o 


' PAN  NACKAOC  APNCNPIR  L NICPUl 

NAIN  AROORANt/ROUriNCt  PPI 

tUfPOUriNC  NICNIA  • NietlNW  PNAOICNr/iANiAClANfVANIAIlCC  fPNAtC  At 

C - - - 

e 

e (C  N tCNLOttCRi 

e 

e 

c cxrcANAL  tutnourtNCt/ruNCriONt  CAttco 
C - - 

e 

c NONorc 

e Nvuro 


CXrCANAl  AietM.NICNII 
CAiL  TAACe 


CALL  NONOrCf 

• ’NICruXC.OAAOICNT/LAALACIAN/VAAIANCC  NOT  YCT  INPLCNCNrCO’ • 
CALL  NVIATOI  AlCIff .AICAIt> 

ACruAN 

CNO 


i 


• « ft 

v^-o' 


I'ixt 


MM  MACKAOC  AMCHOIX  I 
MAIN  INIMNANt^MOUnmCf 


MICMIf 

•01 


•UMOMTINC  MieMIS  • MICriMIC  CiAOO  IMNAOC  0> 


tc  N oei^otociii 


* 


rxrcMWAi.  ouMMOuriNCO/ruNcneNO  calcco 


MNorc 

Nvuro 


rxrcNMAL  •icioo.Aieoio 

CALL  rOACC 


CALL  MONOrCl  ’AlCruMC. CLASS  NOr  vcr  INML^rnCNrCO** 

CALL  Nvuroi  •ICItS.MICMIOl 

sc TURN 
CMO 


) 


) 


l*l»0 
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OAN  PACKAOe  APKNOIX  I 
NAIN  PRoeRAns/ftouriNCS 


SUBNOUriNC  PtCPtB  • PICTURE  SCAN  DATA  (PHASE  St 


history 


E H SCHLOSSER 
E M SCHLOSSER 
E H SCHLOSSER 


LEC  OS/17/78 
LEC  II/OS/79 
LEHSCO  0S/E8/80 


REOUIRENENTS  8 OESION 

STUB8E0 

INPLENCNTEO 


HETHOO 


CHECK  OlAOHOSrtC  COUNTERS 


ANO  PREPARE  POR  NEXT  PICTURE. 


HACHINE-OEPENOENT  CODE 


NONE. 


EXTERNAL  REPERENCES 


HONOTE 

nOCLRU 


EXCEPTIONS 


NONE. 


0L08AL  declarations 


INCLUDE  KONXQT.LIST  t COHHON  PROORAH  EXECUTION  SWITCHES. 

INCLUDE  KOROWU.LIST  a CONNON  OUTPUT  WINDOW  PACKETS 

INCLUDE  WINDEP.LIST  i DEPINE  STRUCTURE  OP  WINDOW  PACKETS 

INCLUDE  NULCST.LIST  a DEPINE  NULL  CHARACTER  STRING 

C VIA  TO 

EXTERNAL  PICOOO.  NULSU8 
C 
C 

C PROCEDURE 

C 

C 

CALL  TRACE 
C 
C 

C ON  RETURN.  CALL  PICOOO  TO  OET  CONNANOS 
C 


PICPIB 

001 


COUNTERS 


L-IYI 


o o o o 


OAN  PACKAOe  APPCNOIX  L 
MAIN  ppoePAns/PouriNCs 


CALL  NVIATOCPtCOOO.NULSUII 

c 

c 

C ANY  OlAONOSriCS??? 

c 

ircNorATL.eo.ot  oo  ro  mo 

CALL  NONOrei  ‘FATAL  CRRORS  --  Nb  PICTURC  OeNCRAreO*> 

00  ro  990 

oeo  tP(NOUARN.eo.o>  oo  ro  oeo 

CALL  NONOret  ‘PRCVIOUS  UARNINOS  --  NO  PICTURE  OENERArCO* 
IPCHBATCN.EQ.OI  URITEI6.98SI 
989  P0RHATC<»X. ‘••try  AGAIN! ‘t 

CALL  NOCLRNI  NULCST) 

00  TO  990 


PRINT  nSA  OUTPUT  HI  NOON  COORDINATES  AND  PREPARE  FOR  NEXT  Ml  NOON 

960  HRITEC6.965>  NSAOHUCUL IN.HHINI 
969  FORHATC IX. I IX. 'LINE  *.IHI 

HRITEI6.97SI  NSAOMUINSAH.UNINI .HSAOUNCUSAH.HNAXl 
979  FORHATC  IX. 'SAMPLE  '.  I<*  .9X  .' SAMPLE  '.1 01 
HRITEC6.969t  HSAOUMC ML  I N . UMAX  I 
URirE(6.98S) 

969  FORHATC I X> 

NHNOON-NUNOOU* I 
C 

c 

C RETURN  TO  NEXT  STATEHENT  IN  CALLING  ROUTINE 
C 

990  RETURN 
ENO 


PtCPIO 

008 
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OAH  PACKAOC  APPCNOtX  L 
MAIN  MOORAHS/ ROUT  1 Net 


RICRRO 

001 


OMROUTINC  RtCRROl  0 OeMeRATC  RROrtLCS 
U K0N0>  a It  FIRST  3 CHARS  OF  COHHANO  Ot  SRACeS 


le  H tCHLOSSCR) 


INCLUOe  KOnXQT.LlSr 
eXTCRNAL  PlCOOO.NULSUa 
CALL  TRACe 

c 

c 

CALL  NVIATOtPICOdO.NULSUOl 

CALL  NONOrec 'PROFILC  COHHANO  NOT  YeT  t HPLeHCNreO * I 

RtTURN 

CNO 


L-fTS 
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OAN  PACKAOe  APPEND IX  L 
MAIN  PNOORANS/ ROUTINES 


PICPRS 

001 


u 


SUOROUriNE  PICPRS  • PROFILE  NSS<>OERIVEO  DATA  tPNASE  St 


(E  N SCHLOSSERI 


« 


EXTERNAL  SUBROUTINES/ FUNCTIONS  CALLED 


NONOTE  • 

NVlATO 

* 


INCLUDE  KOHTSL.LIST 
EXTERNAL  PIC109. PICPRS 
CALL  trace 


CALL  HONOTEf ’PROFILE. RADIANCE  NOT  YET  I HPLEHENTEO ’ I 

CALL  NVIATOCPICIES.PICPRSI 

RETURN 

ENO 


L-IRH 


o o o ooooo 


OAN  AACKAOe  APPCNOiX  L 
NAIN  PKOOAANS/AOUriNCS 


PICM9 

OOt 


SUmOUriNC  PtCPR9  • PPOPILC  H99>0CRIVC0  data  (PHA9C  9> 
tr  M SCHLOSSCRI 

exrrpNAL  suaRouriNCs/PUNcrioNS  called 

NONOTE 

Nvuro 

EXTERNAL  PICOOO.NULSU8 
CALL  trace 


CALL  NONOTE ( 'PROFILE  NOT  YET  I NPLEHENTEO * I 

CALL  NVIATOfPICOOO.NULSUBI 

RETURN 

ENO 


ooonooooooonnnoo  ooonnnoooooonoonooonoooooooonnoononno 


OAH  PACKAOe  AWNOIX  L 
MAIN  MOOMANt/ROUriNCS 


RICtlOT 

001 


tuooouriNC  piCRort  o rotatc  rrcviouslv  ocncoatco  rAcroo  sroucruRe^cocrrs 
u Konoi  • It  rtoor  s chaos  or  conhano  ot  soaccs 


Hitroov 


N L eOOUN  LCC  01/ 10/70  ALOOOITNN  COO  I NO 

J C CRISP  LCC  00/31/79  RCVlSC  CALLS  TO  OCTSSX 


NCTHOO 


CNCCK  IP  RESULTS  OP  PACTORINO  ARC  AVAILAOLC.  OCT/CMCCK  SPECS. 
PERPORN  ROTATtON.  PRINT  ANOLE.  ROTATED  STRUCTURE.  COEPP I C I ENTS. 
NEANS. 


NACNINE-OEPENOENT  CODE 


NONE. 


EXTERNAL  REPERENCES 


NONOTE 

HONARN 

HOCLRN 

MARNS 

OETSKN 

OETSIN 

0ET9SX 

ROTCNX 

ROTCOL 

FACPRT 

EXTERNAL 


• PRINT/LOO/COUNT  ‘NOTE*  OUONOSTIC  MESSAGES 

• PRINT/LOO/COUNT  ‘UARNINO’  OIAONOSTIC  MESSAGES 
a CLEAR  COUNT  OP  ‘HARNINO'  OIAONOSTICS 

a GENERATE  HARNINO  POR  INVAL lO/MISSINO  PIELO  PROM  UNIT  S 
a OET  CHARACTER  STRING  CATA, PIELO  PROM  UNIT  9 

a OET  integer  data  pielo  prom  unit  5 
a OET  sexagenary  data  pielo  prom  unit  s 
a rotate  a matrix  columns  to  maximize  punction 
a rotate  a matrix  columns 

a PRINT  factor  STRUCTuRE/COEPPICIENTS/MEANS 
QUARTU.QUARTN. VARSQU. V ARSON 


EXCEPTIONS 


I.  IP  FACTOR  tables  are  NOT  PRESENT  PRQM  A PREVIOUS  FACTOR  COMMANO. 
THEN  A UARNINO  DIAGNOSTIC  HILL  BE  GENERATED. 

8.  INVALID  ANO/OR  EXTRA  SPECIFICATION  GENERATES  A UARNINO  OIAONOSTIC. 

3.  PREVIOUS  UARNINOS  ANO/OR  FATAL  ERRORS  PREVENT  ROTATION. 

GLOBAL  declarations 


L-t<*6 


OAH  PACKAOC  APPCNOIX  L 
HA IN  PNOONAHS/ROUriNCS 


INCLUOC  KOHXOr.Lttr 
INCLUDE  KONNCN.LIsr 
INCLUOC  KONKLS.LISr 
INCLUDE  KOnriL.LISr 
INCLUDE  KONINT.LISr 
INCLUOC  NULCSr.LISr 

c 
c 

C LOCAL  OECLANAnONS 

C - 

C 

REAL  ARAD  • ROTAriON  ANOLC  IN  RADIANS 

REAL  AOEO  • ROTATION  ANGLE  IN  OCORCES 

C 
C 

C PROCEDURE 

C 

C 

C 

CALL  TRACE 
C 

c 

C CHECK  IP  r-ACTOR  TABLE  LOAOCO 
C 

c 

IPI (KL8TYP.EQ.0I .OR.  • NO  CLASS  TYPC  PRON  PREVIOUS  PACTOR'NO 
A (KT8LTY.NC. ‘PACT* n « NO  PACTQR  TABLES  LOAOCO 
A CALL  nOHARN(*NO  PREVIOUS  PACTORINO’I 
C 
C 

C OET  PUNCTION  TO  NAXIHIEE  UNOCR  ROTATION 
C 

kputyp«‘var*  a ocpault  is  varinax  rotation 

CALL  0CTSKN(KPUTYP.3.NULCSTI 

IPfKPUTYP.EQ. *OCO‘ i 00  TO  SOO  • NO  NAXINIZaTION  -•  EXPLICIT  ANGLE 

IPCKPUTYP.NE. ‘VAR'.ANO.KPUTYP.NE. ‘QUA’ I CALL  MARNS( 

A ‘BAO  NAXINIZATION  PUNCTION  '-‘I 
C 
C 

C OET  TYPE  OP  NATRIX  USED  IN  EVALUATING  PUNCTION 
C 

knatyp»‘8tr‘  a OCPAULT  IS  pactor  structure 

CALL  OETSKH(KNATYP.S.NULCST) 

IP(KNATYP.NE. ‘STR’, ANO.KHATyP.NE.  ‘COC‘ I call  MARNSf 
A ‘BAO  evaluation  NATRIX  --‘I 
c 
c 

C IS  NORNALIZCO  NATRIX  T.O  BE  U8CO? 

c 

KN0TYP-‘N0R‘  a ocpault  is  nornalizco 

CALL  OETSKH(KNOTyP..3.NULCSTI 

IPIKNOTyP.NC.  ‘NOR~:‘aNO.KNOTVP.NE.  ‘UNN’  . ANO-KNOI  YP.NE.  'RAH*  i 
A CALL  UARNSI’BAO  NORNAL I ZAT ION  SPEC  •-*) 

C 

C 

C DRAIN  SPECS  POR  CURRENT  CONNANO 


PICHOT 

OOC 


a COHNON  PNOONAN  EXECUTION  COUNTERS.  SHITCNCS 
a COHNON  CRTS  SCENE  PARANCTERS 
a COHNON  CLA88IPICATI0N  INPO 

a CONNON  pactor  table 

a IRRAOIANCE  TRANSPORNATION  COCPPICICNTS 
a OCPINC  NULL  CHARACTER  STRING 


L-IH7 


I 


NOIX  L 

luriNcs 


i>iciior 

DOS 


$ 


e 

CALL  ocrstN(trcNP.*i.>i.*cxriiA  rotatc  t^eciriCArioN 
e 
c 

C CNCCK  rOR  OIAONOSTICS 

c 

trCNOATAC.NC.OI  00  TO  900  0 OAT A/CMCCKOUr  HOOC 

iriNOrOTL.NC.OI  00  TO  too 
c 
c 

C 9RANCM  ON  FUNCTION  OPCCiriCAT ION 
C 

iriKrurvp.NC. ‘QUA'i  oo  ro  soo  a varinax 
c 
c 

C QUARTIHAX  ROTATION 

c 

IFIKHATYP.NC. ‘STRM  00  TO  OHO  a COCPFICICNTS 
C 
C 

C QUARTIHAX  ROTATION  OF  FACTOR  STRUCTURC 
C 

IFIKNOTVP.NC. ‘NORM  00  TO  000  a UNNORHALIZeO 

c 

c 

URITCie.OISI 

Ots  FORNATC  ROTATC.  QUARTIHAX.  STRUCTURE.  NORNAUZEO*/! 

CALL  R0TCHX(FSTRUC.QUARTN.KCHAC0.KFACC0.7.7. t . 0 . ARAO . F8TR0T I 
CALL  R0TC0L(FCN0RH.KCHAC0.KFACC0.7.7. I .0. ARAO.FCNROT) 

00  TO  700 

c 

c 

000  URITEIO.OOSi 

OOS  FORHATI*  ROTATE.  QUARTIHAX.  STRUCTURE.  UNNORNAL I ZEO * / > 

CALL  R0TCHX(FSTRuC.QUARTU.KCHAC0.KFACC0.7.7. 1 .0. ARAO.FSTROT) 
CALL  ROTCOL (FCNORH.KCHACO.KFACCO.7.7. I .0. ARAO.FCNROT I 
00  TO  700 

c 

c 

C QUARTIHAX  rotation  OF  FACTOR  COEFriCICNTS 
C 

OHO  IFtKNOTYP.NE. 'NOR' t 00  TO  060  S UNNORHALIZEO 
C 
C 

URITEIO.OHS) 

OHS  FORHAT«*  ROIaTC.  QUARTIHAX.  COEFFICIENTS.  NORHAL I ZEO ' ' • 

CALL  ROTCHXlFCNORH.OUARTN.KCHACO.KFACCO.7.7. I .O.ARAO.FCNROTI 
CALL  ROTCOL (FSTRUC.KCHACO.KFACCO.7.7. I . 0 . ARAO . FST ROT l 
00 'to  700 
C 
C 

000  wR.KCf6.06Sl 

OSS  rORHATC  rotate.  QUARTIHAX.  COEFFICIENTS.  UNNORHAL I ZEO ' / I 

CALL  ROTCHXIFCNORH.OUARTU.KCHACO.KFACCO.7.7. I .O.ARAO.FCNROTI 
CALL  ROTCOLIFSTRUC.KCHACO.KFACCO.7.7. I .0. ARAO.FSTROT) 

00  TO  700 
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OAN  PACKAOC  AMCNOIX  L 
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^tCIIOT 

00«» 


A UNNORMAL  I ZeO 


C VARINAX  ROrATION 

c 

soo  iriKHArYR.NC. ’srii‘1  oo  ro  mo  • coernciCNrt 
e 
c 

C VARIHAX  notation  Of  TACTON  STNUCTUNC 
C 

iriKNOTYN.NC. *NON'i  OO  TO  SCO  A UNNONMALIZCO 
C 

c 

HRITCIO.SISt 

SIS  rONNATI*  ROTATC.  VARIHAX.  STRUCTURE.  NORHALIZCOVI 

CALL  ROTCHXirSTRUC. VARSQN.KCHACO.xrACCO.T.T. I .C. ARAO.rSTROTi 
CALL  ROTCOL  < rCNORH. KCHACO. KF ACCO . 7 . 7 . 1 . C . ARAO. FCNROT I 
OO  TO  700 
C 

c 

SCO  URITCCS.SeSI 

SCSrORNATC*  rotate.  VARIHAX.  STRUCTURE.  UNNORHAL I ZEO * / I 

CALL  ROTCHXtPSTRUC. VAR8QU.KCHAC0.KrACC0.7.7. t .C.ARAO.FSTROTl 
CALL  ROTCOL  < FCNORH . KCHACO. KPACCO . 7 . 7 . 1 . C . ARAO. FCNROT ) 

OO  TO  700 
C 

c 

C VARIHAX  rotation  OF  FACTOR  COEFFICIENTS 
C 

3**0  IFIKNOTVR.NE.  *NOR*l  OO  TO  300  A UNNORHALIZEO 

c 

c 

URITEIS.3WS) 

SHSFORHATC*  rotate.  VARIHAX.  COEFFICIENTS.  NORHALIZEO'M 

CALL  R0TCHX(FCN0RH.VARSQN.KCHAC0.KFACC0.7.7. I . C . ARAO. FCNROT I 
CALL  ROTCOL I FSTRUC. KCHACO. KFaCCO. 7.7. I .C. ARAO. F8TR0T> 

OO  TO  700 


360  MRirC(6.36SI 

36SF0RHAT(*  rotate.  VARIHAX.  COEFFICIENTS.  UNNORHAL I ZEO ' ^ 

CALL  ROTCNXIFCNORH. VARSQU.KCHACO.KFACCO.7.7. t . C . ARAD . FCNROT I 
CALL  ROTCOL I FSTRUC. KCHACO. KFACCO. 7.7. t . Z . AR AO . FSTRO T ) 

OO  TO  700 


C OET  EXPLICIT  rotation  AN0LCIS> 

C 

SOO  CALL  OCT88XIAOEOFH.I..<S60..*S60..‘«OAO  ROTATE  ANOLE 
C 
C 

C OCT  optional  final  rotation  anole  a INCRENENT 

aoeoto*aoeofn  • default  final  anole  is  same  as  initial 
CALL  OETSSXI AOEOTO. I . . >300. .*360. . 'BAO  ROTATE  FINAL  ANOLE  "‘I 
AOEOIN>*I.  I default  INCREhENT  IS  I OEOREE 

CALL  OCT8SXIAOEOIN.I..-S60..*S60..'BAO  ROTATE  INCREMENT  ..*i 


L-IN9 


i 


noon 


O 


I 


OAN  PACKAOC  AFKNOtX  L 
MAIN  MOONAHt/ROUTINCt 


i 

f»icmT 

009 


miTCto.sooi  Aocorn.AOCoro.AocoiN 

900  rONNATf  ROTATC.  0C09CC9* . K * . * .rO.AM 

0 

e 

e KoroNN  cxfLicir  noTAnoNfoi  o cvaluatc  ruNcrtoNO 
e 

triNoroTL.NC.oi  oo  ro  ooo  o oiaonooticx  CNCOUNrcocoi 
NRirC(0.9l9l 
919  rORHATt 

A *0  OCORCCO 

ft  0 QllftllTINftlK  VftllIMft  V*/ 

A ttx.*  oTRucruRC  cocmciCNro  structurc  cocrriciCNrs*/ 

A tOX.’NORH  UNNORN  NORN  UNNORN  NORN  UNNORH  NORH  UNNORNM 

nocorn-AOCorn* i ooo . 

NOCoro«AOCoro« i ooo . 

HOCOIN*AOCOIN«IOOO. 

00  9*0  noco*noeorH.Hocoro.nocotN 
Aoeo*rLOAr  c noco i • . oo  i 

ARAO*AOeO  *3.1*1 99009/ 1 00 . 

CALL  ROrCOL I PSTRUC . KCHACO. KPACCO. 7 . 7 . t . 0 . ARAD. POTROT I 
CALL  ROrCOL I PCNORN . KCHACO . KP ACCO . 7 . 7 . t . 0 . ARAO . PCNROT I 
OUARTN-QUARTNI PCTROr. KCHACO. KPACCO. 7. 7. t .01 
0UARru>0UARruiP0TR0r.KCHAC0.KPACC0.7.7. I .01 
CUARrN*0UARTNfPCNR0r.KCHAC0.KPACC0.7.7. I .Ot 
CUARru*QUARru( PCNROT. KCHACO. KPACCO. 7. 7. t .01 
OARAQN«VARAQNIPOrROT.KCHACO.KPACC0.7.7. 1 .01 
SARtQU«VARSQUCPSTROr. KCHACO. KPACCO. 7. 7.  1.01 
CAR0QN«VARSQNIPCNR0T.KCHAC0.KPACC0.7.7. I .01 
CARCQU*VAR0QUIPCNR0T.KCHAC0.KPACC0.7.7. t .01 
HRITCI9.909I  AOCO. 

A OUARTN . SUARTU . CUARTN . CUART U . 8ARSQN . 9ARSQU .CARSON . C ARSQU 
909  PORHATIPO.S. IX.*P7.4. |X.*P7.HI 
9*0  CONTINUC 

HRirC(0.9991 
999  PORNATIIXI 
00  TO  790 
C 

c 

C PRINT  rotation  ANOLC  IN  OCORCCS 
C 

700  AOCO*ARAO*tOO. /3. 1*199099 
URITC(e.709l  AOCO 

709  PORNATf  (ROTATION  ANOLC  • ’.P9.*.*  0C0RCC9*‘/l 
C 
C 

C PRINT  PACTOR  9TRUCTURC/C0CPPICieNr9/NCAN9 
C 

790  CALL  PACPRT (P9TR0T. PCNROT. PCOROT.CHSTO.CHHC AN. KCHACO. KPACCO. 7. 7 t 


A 


« 


A99I0N  PACTOR  C0CPPICICNT9  TO  LtNCAR  tfUNOP  WCI0HT9  A UPOATC  UCIOhTCD  GAINS 

00  770  NCH*I.NCRCHA 
00  700  m.p-1.0 

RTL HOT (NCH. NLP t*PCOROT INCH. NLP< 

700  LRTUtOlNCH.NLPt«RTLUOTINCN.NLPI*RTLOANINLPI*0.**IO 


I 


1-190 


o u o u 


PAN  PACKAOC  APTCNOIX  L 
NAIM  AAOORANS/ROUnNCt 


picppr 

OOP 


770  CONMNUC 
00  TO  000 

c 

e 

C CNCCK  OlAONOOriC  COUNTCRO 

e 

000  iriNOUARN.eO.OI  OO  TO  000 

CALL  HOMO TCI ‘ARC VI QUO  UARNINOS  --  NO  ROTATION* I 
iriNOATCH.CQ.Ot  HRITCIO.OIOI 
OtS  rORNATl*  ...TRY  AOAIN'I 
00  TO  000 

000  iriNorATL.eo.oi  oo  to  oso 

CALL  nONOTCI ‘PRCVIOUO  PATAL  CRRORS  --  NO  ROTATION*! 
00  TO  000 

OSO  IPIHCMCCK.CQ.OI  00  TO  000 

CALL  NONOTCI *CHCCK0UT  NOOC  -•  NO  ROTATION*! 

C 

C 

C CLCAR  NARNIN08 
C 

000  CALL  HOCLRHINULCST! 


ACT URN 

000  KOHO-* 
RCTURN 
CNO 


OMI  PACKAOC  AMCNOIR  I 
MAIN  PROORANt/ROUrillCt 


tUMOUriNC  MCrOB  a total  tamlationo 

c - 

e 

e (C  M tCNLOttCRI 

e 

e 

INCLUOC  KONROT.UtT 
CRTCRNAL  OICOOO.NM.$UO 
CALL  TAACC 

c 

c 

CALL  NVIATOtOICOOO.NULSUil 

CALL  nONOrCt 'TOTAL  CONHANO  NOT  TCT  INOLCNCNTCO* I 

RCTUNN 

CNO 


PICfOt 

001 


DAM  PACKAOC  AMCNOIX  L 
NAIN  MOeHANt/AOUriNCt 


PICT09 

001 


oiMOOwfiNC  oieroo  a rovAi  rAOOLAnoiio 

C 

e 

e (C  N OCNLCOOCOt  . • 

e 

e 

iNCLuoc  xoNxet.Litr 
CXrCNNAL  OieOOO.NM.tUO 
CAI.L  rOACC 

c * 

e 

CALL  NVIATOIOiCOOO.NMtUOi  4 

CALL  NONOrCt ’TOTAL  CONHANO  NOT  YCT  I NOLCNCNTCO* I 

NCTUNN 

CNO 


OOOOO  OOOOOOOOOOO  OO'IOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


OAH  PACKAOC  APPCNOIX  I 
NAIN  PMOORANS/ ROUT  INKS 


Plexor 

001 


sumouriNC  Ptexor 


• INiriALIZATtON  ROUTINC  POR  PICTAR 


NtSrORT 


E M 8CML0SSCR  LEC 

E M S<^:.L0SSER  LEG 


ll/Ot/75  ORIGINAL  CODE 

01/03/79  ALLOW  OEPAULT  COHHANOS  PROH  NACOAN 


HETHOO 


initialize  PROORAH.  open  piles.  IOENTIPY  scene,  queue  OEPAULT  COHNANOS. 


NACr .NE-OEPENOENT  CODE 


UNIVAC  EXEC-e  PROGRAM  PILE  NAMING  CONVENTIONS. 


EXTERNAL  REPERENCES 


NVIATO 

PSTART 

OPENS 

LOREON 

I0LU3 

lOERTS 

SVSAOO 

MOPATL 

EXTERNAL 


8 NAME  NEXT  *VlA*  8 ’TO’  SUBROUTINES 
8 PROGRAM  start  INITIALIZATION 
8 OPEN  PILE  3 (INPUT  MSS  OR  RBV  OATAI 
8 LOAD  EXACT  OR  NOMINAL  REGISTRATION  PARAMETERS 
8 identify  pile  3 HAROHARE 
8 identify  mss  or  RBV  DATA 

8 AOO  DISK  SYMBOLIC  PILE  OR  ELT  TO  SYSIN  RUNSTREAM 
8 SUBMIT  FATAL  OlAONOSTIC  MESSAGE 
VIA  TO 

PICOOO.  NULSUB 


EXCEPTIONS 


1 . 


MISSING  DEFAULT  COMMANDS  GENERATE  A FATAL 


OlAONOSTIC. 


GLOBAL  declarations 


INCLUDE  KOMXOT.LIST  8 COMMON  PROGRAM  EXECUTION  SNITCHES.  COUNTERS 


LOCAL  DECLARATIONS 


INTEGER  LOCPIL  8 LOCATION  HITHIN  DISK  SYMBOLIC  PILE  ( IF  > 0 > 

C 
C 


L-I5S 


o o o o onoo  oooooo 


0AM  MACKAOC  AMKNOtX  L 
MAIN  MROORAHS/ROunNCS 


RROCCOURC 


lOeNTirv  RROORAN 

CALL  RSTARrc  'OAR  PICr A8( 60091 ‘ I 


ON  RCruRN.  CALL  PICOOO  TO  OET  OCrAULT/USCR  CONNANOS 
CALL  NVlATOt  PICOOO .NULSUBI 


OPEN  FILES  A LOAD  REOISTRAriON  PARAMETERS 

CALL  OPENS 
CALL  LOREON 

IPrMOATAC.NE.Oi  00  TO  300  A OATA/CHECKOUT  MODE 

C 

c 

C IDENTIFY  ERTS  SCENE 
C 

HRITE(6.EES> 

ESS  rORNATMXI  A SKIP  LINE 

CALL  I0LU3I  81 
CALL  lOERTSf  6> 

C 

C 

C QUEUE  DEFAULT  COMMANDS  FROM  PRIVATE  PROGRAM  FILE  OR  OAM  PROGRAM  FILE 
C 

300  CALL  SVSAOOILOCFIL . ‘MACOAM* . '0EF-PICTA8* . * '> 

IFILOCFIL .LE. Ot  CALL  SYSAOO C L OCF I L . ' OAM ' . ‘ OEF-P I C T aB * . ' *> 

IFILOCFIL .LE. 0>  CALL  MOFATLt  'NO  DEFAULT  COMMANOS’i 
C 
C 

C RETURN  TO  NEXT  STATEMENT  IN  CALL! NO  ROUTINE 
C 

RETURN 

ENO 


PieXQT 

008 


« 


A 


ooooooouooooooooooooooooooooooooo  oooooooooooooo 


0*n  PACKAOt  APPCNOtX  I 
NAIN  MtOOftAHS/ROunNCS 


lOCPIC 

001 


susoouriNC  locpici  o tocNriPY  cumcnt  cohhano  specs  for  pictab 

I I UNIT!  0 OUTPUT  UNIT 


C 

C 

c 

C HISTORY 


e H SCNLOSSCR 
J C CRISP 


LCC  IO/OS/7S  ALOORITNH  COOINO 

LCC  10/10/79  REVISE  TO  USE  CHAR  SUFFER  ROUTINES 


NETHOO 


CHECK  lUNtr  FOR  6 OR  LEOAL  ALTERNATE  PRINT  FILE.  ENCODE  FILE  NAME 
FROM  UNIT  NUHBER.  IDENTIFY  SHARPENING  SPECS.  IF  PRESENT.  SUILO 
CHARACTER  BUFFER.  AND  OUTPUT.  tOENTIFY  TRANSFORHAT I ON  SPECS.  IF 
PRESENT.  BUILD  CHARACTER  BUFFER.  AND  OUTPUT.  BUILD  CHARACTER 
BUFFER  CONTAINING  CHANNEL  TYPE  AND  NUMBER.  RAOIANCE  LIMIT  VALUES 
AND. SYMBOLS.  SPACING.  AND  ORIGIN.  OUTPUT  BUFFER. 


MACHINE -DEPENDENT  CODE 


UTILIZES  UNIVAC  EXEC  8 ER  PRINTS  AND  ER  PRNTAS 


EXTERNAL  REFERENCES 


CBINIT  a INITIALIZE  CHARACTER  BUFFER 

CBvcsT  a character  buffer  for  character  string 

CBVIN  a character  buffer  for  INTEGER 

CBHRL  a character  buffer  for  real 

CSTNIN  a character  string  for  INTEOER 

ERPRNT  a PRINT  I MAOE  ON  TTY  OR  LINE  PRINTER 

ERPRTA  a WRITE  IMAGE  TO  ALTERNATE  PRINT  FILE 

INTEGER  LENCST  a LENGTH  CHARACTER  STRING 

DOUBLE  PRECISION  COSVIN  a VARIABLE  LENGTH  CHAR  STRING  FOR  INTEGER 


EXCEPTIONS 


I.  OUTPUT  HILL  BE  TRUNCATED  TO  FIT  THE  LENGTH  OF  THE  OUTPUT  BUFFER. 
a.  IF  lUNlT  IS  NOT  6 OR  A LEOAL  ALTERNATE  PRINT  FILE  ( 1 0 *MAL TM- 1 I . 

THEN  A fatal  error  IS  oencrateo. 


GLOBAL  OeCLARATIONS 


L-157 


r>  o o o oooooooo  o o o o o 


OAH  PACKAOe  APPCNOIX  L 
NAIN  PAOeftANS/ftOUriNCS 


lOCPtC 

00« 


tNCLUOe  KONXQT.LISr 
INCLUDE  KOmieR.LISr 
INCLUDE  KOHKLS.LISr 
INCLUDE  KOHinr.LISr 
INCLUDE  KONSYH.LIST 
INCLUDE  UINDCr.LISr 
INCLUDE  KONOHU.LIST 
INCLUDE  ICBUri.LIST 


A CONHON  PROORAN  SNI TCHES. COUNTERS 
a ERTS  SCENE  PARAHETERS 
a CLASSIPICATION  INPORNATION 
a IRRAOIANCC  TRANSrORN  COErPICIENTS 
a CONHON  SYMBOL  TABLE 
a OEPiNE  tho-oinensional  uinooh 
a OEriNE  OUTPUT  MlNOOU  PACKET 
a DECLARE  CHARACTER  BUPrCR 


LOCAL  DECLARATIONS 


INTEOER  NAHPIL  (81 
INTEGER  NRUCHN 
INTEGER  NLCHAN 
INTEGER  NPCHAN 
INTEGER  NLC 
INTEGER  NAXIS 
CALL  TRACE 


a ALTERNATE  PRINT  FILE  NAME 
a NUHBER  wf  RAH  CHANNEL 
a NUHBER  or  LINEAR  CHANNEL 
a NUMBER  OF  POLAR  CHANNEL 
a NUHBER  OF  LIMIT  CHANNEL 
a AXIS  NUMBER 


PROCEDURE 


INITIALIZE  FILE  NAME  AND  CHARACTER  BUFFER 

CALL  CSTHIN  (NAMFIL. ( I I . I88t . lUNlT.I) 
CALL  CBINIT  (ICBUFII 


CHECK  FOR  VALID  OUTPUT  UNIT/PRINT  FILE 


IF  ( lUNiT.EO.B.OR. 

* lUNI T.OE. I 0. AND. I UNI T.LE. ( I 0*MALTM-l I I CO  TO  800 

CALL  MOFATL  (CBSVINdUNIT.n  n . ■ '.'IS  BAD  UNIT  IN  tOCPIC’l 

00  TO  900 
C 
C 

C OUTPUT  5HARPENIN0  SPECS.  IF  PRESENT 
C 


800  CALL  CBHCST  (ICBUFI.  '('> 

00  8S0  NRUCHN* I . NERCHA 

IF  ( IRSFI8(NRUCHN. 1 ) .EQ. 0. AND. 

• IRSFI8(NRWCHN.8» .EO.Ol  00  TO  85C  » NO  COEFFS  FOR  CHAN 

IF  (LENCSTI ICBUFI .81 . or . I ) CALL  CBHCST  (ICBUFI. 

• •...•) 

CALL  CBHCST  (ICBUFI.  ‘SHA.’i 

CALL  CBHIN  (ICBUFI.  NRUCHN. I l 

CALL  CBNCST  (ICBUFI.  '.SAM.** 

CALL  CB**RL  ( ICBUFI  . 

• FLOAT!  IRSF18!  NRUCHN.  n)*8.**-l8.l.<»l 

CALL  CBNCST  (ICBUFI . ‘ ‘ I 

CALL  CBNRL  (ICBUFI . 

« FLOAT! IRSFI8(NRUCHN.8t  t*8.«*-l8.I.HI 


L-ISB 


ooouu  ooo 


0*n  PACKAOe  APPCNOIX  L 
HAIN  MOOftAHS/nOUrtNeS 


aso  continuc 

CALL  CBHCtr  iicaurt.  *i*i 

ir  (LeNC8rftceuri.3i.Le.ai  oo  ro  aeo  a blank  Burree 
ir  (lUNir.eo.Bi  call  eRrBNr  (t.aa.iCBurti 
IF  IIUNlT.Ne.6l  CALL  eRPRTA  (NAHF IL . t .BB. ICBUFt I 


OUTFUr  transfonnation  sfccs 
•••specs  FOR  LINCAR  TRANSFORMATIONS 


aso  IF 


300 


(IRTTYP.eO.  *RAH*I  00  TO  *»00 
00  3B0  NLCNAN«t.a 

CALL  CBINIT  MCBUFII 
CALL  CBHCST  MCBUFI. 

CALL  C8<»tN  (ICBurt. 

CALL  CB*»CST  (ICBUFI. 

00  300  NRHCHN>I .NCRCHA 

CALL  CBHRL  ( ICBUPt 
CALL  CBHCST  (tCBUFI 
CONTINUe 
CALL  CBHCST 
CALL  Ca**RL 
CALL  CB*»CST 
CALL  CB*»RL 


a NO  TRANSFORMATIONS 


• (L IN. • I 
NLCHAN.  I I 

• . Me  I . • » 

RTLHOTINRHCHN. NLCHAN I 
• . • » 


*OAIN. * I 
RTLOANINLCHANI 
* .BIAS. ‘ I 


380 


CALL  CBICST 
IF  llUNlT.eO.Bl 
IF  (lUNIT.Ne.Bl 
CONTiNUe 


(ICBUFI . 

(ICBUFI.  RTLOANINLCHANI  . I .3) 
(ICBUFI . 

(ICBUFI . 

FLOAT (LRTBI a (NLCHAN I I«8.**-I8.I.3I 
(ICBUFI.  *1*1 

CALL  eRPRNT  ( I .88 . I CBUFI ) 

CALL  eRPRTA  ( NAMF I L . I . 88 . I CBUF I I 


— specs  FOR  POLAR  transformations 


IF  (IRTTYP.Ne. ’POL’I  00  TO  HOO  8 NO  POLAR  TRANSFORMATION 

CALL  CBINIT  (ICBUFII 
CALL  C8HCST  (ICBUFI . * ( • I 

00  3S0  NPCHAN-1.8 

IF  (NPCHAN.CQ.8I  CALL  CB*»CST  (ICBUFI.  '...‘I 

CALL  CB1CST  (ICBUFI.  * POL . ‘ I 

CALL  CB<MN  (tCBUFI.  NPCHAN.II 

CALL  CBXCST  (ICBUFI.  ‘.OAIN.'I 

CALL  CB**RL  (ICBUFI. 

- FLOAT(NRTOI8(NPCHANI >«8.«*-I8.I.3> 

CALL  CB*»CST  (ICBUFI.  *.BIAS.*l 
CALL  CB1RL  (ICBUFI. 

% FL0AT(NRTB8<*(  NPChani  I *8.  • • -e<*.  1.31 

3S0  CONTINUe 

CALL  CBHCST  (ICBUFI.  *1*1 
IF  (lUNlT.eO.BI  CALL  CRPRNT  ( I . 88 . I CBUF I I 
IF  (lUNIT.NC.BI  CALL  CRPRTA  I NAMF I L . I . 88 . I CBUF I I 
C 
C 

C lOCNTIFY  CHANNEL  TYPE  ANO  NUMBERISI 
C 

•*00  CALL  CBINIT  (ICBUFI  I 

CALL  CB<»CST  (ICBUFI.  '(CHAN.*  I 
CALL  CB**CST  (ICBUFI.  I RT  TYP.  ( I I . ( 3>l 


lOCPtC 

003 


t*i 


L-IS9 


o o o o oooo 


OAN  PACKAOC  APPCNOtX  L 
MAIN  PttOOAANS/ROUriNCS 


00  HSO  NLC-I.NUNCM 

CALL  COHCSr  (I court. 
CALL  COHIN  (iceurt. 
HSO  CONTINUe 


•.  *1 

LiNCHtNLCI.il 


C 

C 

C lOLNrirv  NAOIANCe  LIHir  VALUeS  ANO  8VNB0LS  rOR  riRSr  CMANNCL 

c 


CALL 

CBNCSr 

MCBUPI  . 

*..  .RAO.'I 

CALL 

ca*»iN 

MCBUPI  . 

LCVLOl  . 1 1 

CALL 

CBHCsr 

MCBUPI  . 

• • 1 

CALL 

CBNCST 

MCBUPI  . 

KSYNfLCVLOMI  1 . M 1 

CALL 

CBNcsr 

MCBUPI  . 

• . • 1 

CALL 

CBN  IN 

MCBUPI . 

LCVHI 1 . 1 1 

CALL 

CBHCsr 

MCBUPI  . 

• • 1 

CALL 

CBNCSr 

MCBUPI  . 

KSYHtLCVHI 1 »l 1 . M > 

c 

c 

C lOCNriPY  RAOIANCC  LiNiT  VALUCS  POR  ANY  OTHCR  CHANNCLS 
C 

IP  tNLlNCH.LT.CI  00  ro  600 
00  S80  NLC-S.NLINCH 


C 

CALL 

XRC077(BI 

§ • 9 

« • « 

OUNP 

REO 

XB 

• « « 

C 

CALL 

CBNCSr  MCBUPI 

f 

• • 

) 

CALL 

CBNCSr  MCBUPI 

• t 

• 

.1.11 

C 

CALL 

XRE077CBI 

« • 0 

OUNP 

REO 

XB 

« « « 

A*0 

CALL 

CBNIN  MCBUPI 

• 

LCVLOtNLCI . 1 1 

C 

CALL 

XRE077(8l 

• « « 

OUNP 

REO 

XB 

• • « 

• >S 

C 

CALL 

CBHCSr  MCBUPI 

• 

• • 
« 

1 

CALL 

CBNCSr  MCBUPI 

• • 
• 

.1.1) 

CC 

s 

CALL 

XRC077IBI 

9*9 

« • « 

OUNP 

REO 

XB 

• « • 

• «a 

CALL 

CBN  IN  MCBUPI 

LCVHI  (NLO  . 1 ) 

c 

s 

CALL 

XRE077(ei 

9*9 

• « • 

OUNP 

REO 

XB 

4 • « 

>-• 

550 


CONTINUC 


lOCNriPY  SPACINO 


600  CALL  CSHCST  MCBUPt.  * . . . SPA  * I 
00  650  NAXlS«t .0 

CALL  caocsr  ( icaupt . * . ■ > 

SPA>PLOAriNSAOHU(NAXlS.USPIOO>  wtoo. 

IP  isPA.co. AiNTtsPAM  Call  .cs>»iN  (icauPi.  ipix(Spa).m 

IP  (SPA.NC.  AINUSPAI  t CALL  CBHRL  MCBUPI.  SPA.t.ai 

650  continue 


IOENTIPY 

ORIGIN 

CALL 

C8NC8T 

1 ICBUPI . 

‘ . . .ORIO.SCAN. * 1 

CALL 

CBN  IN 

MCBUPI  . 

NSAOHHIHL IN.UORIOI 

CALL 

CBNCSr 

MCBUPI  . 

• . • I 

CALL 

CBN  IN 

MCBUPI  . 

NSAOHHfUSAN.MORIOI 

CALL 

CBNCsr 

MCBUPI  . 

• 1 • ) 

c 

c 


lOCPIC 

001 


L*I60 


O 


DAN  FACKAOC  AANCNOIX  L 
NAIN  NNOORANt/flOuriNeS 


C OUTNUr  CNANNCL/RAOlANCe/SPACtNO/ORiOIN  INFO 

e 

ir  (IUNir.CQ.6t  CALL  CRRRNr  ( I .»t. ICRUfl I 
IP  (IUNir.NC.6l  CALL  CRPRCA  (NANPIL . I .66. ICBUPI I 

e 

C 

C NORHAL  RCrURN 
C 

900  RCruRN 
CNO 


L-I6I 


oooooooooooooooooooooooooooooooooo 


u 


OMPIC 

001 


tuoAouriNC  OARoic  0 OACN  altcanatc  orint  ruco  roil  riCTAi 

C HtOrORY 

C CM  OCHLOSSCR 

e j c cm  or 

nctnoo 


LCC  00/00/70  ORtOlNAL  CODC 

Lcc  it/io/70  mcoer  ron  kpaohi  a nalthi 


OAN  OACKAOC  AOrCNQIX  L 
MAIN  rROORANO/AOUTlNCS 


A MAXIMUM  or  halthi  irROM  Picocri  ALTciiNAre  PRINT  rues  arc 

OPCNCO  ANO  iNiTlALIZeO. 


MACMiNC-oepCNoeNr  cooe 

NONC. 

CXTCRNAL  RCrCRCNCCS 

OPCNPR  OPCN  ALTCRNATC  PRINT  PILES 


EXCEPTIONS 


1.  ONE  PRINT  file  is  ALMAVS  OPENED.  UNLESS  IN  OATA/ChECKOUT  MODE. 

0.  IF  NALTM  is  OREATER  than  nalthi  (FROM  PICOEFI.  IT  MILL  BE  SET 
TO  nalthi . 


S.  IF  KPAOE  IS  OREATER  THAN  KPAOHl  (FROM  PtCOCFi.  IT  WILL  BE  SET 
TO  KPAOHl . 


OLOOAL  declarations 


INCLUDE  KONXQT.lIST 

include  picoef.list 


c 

c 

c local  declarations 

C 

c 

C NOME 
C 

c 

C PROCEDURE 


• COMMON  PROORAM  EXECUTION  SU I TC HE S . C OUN TE RS 

• PARAMETERS  FOR  PICTaB 


L-IOO 


oooo  o o o o o o o o 


OAN  PACKAOC  AP^CNOIX  L 
MAIN  MOOMANt/ROUriNCS 


ORRRIC 

OOt 


c 

c 

CALL  TRACC 

e 

e 

C NO  NONC  than  HALTNI  ALTCANATC  MINT  riLCt  T'jR  RICTAB 

c 

NALrH*NAXOINALrN. 1 1 
NALrNaNINOINALTN.NALTHI I 


NO  NONC  than  KPAOHI  COLUMNS  PEN  PAOC  PON  PICTaO 

KPAOC«NAXO I KPAOC . t I 
KPAOe*NINO(KPAOe.KPAOHl I 


OPCN  FILCtSI 

IPtHOATAC.NC.OI  00  TO  900  • OATA/CNCCKOUT  NOOC 

CALL  OPCNPN 


lOCNTIPV  CRTS  SCCNC 
uNireno.ecsi 

et9  PORNATUXi  a SKIP  LINE 

CALL  lOLUSUO* 

CALL  lOCRTSCtOI 
C 
C 

900  RETURN 
ENO 


uooooooooouooooooooooooooouoouoooooooooooooooooooooooooo 


OAN  MCKAOC  AMCNOU  L 
MAIN  PMOOMAnS/ROUriNCS 


COMTROL 

OOt 


MItrOMY 


c 

N 

SCNLOSSCR 

LCC 

OSTRY/73 

c 

N 

SCNLOSSCR 

LCC 

OS/ 30/78 

e 

N 

SCHLOSSCR 

LCC 

1 1/ IA/7S 

ORIGINAL  COOC  IN  COCr  » CTROL 
cocr  A CTROL  CONIINCO  IN  CONTROL 
URORAOe  OOCUNCNTATION 


NCTHOO 


THIS  RROORAH  ADJUSTS  ANO/OR  OUORANS  A NCTHORK  Or  CONTROL  POINTS  POR  A 
LANOSAT  HSS  SCCNC . THC  RCOISTRaTION  PARANCTCRS  PRON  ThC  AOJUSTnCNT  ARC 
STORCO  ON  UNIT  8 C TCHPORARV  PILCI  POR  USC  IN  THC  SANC  RUN  BY  OTHCR 
PROORANS  OP  THC  OAH  PACKAOC. 

TNIS  PROORAH  IS  LINITCO  TO  THAT  PART  OP  THC  WORLD  COVCRCO  BY  ThC 
CLARKC  IBBB  SPHCROlO  (NORTH  AHCRICAI. 

UP  TO  380  POINTS  HAY  BC  USCO.  POINTS  WITH  USCR-ASSI ONCO  NUHBCR8 
BCTWCCN  *1  AND  *BSS  ARC  CONTROL  POINTS  AND  HILL  BC  USCO  IN  THC 
AOJUSTNCNT.  POINTS  WITH  NUNBCRS  BCTwCCN  -I  ANO  'SBB  ARC  CHCCK  POINTS 
AND  HILL  NOT  BC  USCO  IN  ThC  AOJUSTNCNT.  RCSIOUAL  CRRORS 
POR  CONTROL  POINTS  ANO  CHCCK  POINTS  ARC  CONPUTCO  SCPARATCLT. 

AT  LCAST  S control  POINTS  MUST  BC  USCO.  IP  ONC  NCThORK  IS  TO 
BC  USCO  POR  ALL  •»  STRIPS  OP  A SCCNC  IT  SHOULD  CONTAIN  AT  LCAST  6 
CONTROL  POINTS,  WITH  AT  LCAST  t CONTROL  POINT  IN  CACH  OP  THC  •• 

CCT  STRIPS. 

CRTS  CONVCNTtONS  POR  ATTITUOC  ANO  HCAOING  ARC  AS  POLLOHS: 

POSITIVC  PITCH  IS  NOSC  DOWN 

POSITIVC  ROLL  IS  CLOCKHISC  VICWCO  PRON  BCHINO 
POSITIVC  YAH  IS  COUNTCRCLOCKWISC  VICHCD  PRON  ABOVC 
POSITIVC  HCAOINO  IS  CLOCKHISC  VICUCO  PRON  ABOVC 

IP  NCRTSO*  IS  NCOATIVC  BUT  OThCRUISC  VALID.  NON>LlNCAR  CORRCCTIONS  ARC  NOT 
NAOC  BCPORC  PCRPORNINO  ThC  AOJUSTNCNT.  THC  RCSULTS  OP  SUCH  AN  AOJUSTNCNT 
NAY  not  BC  USCO  with  OAN.CLASSIPY. 


NACHINC-OCPCNOCNT  COOC 


NONC. 


CXTCRNAL  RCPCRCNCCS 


NVIATO 

VIATO 


a NANC  ‘VIA*  ‘TO*  ROUTINCS 
a CALL  ‘VIA*  ‘TO*  ROUTINCS 
VIA  TO 


L>t8<* 


OAH  PACKAOC  A WHO  I « L 
MAIN  AAOOAANt/nOUriNCf 


eONTROi 

OOf 


CXrCRNAL  CONOOO.  CONXQT 
CXCCATIONt 


I.  ir  TNC  tccNC.  oeoncrNv.  on  Amruoc  connanos  arc  nissino  or  navc 

ANY  INVALID  tRCCiriCAriONt.  TNCN  CONTROL  NILL  RCfUSC  TO  ADJUST  THC 
NCTMORK. 

0.  ir  rCHCR  than  s valid  roints  arc  rroviocd.  tmcn  control  hill  RCrutC 

TO  ADJUST  THC  NCTUORK. 

s.  ir  tnc  rns  iroot  ncan  souarci  crror  or  thc  aojustco  nctuork  is 
ORCATCR  than  <»oo  nctcrs.  thcn  on  cxit.  control  mill  ocncratc  a 

*rATAL  CRROR*  ANO  ABORT. 

V.  ir  CONXQT  OOCS  NOT  CALL  NVIATO  TO  CHANOC  T'tC  ‘VIA*  ANO/OR  ‘T0‘ 
ROUTINCS.  thcn  control  hill  call  to  CONXQT  IN  AN  CNOLlSS  LOORl 


c 

c 

c 

c 

c 


OLOBAL  OCCLARATIONS 


INCLUOC 

INCLUOC 

INCLUOC 

INCLUOC 

INCLUOC 

INCLUOC 


KOHXQT.LISr 
KOHL  00. LIST 
KONLUj.L 1ST 
KONNCR.LIST 
KOnriT.LIST 
KONNCT.L 1ST 


• COHHON 

a COHHON 
a COHHON 
a COHHON 
a COHHON 
a COHHON 


RROORAH  CXCCUTION  SUITChCS.  COUNTCRS 

LOO  riLC  BurrcR.  i/o  rkt.  rointcrs 
ROINTCRS/rLAOS/BurrCR  rOR  unit  5 
CRTS  SCCNC  RaRAHCTCRS 
AOJUSTHCNT/RCOISTRATION  rarahctcrs 
CONTROL  NCTHORK  POINT  COOROINATCS 


RROCCDURC 


CALL  NVIATOI  CONOOO. CONXQTI  a riRST  CALL  IS  VIA  CONOOO  TO  CONXOT 

too  CONTINUC 

CALL  VIATO 
00  TO  too 

Cno  a <$TOP  IS  RCRroRHCO  or  arprorrutc  *to*  routinci 


u 


0AM  OACRAOC  AMPCNOIX  L CONTROL -Mi A 

RAIN  RROORANt/ROUriNCt  001 


CONTROL  NICRARCNT 


CONXQT 


KHO. . 


MTANT 


OrtAOO 


CONTROL 

I 

t 

t 

NVlATO 

viAro 

t 

I 

t 

CONOOO 

t 

t 


orr-conriiOL 


I 

I 

t 

CONAOJ 

t 

t 

t 

t 

t 

I 

t 

t 

t 

t 

( 

t 

t 

t 

t 


t 

I 

I 

CONOt A 

t 

I 

t 

01  AC  All 


•cnoxxx 


CONCXt 


MTOA 

AAOOAT 


I ) 


t 

t 

t 

OCOAST 


TAfOAH 


OlfTSQ 


ACVCAr 


fTACOi 


t*166 


DAN  MCKAOC  AMCNOtX  L 
MAIN  AROORANt/AOUTINCt 


CONfROi^ylRTUAt 

t«l 


RROORAH  eONTROk/ VIRTUAL 


NltrURV 


C N tCNLOtMR  LCC  0R/M/7A  ORIOlNAL  COM 

r N fCNLOSSCA  LCC  ll/OR/7t  ANAR.rXINti  NO  *N*  IN  OCNANOI 


NCTNOO 


CONOTRUCr  OH**  cxce  CONNANO  to  link  RCAL  AOfOLUrC  IN  TRrt. 
coNtTRuer  RKor  conhano  to  exccurc  rcal  aosolutc  in  rRrt. 

NRirC  ANAR  A AXQT  CONHANOA  TO  TCNRORARV  riLC  RQ. 

AAOO  TCNRORARY  rUC  RO.  TO  RUNtTRCAH. 


NACNINC-MRCNOCNT  COOC 


MRirrCN  IN  AASCNRLCR  TOR  TmC  UNI  VAC  1100  OCRICt  CONRUTCRt  UNOCR  THC 

cxcc'i  orcratino  tvtrcN  usino  O'tir  ricloata  charactcro. 
INRLCNCNTInO  COOC  NUCT  OC  RCMRirrCN  rOR  OirrCRCNT  charactcr  coocs. 
oirrcRCNT  orcratino  svstcno.  ano  oirrcRCNT  nacnincs. 


CxrCRNAL  RCrCRCNCCS 


rUNCriON  TO  ouonit  cxcc*o  control  OTATCNCNT 
INITIATC  I/O  ANO  HAIT  ROR  CONRLCTION 
TCRNINATC  RROORAH  CXCCUTION 
A lYHOOLIC  NAR  OIRCCTIvCt  TO  LINK  I'OIT  RCAL  AOSOLUTC 
A STANOARO  HAR  ORTIONS  MMCN  LINK  COITINO 


CR  Ctrl  A 
CR  I ONS  A 
CR  CXITf  A 
OAN. CONTROL 'NAR 
OAN.SYS'NARORT 


CXCCRTIONS 


I.  RCSULTS  arc  UNOCriNCO  UNLCSS  THC  RUC  OAH.  IS  AASO-0  A ARRCR-0. 


OLORAL  OCCLARATIONS 


IRROORAH  TyRC  is  RRC'LOAOCO  OY  CXCC  into  RCOISTCR  an  as  ROLLOUSi 

< t • RCAL  TIHC 

1 s • LON  cxce 

I « • OCNANO 
( 9 • KAOLINC  OATCM 

< 0 • OATCN 

(AXQT  ORTIONS  ARC  RRCLOAOCO  OY  CXCC  INTO  RCOISTCR  AS  IN 


L-IS7 


o 


OAN  MCKAOC  A^MNOtX  I CONtNOL/VlIlfUM. 

IMIN  PROORAMt/MOUnNCt  OW 


(NAtrcA  Sir  NorAnoN. 


! LOCAL  OCCLAOAnONt 


AXRt 

tIOOl  . 

O-OANK 

ttON 

roRH 

0.0.0.10 

• 

1 1 1 1 1 ICCfftftllllXlNHNi* 

LAOtOr 

tttN 

oto.i.*r*.o 

LAOCL.  1 HO.  rORTRAN.  riCLOATA 

LAOINO 

« 

•torr** 

NAAfOr 

ttSN 

000. t. 0.0 

data,  t MOt.  . riCLOATA 

NAAIHO 

• 

•KQTtt  NAR.rCN  OAR. CONTROL •NAA. CONTROL  . lAXQTt’ 

Aoooor 

tttN 

000. «. 0.0 

AOOINO 

• 

axQTti  AOO  OAN.trt 

•NAAOAT  . iIXOTt’ 

xortof 

tttN 

000. t. 0.0 

xoriNO 

• 

axQTSi  XQT.I 

CONTROL  . lOXOTt* 

cor tor 

- 

0 

rNO*or>rtic  otoa  uoro 

or 

roRH 

tt.O.iO 

ctrAto 

‘OAtO.T  CO.  . ’ 

ctrAOO 

’OAOO  CO.  . ‘ 

tAVRCO 

RCt 

1 

lOAKT 

• 

iteo 

*co*.ut  ii.LAOtor 

.*0*  0 

! rooecouRC 

tion  . 

1 •RANK 

CONTROL* 

LA.U 

AO.* 

AO  • 

tnc.u 

AN.I* 

tKIA  NCXT  iNtT  ir  A«<><*  iNOr  OCNANOI 

tA.tC 

AO.NAA|NO*C 

OCNANOi  CLANK  OUT  N OAT  ION 

LA 

AO.fCtrAtoi 

AOORCtt  or  0A60  INAOC 

CR 

ctrt 

00  IT 

• 

tA 

AO. tAVRCO 

tTORC  1 

* 

RtRtNT  irr  t. 1 .tAVRCOI  . 

ARINT  AAtO  OTATUt 

« 

OCTORT 

LOAO  OAT  LTRt  INTO  AC.Al.A** 

• 

ROIOAT 

ot 

AC.XQT|no*C 

ITORC  OATIon  cCrrCRO  into  ixqt  ihaoc 

tA 

AN.XQTIRO*!* 

HOROS  -•  RAX  to  OAT  lCTtcRS) 

MRtrc 

LA 

AO.dOAKTl 

AOORCtt  or  I/O  aackCT 

CR 

lout 

MRITC  tor  iNAOCt  TO  CO. 

ADO 

LA 

AO.cctrAOOl 

AOORCtt  or  AAOO  INAOC 

CR 

ctrt 

00  IT 

CR 

CXITt 

• 

CNO 

CONTROL 

» 


L-lOO 


OAH  PACKAOe  APPCNOIX  L 
HAIN  PPOeRANS/ROUTINCS 


CONTROL -RAP 
OOt 


CONTROL  OVCRLAY  STRUCTURE 


NISTORY 


C H SCHLOSSER 

LEC 

0S/I9/7S 

ORIGINAL  CODE 

e H SCHLOSSER 

LEC 

07/1R/7B 

CHANGE  OVERLAYS  TO  REDUCE  THRASHING 

, 

E H SCHLOSSER 

LEC 

01/31 /79 

MACRO  COMMANDS  % TIME  COMMAND 

• 

J C CRISP 

LEC 

1 1 Z29/79 

PEEK/POKE/ OEOMETRY/CENTER/ SI ZE / IF/F I 

LIB 

DAM. 

SEO 

S-MAIN 

IN 

DAN. CONTROL/  . MAIN  PROGRAM 

IN 

OAH.NVIATO  ■ NAME/CALL  ‘VI 

1A‘  ANO  ‘TO* 

SUBROUTINES 

IN 

OAN.NULSUB  . DO 

NOTHING 

IN 

OAN.SYS-BLOCK 

BLOCK  DATA 

subroutine 

NONITOR  rOR  PHASE  0.1. 2. 9 COHMANOS  

IN  OAM.CONOOO  . CALL  USER -SPEC t P I EO  PHASE  0 ROUTtNC 

IN  OAM.NTABS/OAH  . OAH  UNIT  • TABLE  OOES  IN  SAME  SCO  U/  FORTRAN  1/0 


phase  0.1.2. 9 COHMANOS  (FORTRAN  1/0  ALLOMEO) 


SEO  S-XQTEXI* 

IN  OAH.CONXQT 
IN  OAH.CONEXI 

SEO  S-KMO «.S- 

IN  OAH.KMOATT 
IN  DAM.KMOCEN 
IN  OAM.KMOCLE 
IN  OAH.KHOEXP 
IN  OAH.KHOFI 
IN  OAM.KHOOEO 
IN  OAH.KMOIF 
IN  OAM.KMONEH 
IN  OAM.KHONEX 

IN  oam.khooff 
IN  OAM.KNOON 
IN  OAN.KHOPEE 
IN  OAH.KHOPOl 
IN  OAH.KHOPOK 
IN  OAH.KHOSCE 
IN  OAM.KNOSIZ 
IN  OAN.KHOTIH 
IN  OAN.KHOXXX 
IN  OAH.KHOZON 
IN  OAH.KHOOAO 


. CONTROL  INITIALIZATION  ROUTINE 
. CONTROL  TERMINATION  ROUTINE 

XQTEXI 

. OET/CHECK  ATTITUDE  (PITCH  I ROLL! 

. OET/CHECK  CENTER  SCAN  COORDINATES 
. CLEAR  UARNINOS/ERRORS 
. EXPLAIN  PROGRAM/COMnANO 
. END  IF. . .FI  BLOCK 
. OET/CHECK  GEOMETRY 
. BEGIN  IF. . .FI  BLOCK 
. PRINT  NEHS 

. conditionally  perform  next  COMMAND 
. TURN  OFF  mode  SWITCH(ES) 

. TURN  ON  MODE  SMITCH(ES) 

. PEEK  AT  labelled  COMMON 
. OET  CONTROl./CHECK/QUERY  POINT 
. POKE  AT  labelled  COMMON 

. OET/CHECK  SCENE  NUMBER  1 NUMBER  OF  SAMPLES  PER  SCENE 
. OET/CHECK  SIZE  IN  aCAN  COORDINATES 
. PRINT  CLOCK  time  t CHARGE  TIME 
. MACRO  COMMANDS 
. OET/CHECK  UTm  projection  ZONE 
. DYNAMIC  iAOO 


L-I69 


OAH  PACKAOe  AWNOIX  L 
HAIN  PMOORAHS/ROUriNCS 


CONmOL  -HAP 
OOR 


tco  s<coNAOJ*.s*xQrexi 

IN  OAN.CONAO^i  . AOUUSr  NCruORK 

SCO  8-CONOIA* .S'XQTCXI 

IN  OAH.CONOIA  . OlAORAN  NCTMORK/CRRORS 


1-170 


OAH  ^ACKAOe  APPCNOIX  L 
MAIN  PROORAHS/ROUriNCS 


CONTROL -HAP/ V t RTUAL 
001 


IN  OAN. CONTROL/ VI RTUAL 


oooooooooooooooooo  oooooooooooooooooooooooooooo 


u 


CONOCO 

001 


SUSNOUnNC  CONOOOt  a call  PNASe  0 SUBNOUriNCS  roo  contnol 
I NANSuei  a NAHC  or  sueoouTiNC  ro  call  ion  nulsuoi 


OAN  NACKAOe  ANNCNOIX  L 
NAIN  PNOONAHS/ROUriNCS 


* 


NiSrONV 


E H SCHLOSSER 

LEC 

07/07/7S 

ORIGINAL  COOE 

E H SCHLOSSER 

LEC 

OI/BH/79 

NACRO  CONHANOS  i TINE  COHNANO 

% 

U C CRISP 

LEC 

I8/IS/7S 

PEEK/POKE/ OEONETRV /CENTER/ SIZE/ I P/PI 

a 


NCTHOO 


NCTRieve  NEXT  COMNANO.  VAOIOArC  IT.  AND  CALL  ITS  SUBROunNE. 


NACHINE-OEPENOENT  CODE 


NONE . 

' ) 

EXTERNAL  REPERENCES  " 


READS 
OETSAL 
INTEGER 
WARNS 
CON.  . . 
KNO.  . . 


a READ  PUNCHED  CARO  OR  TERNINAL  INPUT 
a GET  alphabetic  COHNANO 
ICE  a inteoer>char-equi V roR  character 

a print/loo  warning  hessaoe 

a dedicated  subroutine  tor  conhano  ...  isee  below) 
a cohhon  subroutine  por  cohnano  ...  isee  below) 


EXCEPTIONS 


< 

I.  A BLANK  COHNANO  IS  IGNORED. 

e.  AN  INVALID  COHNANO  OCNERATES  A DIAGNOSTIC. 

3.  AN  ENO-OP-PILE  ON  UNIT  5 IS  TREATED  ThE  SAHE  AS  THE  EXIT  COHMANO. 


GLOBAL  declarations 


c 

c 

c 

c 

c 


INCLUDE  NULCST.LIST 


LOCAL  DECLARATIONS 


INTEGER  KOHO 


a OEPINE  NULL  CHARACTER  STRING 


a PIRST  3 CHARS  OP  USER  CONHANO  IBLANK  APTER  0C/<E 


L-I7B 


OAN  PACKAOC  APPCNOIX  L 
NAIM  PIIOOAAHS/ ROUTINES 


CONOCO 

ooe 


INTCOCR  LSSTAT  0 READS  STATUS  (‘ECF'  HEARS  ENO>Or*rilEi 

INTEOER  KASe  0 NOOIFIEO  1>C-E  OF  FIRST  CHAR  OF  CONNANO 

C 

c 

C PROCEDURE 

C 

C 

C 

C CALL  PREVIOUSLY  NAMED  SUBROUTINE 
C 

CALL  TRACE 

CALL  NAHSUe  A CALL  TO  NULSUB  DOES  NOTHING 

C 
C 

C READ  COMMAND  FROM  UNIT  S (CARO  READER  OR  TERMINAL) 

C 

KOMO-*  NUL‘  A IMPOSSIBLE  INPUT  (NOT  LEFT  JUSTIFIED) 

CALL  READS(LSSTAT.NULCST)  A FILL  UNIT  S BUFFER.  ND  CUE  MESSAGE 

IFILSSTaT.NE. • •)  KOMO«*EXI* 

'IFIKOMO.NE. *EXI ' ) CALL  OETSAL ( KOMO . ( 3> . NULCST)  A OET  3 ALPHA  CHARS 
C 
C 

C CONVERT  FIRST  CHARACTER  OF  COMMAND  TO  I NTEOER-CHARAC TER -EQU I V AL ENT 
C 

XA$E*ICE(KOMO> -ICEl 'A* ) A A TO  3 • I TO  SO 
C 

c 

C CASE  statement  on  modified  ice  of  COMMAND’S  first  character 

c 

IF( (KASE.LT. n .OR. (KASE.OT .SO) ) KASE-S7  A NOT  ALPHA 

00  T0( 

0 HOI .H0S.H03.H0H.H05.H06.H07.H08.H09.H1 0. 

1 HU .HtS.H13.HtH.HlS.Ht6.Ht7.Ht8.Ht9.HS0. 

S HSI.HSS.HS3.HSH.HSS.HSS.HS7) 

A .KASE 

c 

c 

C DETERMINE  COMMAND.  PERFORM  COMMAND.  CHANCE  KCMO  TO  8L ANK 

c 

HOI  continue  A*<«  a 


1F(K0M0.EQ. 

• AOJ’  ) 

CALL 

CONAOJIKOMOI 

A 

ADJUST 

IFIKOMO.EQ. 

•ATT’  1 

CALL 

KMOATTIKOMOI 

A 

ATTITUDE 

OC  to  800 

w 

HOS 

continue  a* 

• « B 

c 

00  TO  800 

H03 

continue  a* 

• • C 

IFIKOMO.EQ. 

’CEN*  ) 

CALL 

KMOCENIKOMO) 

A 

CENTER 

IFIKOMO.EQ. 

’CLE’  ) 

CALL 

KMOCLEIKOMO) 

A 

CLEAR 

00  TO  800 

HOH 

continue  A«*«  0 

IFIKOMO.EQ. 
00  TO  BOO 

•01  A’  1 

CALL 

CONDI AIKOMOl 

A 

01  AORAM 

OAN  PACKAOe  APPCNOIX  L 
MAIN  PMOOKAnS/ROUriNCS 


CONOOO 

OOS 


Hos  coNriNue  •••«  e 

IPtKOHO.eO. ‘CXI ‘ 
IPIKOHO.CQ. *eXP' 

00  TO  eoo 


I CALL  CONCXKKOnO* 
I CALL  KNOeXPIKONOI 


• exir 

a CXPLAIN 


•»oe  conmnuc  a««*  p 
trcKono.CQ.  *n  ‘ 

00  TO  800 


i CALL  KHOFI  fKONOI 


a PI  (CNOiPi 


•*07 

CONTI NUC 

a*«« 

0 

ipiKONO.CQ. ’oeo 

00  TO  000 

•*08 

CONTINUE 

a««« 

H 

00  TO  800 

•*09 

continue 

a««« 

1 

IPIKONO.EQ. ’ 1 

r 

00  TO  800 

•*10 

CONTINUE 

• ••« 

j 

•»!  1 

CONTINUE 

a««. 

K 

•*18 

CONTINUE 

a««* 

L 

•*13 

continue 

N 

00  TO  800 

•*!•* 

continue 

N 

CALL  KNOOeOCKOHOt 


a GtCNFTRV 


I CALL  KHOIP  iKOnOi 


a IP 


IPCKOHO.EQ. 'NEU* I 

CALL 

KNONEHIKONOI 

a 

NEUS 

IPIKONO.EQ. ’NEX* 1 
00  TO  800 

CALL 

KNONEXIKONOI 

a 

NEXT 

<*ts 

continue  a«««  0 

IPIKONO.EQ. 'OPP’ 1 

CALL 

KNOOPPIKONOI 

a 

OPP 

IPIKONO.EQ. 'ON  '1 
00  TO  000 

CALL 

KNOON  IKONQ) 

a 

ON 

•*16 

continue  P 

IPIKONO.EQ. 'PEE* I 

CALL 

KNOPEE IKONOI 

a 

PEEK 

IPIKONO.EQ.  'POI ' ) 

CALL 

KNOPOI IKONOI 

a 

POINT 

IPIKONO.EQ. *P0  ' 1 

CALL 

KNOPOl IKONOI 

a 

POINT 

IPIKONO.EQ. 'P  • 1 

CALL 

KNOPOI IKONOI 

a 

POINT 

IPIKONO.EQ. 'POK' 1 
00  TO  800 

Call 

KNOPOK IKONOI 

a 

POKE 

•*17 

continue  Q 

•*18 

continue  i««*  r 

00  TO  800 

•*19 

CONTINUE  a*«*  s 
IPIKONO.EQ. 'SCE' > 

CALL 

KNOSCEIKONOI 

a 

SCENE 

IPIKONO.EQ. ‘SI?* 1 
00  TO  800 

CALL 

KNOSIZIKONOI 

a 

SIZE 

•*80 

continue  a**«  T 

IPIKONO.EQ. * TIN' 1 

CALL 

knotinikonoi 

a 

TINE 

00  TO  800 


L-I7I» 


uouo  ouoo  uouo 


OAN  PACKAOe  APPCNOIX  1. 
HAIN  PR00RAH8/R0UTINCS 


CONOOO 

00« 


C 

■Itl  CONTINUC  ••••  U 
H«R  CONTINUC  V 

•»R3  CONTINUC  ••••  U 
•»»•»  CONTINUC  «««•  X 
<*99  CONTINUC  Y 

00  TO  800 
C 

•»ee  CONTINUC  z 

IPtKONO.CQ. ‘ZON’l 
00  TO  800 
C 

<*97  CONTINUC  NOT 

IPCKOHO.CQ. *$A0*> 
triKOHO.NC.'  *) 


CALL  KHOZON(KOnO) 


ALPHA8CTIC 
CALL  KHOOAOIKOHOt 
CALL  KNOPOICKOMOl 


• ZONC 
a $AOO 

a POINT 


ir  COHNANO  NAS  NOT  POUND.  TRY  MACRO-CONNANO 


800  IPIKOHO.NC.* 
IPCKOHO.NC. * 


')  K0H0>‘C0N-’  a 1ST  3 CHARS  OP  PROO  NANC  PLUS 

*1  CALL  KNOXXXCKONOI  a MACRO  COHNANO  HANOLCR 


CONHANO  IS  INVALID  IP  STILL  NOT  POUND 

IPIKOHO.NC.*  *1  CALL  HARNSI * t NVAL I 0 COMMAND 


RCTURN  TO  MAIN  POR  CALL  VU/IO  NAHCO  SUBROUTINC  IN  ANY  OVCRLAY 

RCTURN 

CNO 


L-175 


ouoououooououuoooououuuoouoououuouooo 


CONAOJ 

001 


OAH  PACKAOe  APPCNOIX  L 
NAIN  ^ftOORAHS/ROUriNCS 


SUSROUriNC  CONAOJ*  0 ADJUST  CONTROL  NCTNORK 
U KOHOI  • li  FIRST  S CHARS  OF  CONNANO  Os  SPACES 


C 

C 

C 

C HISTORY 


C 

C 


C 

E 

H 

schlosser 

LEC 

0S/B9 

C 

E 

H 

schlosser 

LEC 

18/01 

C 

E 

H 

SCHLOSSER 

LEC 

07/19 

c 

E 

H 

schlosser 

LEC 

18/10 

c 

E 

H 

schlosser 

LEMSCO 

OS/87 

C 

C 

hcthoo 


73  ORIGINAL  CODE 

7S  ALPHANUHERIC  CONNANO 

78  OCLCTE  RETURN  K 

79  SUPPORT  RESANPLEO  OaTA 

80  CHECK  ATTITUDE.  SIZE.  CENTER 


estimate  scene  transverse  HERCATOR  CSTN)  central  herioian  and 

SATELLITE  ALTITUOE. 

TRANSFORM  NON'LINEAR.  SKEW  SCANNER  COOROI NATES  OF  CONTROL  POINTS  TO 
LINEAR.  SKEW  CORRECTED  COORDINATES.  TRANSFORN  EARTH  COORDINATES  OF 
control  POINTS  TO  SCENE  TRANSVERSE  NERCATQR  (STn>  COORDINATES. 

PERFORN  INITIAL  LEAST  SQUARES  ADJUSTMENT  OETuEEN  CONTROL  POINT 

coordinates  in  these  tmo  coordinate  systems. 

refine  scene  transverse  MERCATOR  CENTRAL  MERIDIAN  AND  SATELLITE  ALTITUDE. 
PERFORM  FINAL  LEAST  SQUARES  ADJUSTMENT. 

ERTS  CONVENTIONS  FOR  ATTITUDE  ANO  HEADING  ARE  AS  FOLLOHS; 

POSITIVE  PITCH  IS  NOSE  OOMN 

POSITIVE  ROLL  IS  CLOCKWISE  VIEWED  FROM  BEHIND 

positive  YAH  IS  COUNTERCLOCKWISE  VIEWED  FROM  ABOVE 

POSITIVE  HEAOINO  IS  CLOCKWISE  FROM  DUE  NORTH  VIEWED  FROM  ABOVE 


machine-dependent  code 


NONE. 


EXTERNAL  REFERENCES 


C 

C 

c 


ocoNST  a 
MOWARN  a 
HOUNIT  a 

u*»o  a 
o>*u  a 
DLSTSO  a 
REVERT  a 
STRE08  I 


DOUBLE  PRECI 


GET  GEOMETRIC  CONSTANTS  FOR  REOISTRATION 
PRI NT/COUNT/LOO  'WARNING*  DIAGNOSTIC  MESSAGE 

print  page  heading 

UTM  (OR  STMI  COORDINATES  FOR  GEOGRAPHIC  COORDINATES 
OEOORAPHIC  coordinates  FOR  UTM  (OR  STM)  COORDINATES 
DOUBLE  PRECISION  LEAST  SQUARES  ADJUSTMENT 
compute  COEFFICIENTS  OF  INVERSE  TRANSFORMATION 
STORE  registration  PARAMETERS  ON  UNIT  8 

SION  C8SVCS  a vARi able-lenoth  char  string  for  fixed-length 


EXCEPTIONS 


uooouo  o o o o o ououu  uouu 


OAN  PACKAOC  APPEND IX  L CONAOJ 

NAtN  PNOONANS/NOUTINCS  OOt 


I.  INVALID  VALUCI  PON  ANY  OP  TNC  POLLDUINO  OCNCNATC  *HANNIN0*  OlAONOSTICti 
tCCNC  NUNDCN 
OANPLCS  PEN  SCENE 
PITCH 
NOLL 

NUNDEN  or  CONTNOL  POINTS 
OEOHETRY 

e.  AN  EXTRA  SPEClPtCATtON  OENERATES  A ‘UARNINO’  OIAONOSTIC. 


GLOBAL  declarations 


INCLUDE  KONXQT.LIST 
include  KOHNER.LIST 
INCLUDE  KONPIT.LIST 
INCLUDE  KONNET.LIST 

include  HINOEP.LIST 
INCLUDE  TRPORN.LIST 
INCLUDE  NULCST.LIST 


a CONHON  PROORAH  EXECUTION  SWITCHES.  COUNTERS 
a CONHON  ENTS  SCENE  PARAHETERS 
a CONHON  AOUUSTNENT/REOI STRATION  PARAHETERS 
a CONHON  CONTROL  NETWORK  COORDINATE  TABLE 
a OEPINE  STRUCTURE  OP  WINDOW  PACKETS 
a OEPINE  COORDINATE  TRANSPORNAT t ON  PUNCTIONS 
a OEPINE  NULL  CHARACTER  STRING 


LOCAL  declarations 


INTEGER  NOSAVE  a TEHPORARY  SAVE  POR  CONTENTS  OP  NOTOTL  ON  ENTRY 


PROCEDURE 


CALL  trace 


CHECK  POR  valid  scene  AND  OEOHETRY 

N0SAVE*N0T0TL 
IPf (NENTSI  I ) .LT. n .OR. 

a (NENTSI n .OT. SI  I CALL  MDUARNI  ‘SCENE  NOT  OEFtNEO'l 
tP( (NEROCO.NE. ’CRT' I .AND. 
a (NEROCO.NE. ‘HOH- ) .AND. 
a (NEROCO.NE. ‘LCC‘ I .AND. 
a (NEROCO.NE. ‘PS  ‘i.ANO. 
a (NEROCO.NE. ‘SON’ ) .AND. 
a INEROEO.NE. ‘UTH‘ I I NER0E0>’BA0‘ 

IP( (NEROEO.EO. 'BAD' I . ANO. 

a (nersah.lt. 33001 1 neroeo«‘Ert‘  a tchp  patch  por  old  bip  porhat  scenes 

IPINEROEO.ro. ‘BAD’ I CALL  HOWARNI  ‘OEOHETRY  NOT  UEPINCO‘1 
C 
C 

C CHECK  *ERT*  ATTITUDE  ANO  SIZE 
C 

IPfNEROEO.NE. ‘CRT'i  00  TO  ISO 
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irilAttCRITOCOt .or.t. I .OR. URttROLOCOt .OT.tn  CACL  NOUARNI 
'ATTITUDC  NOT  ORCCiriCO  MITN  CRT  OeOnCTRYM 
IfMNCRSAN.LT.tOOi.OR.tNCROAR.OT.  lOOOOII  CALL  NOMARNI 
*tize  (SARPLCOi  Nor  oeriNCOM 
00  TO  too 


c 

c 

C CHCCK  NON**CRT*  ATTiruOC.  OtZC.  ANO  CCNTCR 

c 

ISO  in lAOSCRttOCOI .LT.O. I .AND. lAOttROLOCOI .LT.O. II  00  TO 
RITOCO-0. 

ROLOCO-0. 

too  inAOtiRtroeoi*AOt«ROLoeot.NC.o.i  call  noharni 

• *N0N«ZCR0  ATTITUDC  WITH’.'  * .COSHCSI NCROCO. I I > . ( Sn . 
iniNeRLIN.LT.tOOl.OR.INCRLIN.or.lOOOOn  CALL  nOHARNi 

• ’Size  ILINCSI  NOT  oeriNCO’l 

in  incrsah.lt. tooi .or. incrsah.ot. tooooi i 

• 'Size  ISAHRLCSI  NOT  ocriNeo'i 
in  ictrlin.lt. so. i .or. ictrlin.ot.sooo. i i 

• 'CCNTCR  ILINCI  NOT  OCriNCO'l 
in  ictrsah.lt. so. I .or. ICTRSAH.OT.SOOO. I I 

• 'CCNTCR  (SAHRLCI  NOT  OCrtNCD'l 


Call  hoharni 


CALL  HOHARNI 


Call  hoharni 


ISO 


OCOHCTRV 


CHCCK  NUHOCR  or  CONTROL  POINTS 

ISO  IPINCTLPT.LT. SI  CALL  HOHARNI  'NOT  CNOUOH  CONTROL  POINTS'! 

in inosavc.nc.nototli .ano. 

A inbatch. NC. 01  I CALL  HOPaTLI  'INCOHPLCTC  NCThORK'i 


OCTCRHlNC  HHICH  POINTS  TO  PRINT  RCSIOUAL  CRRORS  POR 


310 


N00T>'ALL ' 

CALL  OCTSKHINOOT. 
tPINOOT.CQ. 'CON' I 


tPINOOT.CQ. 'ChC I 
IPINOOT.CQ. 'ALL' I 
IPINOOT.CQ. 'NON* I 
CALL  HARNSI 
00  TO  900 
NPRPOS*! 

NPRNCO-0 

IPINCTLPT.OT.Ol  00 
CALL  NOHARNI 
00  TO  900 


131  . 
00 
00 
00 
00 


TO 

TO 

TO 

TO 


NULCSTI 

310 

3Z0 

330 

3<*0 


I JUST  CONTROL  POINTS 
• JUST  CHCCK  POINTS 
I ALL  POINTS 
I NONC 


'OAO  ADJUST  SPCCIPICATION 


) 


TO  100 
'NO  CONTROL 


POINTS'  1 


SCO  NPRNCO*! 

NPRPOS>0 

IPIINCThI'NCTLPTI.OT.OI  00  TO  <*00 

CALL  HOHARNI  'NO  CHCCK  POINTS'* 
00  TO  900 
330  NPRPOS*! 

NPRNCO* I 
00  TO  «00 
3N0  NPRPOS*0 
NPRNCO-0 
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OOS 
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e 

e 

e iNiriALizc 

e 

H0O  iriNOtAVC.NC.NOTOrLI  00  TO  900 
NMNOOM* I AOt I NHNOOM I 
NCKOATIII**  ' 

NKMOATCtl**  * 

ALrxnaO. 

ALTtAN«0. 

CALL  OCONOr 

MOL AAO-AOL OCO*  . 0 1 'TiiSSOOe  I 

NNNOOU«U8SINMNOOUI  ! 

CALL  NOUNI T(  0.61 
HRireiO.ttSt  NCNTO 
<»IS  rONNATC*  SCCNC  ’ . I I . JH.  • ••  . JS) 

c 

c 

C esriNATC  CONTNOL  NCTmOAK  CCNTROIO.  COVCRAOe.  ANO  STN  CCNTRAL  HeniOlAN 

c 

croLiN*o. 

Cr0SAN*0. 

CrOLATaO. 

CTOLONaO. 

00  610  K>l .NCrHI 

ircNcrpriKi .LC.oi  oo  to  eio  a chcck  point 

CrOLIN-CTOLIN*AOJNCT(ULIN.KI 

CTOfAN»CTOtAN*AOJNCT(HSAH.Ki 

ctolat>ctolat»oconctiulat.ki 

CTOLON>CTOLON*OeONCT(HLON.KI 
610  CONTINue 

CTOLIN-CTQL IN/riOATINCTLPTI 

cto9an»cto9an/ploat(nctlpti  a ionorco  non-linearity 

CTOLAT-CTOLAT/FLOATCNCTLRTI  a ionorco  parallel  curvature 

ctolon«ctolon/ploat(nctlpti  a ionorco  ncrioian  convcrocncc 

othcmo>ctolon 
CALL  PCTCOVIPCTCTLI 
C 

e 

C OAVE  nominal  altitude 
C 

OAHIKN«NEROAN/ ( ALTKN* I T AN C ROL R A0*SCNTNE I 

a -tanirolrao-ocnthei II 

altnon*altkh 
C 
C 

C COTINATC  CORRECTED  LINE  AND  OANPLC  NunOCRO  AND  OTN  COOROINaTCO 

c 

CALL  TAPCOR 

c 

c 

C COTINATC  PDRNARO  OTN  COCPPICICNTO 

c 

CALL  OLOTOQINCTNI .NCTPT, 
a CORNCTIULIN. I I .cornet (MOAN.  I I . 

0 OTNNCTIUNO. II .OTHNCTIUCA.I I .corothi 


CONAOJ 

OON 
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eONAOJ 

DOS 


eoNMurc  riNAL  ALritMOC  and  pmojcction  ccntmal  nrMioiAN 

irCNCMOCO.CQ. *CRT *1  CALL  tATALTl ALrKN.tANiKNI 
CALL  0<*AICrRLAr.CrALON.erMLIN.CrRtAMI 
tTHCHO>AINrfO.S*IOO.*CrMLONI/IOO. 

iffNCROco.CQ. *urN*i  stHCHO>(( irixicrNLON>«ti/ei*e>s  • closcst  urn  e.n. 


COHRUrC  riNAL  CORMCCrCO  LINC  AND  tANMLC  NUMtCMt  AND  tfN  COOMOlNAfCS 
CALL  TARCOR 


coHRure  riNAL  roRwARo  » invcrsc  sth  coerrtciCNrs 

CALL  OLtrtoiNcrHi .NcrRr. 

A CORNCTCMLIN.II.CORnCTIUSAN.M. 

A tTHNCrtUNO. 1 1 .ATHNCr (MCA. I t .CORSTNI 
CALL  RCvCRricoRsrn.srncoRi 


coNRure  sth/ocoorarhic  cooroinatcs  or  sccnc  ccntcr  ano  naoir 

CTRN>f THNOCtCTRL IN.CORAOAICTRL IN.CTRSAHI I 
CrRr«tTHC*»CCCTRL  IN.CORSHACCrRL  IN.CTRtAHI  I 
CALL  OHUICTRLAt .crRLON.CTRC .CTRN. STNChO* 
oiRLAT-0.  a ruruRC  conRurAnoN 

oiRLON*o.  a ruruRC  cohrutation 

c 
c 

c COMRUTC  Srn/OCOORARHIC  COOROINATCS  OR  CONTROL  NCTmORK  CCNTROIO 

c 

CTON*STNN«»C<CTOL  IN.CORSHAICTOL  IN.CTOSAHI  I 
CTOC>STNChC(CTOL IN.CORSHAICTOL IN.CTOSAHi * 

CALL  0*»UICT0LAT.CT0L0N.CT0C.CT0N.STNCN0> 

c 

c 

c CONRUTC  oirrcRCNCC  scTi^ecN  sccnc  ccntcr  a control  nctuork  ccntroio 
c 

OCLIN*CTRLiN-CTOUN 

OCSAHaCTRSAH-CTOSAN 

OCLat.ctrlat-ctolat 

OCLON«CTRLON-CTOlON 

0CKN>.00i *SQRTI «CTRC -CTOC C TRN-C TONI » 

c 

c 

C CONRUTC  ANOLC  or  ROTATION  RRON  STM  TC  SRN 

c (Castino  AXIS  or  srn  is  rarallcl  to  nss  scan  lincsi 
c 

ROTRAO*ATANICORSTNiai /CORSTNISI I 

c 

c 

c CONRUTC  1(1  NARRINO  COCrriCICNTf  IN  NCTCRt 
C SRNLIN-CORSRNI I l•C0RLIN*CRI^I•C0RSAN•CR<3l 


L'ISO 


OAN  MCKAOC  AMCNOU  L 
NAlN  MOORANt/AOUriNCt 


eONAOJ 

00« 


e MNt  AN«eOMtllN  f * I « COKt  I N*CR  ( S > • COM  AN  vCN  I • ) 

C 

comim(ii«*eoNtrNi«ii*siNtNorNAOt 'CONorNt  I l•cot(NorNAO» 
eOMRN(tl*0. 

CONtNNI]l*0. 

eOMRNIHI»*CORtTnt«t«COt<NOrNAO»*CONfrHM  Kf  iNIROrNAOl 
e0RtNNISI**C0RtrH(9l*e0StN0rNA0l*C0RSrHiei«SINI<l0TNA0t 
C0NtNNtei«0. 

e 

c 

C NRIMr  aojusthcnt  ounnart 
t 

wRircio.stsi 

I CrRLIN.erRtAM.CTRLAr.CrRLON. 

9 crouN.erosAN.croLAT .croLON. 

J OCUN.  OCtAN.  OCLAT.  OCLON.  OCKN 
its  rORNATI ‘0* .90X. *L INC  SANALC  latitudc  lonoituoc*/ 

I * tCCNC  CCNTCR  * .f crR. 9 . I XI .91 r I 0 . S. I XI / 

9 * CONTROL  CCNTROIO'.CirR.R.iXl .9iri0.9.IXI/ 

1 * CCNTCR'CCNTROIO  * .9(r0. t . I XI .9ir t 0 . S. I XI . 

I*  • I • .rs.  I . • XHi  • I 
HRirClO.6991  STNCNO 

099  rORNATI*  RROJCCTION  CCNTRAL  NCRI 01  AN’ . t 9X .r I 0 . 9 1 
WRirClS.9S9l  RCTCTL 

099  rORHATt ’OCONTROL  COVCRAOC  ’.TO.I.’  RCRCCNT’I 
MRirClO.RURI  ALTNOH 

0*»9  rORNAM  ‘ONOHINAL  ALTITUDC  ‘.FO.I.’  KH’I 
URtrC(0.699l  ALTKH 

099  rORNAM • CONRUTCD  ALTITuDC  ’.FO.I.’  KN‘/I 


CONRUre  ANO  FRINT  RCOIOUAL  CRR0R9 
CALL  CRR0R9(RNSNCri 


9T0RC  RCOiOTRATtON  RARAMCTCRS 

CALL  tTRCOO 
NUNOOM>NWNOOW*I 

RCSTORC  NON  INAL  ALTITuDC 
ALTKH«ALTN0N 


e NORHAl  RCTURN 
C 

900  KONO*‘ 
RCTURN 


L'lOl 
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eONAOJ 

007 


e 

e INTCNNAL 

•UOMOUriNC  fAMCOM 

e 

CALt  TMACC 

AL  rOAN* Al rXN«OANI KM 

00  100  K • i.NCrHI 

eOMNCTlialN.KI •CONkWAIAOJNCTtM.IN.KI . AOJNCT IWtAN.KI I 
COMNCriUtAN.KI •COMSAAIAOJNCriULlN.K* .AO^NCT IHOAN.KI  I 

iriNCMTOdt  .ir  .01  CONNCriUtAn.Kt«AO.^NCriUtAN.Kl  0 NO  N0N>LINCAM  COAMCCTION 
CALL  UNO( 

A OfNMriMCA.KI  .tTHNCr  lUNO.KI  . 

• OCOMCriNlAT.KI  .OCONCnuLON.KI  .OTNCNOI 
too  CONTINUC 
MCrUMN 
C 
c 
e 
e 
e 
c 

C INTCNNAL 

OUOROUTINC  SATALriALrKN.OAMlirni 

c 

CALL  TMACC 

OCON»OrHNHC( .O'NCMLIN. I . I 
OCOC«fTHC**CI  .9«NCML  IN.  I . ) 

CN0N«0TNN*»CI  .9«NCMLtN.NCMSAH) 

CNOC>OrHC<iC(  .S*NCRLIN.NCRSAHI 

OAOCKM*.OOI*IORTM|COC-CNOC>«*0  • (OCON-CNONl««tl 
ALTKN«0ASCKH/<  TANIROLRAO'OCNrHOl -TANtMOLMAO  SCNThOi I 
SAMI KN>rL  OA  r I NCRSAN* I I / OASCKN 
MCTUNM 

c 

c 

c 

c 

c 

c 

C INTCMNAL 

tUOMOUMNC  CMMOMStMNSnCr  I 

MCAL  MLCORIOI  .MSC0M«C>  .MLATi^t  .NlON(0>  .RUTikOi 
CALL  TRACC 

c 

c 

C INITIALI2C 
C 

00  too  K«l.f 
RLCORfNi-0. 

RSCORlt(i*0. 

RLAT(KI*0> 

RL0NIKI*0. 

RUTNIKI«0. 
too  CONTtNUC 
uRircto.0191 
019  rORNATi 


L'loo 


u o o o 
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CONAOJ 

000 


I 

3 


‘ORES I DUAL 
‘OPOINT 

• HCreRS 


ERRORS  IN  CONTROL  POINT  AOJUSTHENT s ’ / 
LINE  SAHPLE  LATITUOE  LOKvITUOE*. 
POINT* I 


CONPUTE  RESIDUAL  ERRORS 


00  806  K-I.NETHI 
KRL>I 

NPRINT-NPPPOS 

NOOTTP-* 

iriNETPTIK) .OT.OI  00  TO  608 
KRL>0 

NPRINT-NPRNEO 

nootyp»*chk* 

808  ELCOR>CORNCT(HL!N.KI -CORL<»S(STNNCT(ueA.Kl . STHNET ( UNO . K > t 
ESCOR-CORNETCUSAH.K)  -CORS>*S(STHNET(UCA.K)  . STNNET  ( UNO . K > I 
RLCORCKRL^n-RLCORCKRL*!  ) *ELC0R««8 
RSCORI KRL ♦! ) «RSCOR( KRL  » t ) ^ESCOR*  «8 
CHPE>STnCHC(CORNET(ULIN.KI . CORNE T ( USAH . K ) I 
CNPN«STNN<4C(C0RNCT(ULIN.KI  .CORNET(USAN.K)  1 
CALL  0*»UCCNPLAr.CNPL0N.CnPE.CNPN.STMCN0l 
ELATmOEONETtULAT ,K) -CMPLAT 
ELCN>OEONET(ULON.K) -CNPLON 

EUTN«(STMNET(UEA.K) -CMPE1»«8  ♦ ( STNNET ( UNO . K ) -CNPN) • «8 
RLAT(KRL«I )>RLAT(KRL»1 ) *ELAT«<8 
RLON(KRL*t )-RLON(KRL«l > *EL0N««8 
RUTH(KRL«i I -RUTHfKRL*! ) *euTM 
EUTM-SQRT(EUTN) 
ir (NPRINT . NE . 01  URITEI6.80HI 
I NETPT(K) .ELCOR.ESCOR.ELAT .ELON. 

8 EUTN.NODTYP.NETPT(K) 
sot  rORMAT(8X.It.8X.8rF7.8.1X) .8(Ft0.5.lX). 

8 r7.IX.A3.lt) 

806  continue 
C 

C 

C CONPUTE  ROOT  MEAN  SQUARE  ERRORS 
C 

NOOTYP-  ’CTL  • 

N«NCTLPT 

KRL-t 

807  RLCORCKRL  4-t  I ■SORT(RLCOR(  KRL  *1  I /N) 

RSCORIKRL*!  ) «SQRT  ! RSCOR  t KRL  1 ) /N) 

RLAT  (KRL*  I I -SORT  (RL  AT  ( KRL  I ) / Nl 
RLON(KRL* t ) «SQRT  t RLONC  KRL  * I I /Nl 
RUT N I KRL* I )«SQRT(RUTN(KRL»I I /N) 

UR|TE(6.809I  NOOTYP.RLCOR(KRL*t ) .RSCOR(KRL*l ) . 

I RL AT (KRL* I ) .RLON(KRL*t ) .RUTN(KRL*I ) .N.NOOTYP 
809  rORNAT(’ORNS  ' . A 3 . 8 ( F7 . 8 . I X ) . 8 ( F I 0 . 5 . I X ) . FS.  I . 1 X . I 3 . I . A 3 . ‘ PTS*) 
IFIKRL.EQ.O)  GO  TO  810 

IFCNCTLPT.EQ.NuTHI ) 00  TO  810  9 NO  CHECK  POINTS 

nootyp«*chk* 

N-NETHI -NCTlPT  a NUHBER  OF  CHECK  POINTS 

KRL-0 

00  TO  807 
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CONAOJ 

009 


•10  RN<NCr»RUTNC Ut I 0 CONTROL  POINT  RNS  (KftL*ll 

MRirC(0.8<*9t 
OHS  PORNATMXI 
PC TURN 


C 

C 

C 

C 

C 

C 

C INTERNAL 

SUOROUTINC  PCTCOVIPCTCTL I 

C THIS  INTERNAL  SUBROUTINE  ESTINATES  THE  PERCENT  OP  THE  SCENE  COVERED  BY 
C THE  CONTROL  NETWORK.  THE  AREA  OP  THE  NETWORK  IS  APPROXINATEO  SV  THE  AREA 
C OP  AN  ELLIPSE  with  RAOt I EQUAL  TO  GEONETRIC  NEAN  RAOl I OP  THE  TwO  SMALLEST 

c rotated  envelopes. 

REAL  RLSIH.B) .OLSNlNtCI .OLSNAX(B) 

REAL  PI/3.IHIS9S69/ 

CALL  trace 
C 
C 

c initialize 
c 


00  IVO  N«I .31 .Z 
RLSIN. I >>*999999. 
INO  RLS(N*I . I > >-999999. 
OLSNINI I I >*999999. 
OLSHIN(Z) >*999999. 
0LSMAXm>-999999. 
OLSNAXfZI >-999999. 


PINO  rotated  envelopes 

00  ZBO  K>l .NETHI 
IP(NETPT(K> .LT.O>  00 
ROTL IN>A0JNET(WL IN.K) 


TO 


INITIAL  NININ. 
a initial  NAXIrlA 


ZBO 


ROTSAN>AOJNET(WSAM.K) 

00  Z<*0  NROT«l  . 8 

RLS( 1 . NROT ) *AMlNt (RLS( I . NROT ) .ROTL INI 
RLStZ. NROT I >AHA* I (RLSIZ . NROT I .ROTL IN) 
RLC(3.NR0T)>AHlNt ( RL S I 3. NROT I .ROT SAM  I 
RLS(<*  .NROT  I * AH  AX  I IRLS' V .NROT  t .ROT  SAM  I 
TEMP>ROTL IN*C0SIP|/I6.i-R0TSAM*SIN(PI/I6.) 
R0TSAM>R0TL  lN*SIN(Pt/l6.)*R0TSAM*C0SlPIM8.l 
ROTL IN>TEMP 

ZNo  continue 
ZBO  continue 


A 


PINO  NINIMUN/MAXINUM  ENVELOPE  DIMENSIONS 

• • r 

bo  3Z0  NR>Z.3Z.Z 

OLSNiNf I )>AMINI (OLSMINI I I . (RLS(NR. I ) -RLS(NR-I . I I I I 
OLSNAXt I I >AHAXI (OLSMAXt I > . ( RLS ( NR . I I -RL S ( NR- I . t I M 

3Z0  continue 
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CONAOJ 

010 


00  3H0  NR-0.38.0 

irttRLSINR. t l-RLSINR-l . n I .CQ.OLSnlNtl I I 00  ro  330 
0LSNINI8t«ANtNt (OLSNlNfOl . (RLSINR. t I -RLSINR-I .1111 
330  IPC(RLS(NR.  I I -PLS(NR>t  . I II  .eo.OLSHAXf  n ) 00  TO  3<*0 
0LSNAXl8l*AriAXI  (OLSMAXtai  . (RLSINR.  II  -RLS<NR-t  .till 
31 0 CONTINUe 

c 

c 

C esriNATC  RAOM/ARCA/PeRCCNr 

c 

PIXNU-PI 

A •SQRTtOLSHlNf  1 I •OLSNlNtai />*l 
A •SORTCOLSNAXI I I •OLSMAXISI /H) 

p|xror«rt.oAr  (NCRL  INI  «PLOAr(NCRSAni 

PCTCTL-IOO. «PIXNM/PIxror 

RETURN 

END 


L-I8S 
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CONOIA 

001 


SUBROUriNC  CONOIAI  0 OIAORAH  CONTROL  NCTUORK 
U KONOi  • Is  PIRST  3 CHARS  OP  CONHANO  Oi  SPACES 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


history 


e H SCHLOSSER 
E H schlosser 
E H schlosser 
E H schlosser 


LEC  08/03/73  ORIOINAL  COOE 

LEC  18/08/75  ALPHANUHERIC  CONHANO 

LEC  07/18/78  OELCTE  RETURN  K 

LEHSCO  05/87/80  CHECK  SIZE.  CENTER 


HETHOO 


PRINT  POINT  NUHSERS  (LESS  SION  AND  HUNOREOS  0101 Tl  AT  APPROXIMATE 
LOCATIONS  WITHIN  SCENE. 


HACHINE-OEPENOENT  COOE 


DIMENSION  AND  PORHAT  SPECIFICATIONS  ASSUME  6 CHARACTERS  PER  WORD. 


EXTERNAL  REFERENCES 


MOHARN 

HOUNIT 

OIAERR 


EXCEPTIONS 


a PRI NT/LOO/CCUNT  'WARNINO’ 
a PRINT  PAOE  HEAOINO 
a OIAORAN  ERRORS  IN  CONTROL 


OIAONOSTIC  MESSAOE 


NETWORK 


INVALID  values  FOR  ANY  OF  THE  FOLLOWING  GENERATE 
SCENE  SIZE  (LINES) 

SCENE  SIZE  (SAMPLES) 

SCENE  CENTER  (LINE) 

SCENE  CENTER  (SAMPLE) 

type  of  points  to  diagram 

NUMBER  OF  POINTS 


8.  AN  extra  specification  generates  a 'WARNING'  OIAONOSTIC. 


'WARNING*  OIAONOSTICS: 


0L08AL  declarations 


INCLUDE  KOMXOT.LIST 
INCLUDE  KOMNER.LIST 

include  kohfit.list 

'NCLUOE  KOMNET.LIST 


a COMMON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 
a COMMON  ERTS  SCENE  PARAMETERS 
a COMMON  AOJUSTMENT/REOIS^RATICN  parameters 
a COMMON  control  network  COORDINATE  TABLE 
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OAH  PACKAOe  APPCNOIX  L 
MAIN  PROORAHS/ftOUTlNeS 


CONOIA 

OOC 


INCLUOe  HiNOCF.LtSr 
INCLUOC  NULCSr.LISr 


LOCAL  OeCLARATIONS 


• oeriNC  STRucruRC  or  hinoom  packets  is  konneti 

• oefine  null  character  strino 


c 

c 

c 

c 

c 

c 

c 

c 

c 


INTEOER  NOSAVE 
INTEOER  mXL<E<».38t 
INTEOER  HATTCEOI 
INTEOER  N00TYP(H.3I 
data  NOOTYP/ 

1 1 1 1 1 l8EEEE8333333>»H*»M>fH 
I ’CONTROL  POINTS  ONLY 
8 ’CHECK  POINTS  ONLY 
3 ’ALL  POINTS 


PROCEDURE 


A TEMPORARY  SAVE  FOR  CONTENTS  OF  NOTOTL  ON  ENTRY 
a ARRAY  OF  OIAORAN  SUPER-PIXELS 

a OYNANIC  FORMAT  SPECIFICATIONS  FOR  SUPER-PIXELS 
a NODE  TYPES: 


CALL  TRACE 


CHECK  IF  SCENE  SIZE  AND  CENTER  ARE  DEFINED 
NDSAVE-NDTOTL 

IF( (NERLIN.lt. I 001 .OR. (NERL IN. OT. I 0000) ) CALL  HOHARNC 

> ’SIZE  (LINES)  NOT  DEFINED’) 

IF( (NERSAM.LT. 100) .OR. (NERSAM.OT. 10000) I CALL  MDHARN( 
• ’SIZE  (SAMPLES)  NOT  DEFINED’) 

IFOCTRLIN.LT.SO.  ) .OR.  (CTRLIN.OT.5000.  I ) CALL  MOMARN( 

> ’CENTER  (LINE)  NOT  DEFINED’) 

IF( (CTRSAM.lt. SO. ) .OR. (CTRSAM.OT.SOOO. ) 1 CALL  MOHARN( 
« ’CENTER  (SAMPLE)  NOT  DEFINED’) 

IF(NOSAVE. NE. NOTOTL ) 00  TO  900 


determine  I4HICH  POINTS  TO  UIAORAM 


NODT-'ALL • 

CALL  OETSKH(NOOT.3.NULCST) 

IFINOOT.EQ. ’CON’ ) CO  TO  810 
IFINOOT.EQ. ’CHE ’ I 00  TO  880 
IFINOOT.EQ. ‘ALL ’ I 00  TO  830 
IFINOOT.EQ. ‘ERR’ > 00  TO  8N0 

CALL  WARNS!  'BAD  DUORAM  SPEC  I F I CA  T I ON 
00  TO  900 

810  ASSIGN  330  TO  I'FOS 
ASSIGN  370  TO  INEO 
N00T>I 

IF(NCTLPr.OT.OI'.-Oj}  TO  300 

CALL  HOWA^NI  'NO  CONTROL  POINTS’! 

00  TO  900 

880  ASSIGN  330  TO  iNEO 
ASSIGN  370  TO  IPOS 


a JUST  CONTROL  POINTS 
a JUST  CHECK  POINTS 
a ALL  POINTS 
a ERROR  DIAGRAM 
• ) 


L-IB7 


nooo  oono 


DAN  MCKAOr  APPCNOIX  L 
NAIN  PROORAHS/ROUrtNCS 


CONOIA 

003 


N00r>< 

irciNcrMi‘NCTLPri.or.01  oo  ro  soo 

CALL  NOUARNt  *NO  CHECK  POINrS‘l 
00  ro  000 

030  ASSION  330  TO  tPOS 
ASS  I ON  330  ro  INEO 
N00r«3 

iFfNcrHi.or.oi  00  ro  soo 

CALL  NOUARNt  'NO  POINrs'i 

00  ro  900 

ONO  CALL  OIAERR 

00  ro  900 


INtriALIZC 


a OATA/CHECKOUr  node 


300  NHN00U>IABS(NUN00U> 

ircHOArAC.NC.o)  oo  ro  900 

CALL  HOUNirtO.SI 

HRirE(0.309>  NERTS.  ( NOOr YP ( N . NOOn  ,N«I  .•») 
30Sr0RNAT(*  SCENE  ' . I I . J»».  * - * . J5.  ' --  '.HA6» 

00  3E0  !■!  .86>» 

320  HIXLd  . I >«0 


LOAD  OtAORAN  ARRAY  HI TH  POINT  NUMBERS 


330 


350 


360 

370 


C 

C 


00  370  N-l .NErHI 
iriNErPTCNI > INEO. 370. IPOS 
iNTEMP-iABSiNErpr rNi)  a oon'T  pRiNr  sign 
INTEMP«MOO( INTEMP. 100)  a STRIP  OFF  HUNDREDS  OIOIT 
ILMAP«>*.  »30.  «(  AOJNETCULIN.NI  >1  ) / ( C TRL  I N«NERL  I N/ 2 . ) 
ILHAP*MAXO( ILNAP.2) 

ILMAP-MlNOf ILMAP.3SI 

1 SNAP- I . . «AOJNET(USAM.NI t ( C T RSAM*NERSAM/ 2 . ’ 
ISMAP-HAXOf  I SNAP. I ) 

ISKAP-MINOI  ISMAP.2<*I 
IFIMI XL ( I SNAP 
IF( ILMAP. CT . II 
ILMAP«ILMAP*I 
IFIMIXL ( I SNAP. 

ILMAP-ILMAP-e 
IFtnlXLI ISHAP. 

ILMAP*ILMAP«’3 
IFIMlXLI ISMAP. 

00  TO  370 
ILMAP- ILMAP-I 
IFIMIXLI ISMaP, 

ILMAP-ILMAP-2 
IFfMlXLIISMAP. 

ILMAP-ILMAP-3 
IFfMIXLI ISMAP. 

MIXLI ISMAP. ILMAP) -INTEMP 

continue 


a-a-a- 

a-a-a- 


rix 

FIX 


>a-a-a 

>a-a-a 


ILMAP) 

• EQ. 

0) 

00 

TO 

360 

1)  00  TO  350 

ILMAP) 

.EQ. 

0) 

00 

TO 

360 

ILMAP) 

.EQ. 

0> 

00 

TO 

360 

ILMAP) 

.EQ. 

0) 

00 

TO 

360 

ILMAP) 

.EQ. 

0> 

00 

TO 

360 

ILMAP)  , 

.EQ. 

0) 

00 

TO 

360 

ILMAP)  . 

■ NE. 

0) 

GO 

TO 

370 

a-a-a-  fix  -a-a-a 
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OAH  AACKAOe  APPCNOIX  L 
MAIN  PROOPAMS/ROUriNCS 


CONOIA 

00** 


C OIAORAH  POINTS  ABOVC  SCCNC 
C 

HArrcOlt-MBN  .* 
NATTtOOI-'IX. * 

NATTf I5I**IX. ’ 
HATTC8PI>*1X. * 
NATTtaSI*' IX>  * 

ILNAPN-I 
HLAX*3 
CALL  TROLIN 


OIAORAH  POINTS  UITHIN  SCENE 
URI TEtO.SOSt 

HATTCOt ••‘C8H  ♦. * 
NATT(00)«*IH*.  * 
HATT(ISI«‘IH*.  * 
HATTfa8>»*IMt. • 
NArr(89l-‘IH*) * 

ILHAPN><» 

HLAX-33 
CALL  TROLIN 
HRITECO.SOS) 


OIAORAH  POINTS  BCLON  SCENE 

HATTIOI I-* (8H  .• 

HATT(08>«*IX. • 

HATT(IS»-MX.’ 

HATT(88I«* IX. * 

HATT(89>»’ IX) • 

ILHAPN«3>» 

HLAX-36 
CALL  TROLIN 
URITEIS.SSS) 

SOS  rORHAM  I8X.  * (HUNDREDS  DIGIT  OHITTEO**'') 
NHNOOU*NUNDOH*l 
C 
C 

900  K0H0«' 

RETURN 

C 

C 

C 

C 

C 

subroutine  TROLIN 
00  800  ILHAP-ILHAPN.HLAX 
00  700  ISHAP-I  .8<* 

HPI -ISHAP»I *( ISHAP*! ) /6 

iriHiXL ( ISHAP. ILHAP) .EQ. 01  00  TO  600 

HATTfHPI )>’ 18. ' 
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OAN  ^ACKAOe  APPCNOIX  L 
MAIN  PttOOMAHS/POUTINCS 


eONOIA 

OOS 


00  ro  700 

000  HArr(NPII»’A8. ’ 

nlXLCISHAP. ILNAPI*' 

700  continue 

UNI  re  1 6. MATT i INI  XL  c tSHAP. ILHAPI . ISHAP«1 .8HI 
000  CONTlNue 
RCrURN 
CNO 
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OAN  MCKAOe  APPCNOIX  L 
MAIN  PROOnAHS/ROUriNCS 


SUtROUrtNC  CONCXI  • rCRniNATION  ROUT INC  rOR  CONTROL 

c 

e 

C (C  N SCHLOSSCRl 

c 

c 

iNCLuoe  KONXor.usr  a connon  prooran  cxccution  shitchcs. 

INCLUOe  NULCSr.LlSr  • OCFINC  null  CHARACrCR  strino 

c 

CALL  TRACe 


exTCRNAL  SueROUTINCS/rUNCTIONS  CALLED 


P8T0P 


TERRI  NATE  PROORAN 

iriNOFATL .NE.O)  CALL  PABORTt  NULCSTI 
CALL  PSrOPC  NULCSTI 


PSTOP  DOES  not  return 
ENO 


CONCXI 

001 


C0UNTCR8 


L>I9I 


ooooooooooooooooooooooooo 


OAH  ^ACKAOC  AWNOIX  L 
HA  IN  MOONANf/ROUTINCS 


CONXOr 

001 


tUOROUTINC  CONXOr  0 INiriALIZATlON  ROUriNC  rOR  CONTROL 


HItrORY 


C N tCNLOSSCR 
C M SCHLOSSCR 


LCC  I1/00/7S  ORIOINAL  COOC 

LCC  01/27/79  ALLOW  OCrAULI  COHMANOS  FRON  NACOAN 


hcthoo 


INITIALIZC  RROORAH.  INITIALIZE  PITCH  A ROLL.  QUEUE  DEFAULT  CONHANOS. 


MACHINE •DEPENDENT  CODE 


UNIVAC  EXEC-B  PROGRAM  PILE  NAMINO  CONVENTIONS. 


EXTCRNAL  REFERENCES 


NVIATO  • NAME  NEXT  'VIA*  A ’TO*  SUBROUTINES 

pstart  a program  start  initialization 

SYSAOO  A ADD  DISK  SYMBOLIC  FILE  OR  ELT  TO  SVSIN  RUNSTREAM 

hofatl  a submit  fatal  diagnostic  message 


EXCEPTIONS 


I.  MISSING  default  COMMANDS  OENERATE  A FATAL  DIAGNOSTIC. 


GLOBAL  declarations 


INCLUDE  KOMNER.LIST  A COMMON  ERTS  SCENE  PARAMETERS 

C 0 PiroEO  A PITCH  IN  OEORECS 

C 0 ROLOEO  A ROLL  IN  OEORECS 

EXTERNAL  CONOOO.  NULSUB 
C 
C 

C LOCAL  declarations 

C 

C 


INTEGER  LOCFIL  A LOCATION  WITHIN  OISK  SYMBOLIC  FILE  I 

C 
C 

C PROCEDURE 

C 

C 


IF 


I 
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OAN  PAfKAOC  AI»PCN0IX  L 
MAIN  MOOAAHt/AOUrtNCt 


eONXQT 

oot 


e lOCNTirY  PKOOMAH 

CALL  MrANTI  *OAH  CONTMOL  (•00«i  * > 

C riAO  PITCH  » ROLL  AS  UNKNOWN 

Rir0C0«*9SSS9S. 

ROLOCO>*999999. 


Queue  oerAULT  conhanos  tron  PRivAre  rrooran  rue  or  oah  rroorah  riLC 

SOO  CALL  9V9A00IL0CPIL.  ‘NACOAH* . ‘OCP-CONTROL * . * *> 

iriLOCPIL.LC.Ol  CALL  SYSADOtLOCF IL . • OAN* . * OCf-CONTROL * . * *» 

iriLOCrtL .LC.Ot  call  hofatli  *no  ocfault  conhanos** 


ON  NeruRN.  CALL  CONOOO  TO  OCT  OeFAULT/USCR  CONHANOS 
CALL  NVIATOf  CONOOO . NULSU9* 


RCTURN  TO  NCXT  STATeNCNT  IN  CALLINO  ROUTINC 
Re TURN 

eNo 


L*t9S 


. f 


OAN  AACKAOC  AAFCNOIK  L 
NAIN  MOOAAHS/nOuriNCt 


OIACRA 

001 


OUMOUTINC  OUCRR  • OIAORAN  CONTROk^CN»CK  AOINT  CRROIIO 
C 

e 

e IN  L MOWNt 

c 

e 

OINCNtlON  JHOAOIOOl .ITAOtlOOt 
DATA  JUORO/90**  */ 
iNCLuoc  KOnrir.Lisr 
INCLUOC  KOHNCA.LItr 
INCLUOC  MlNOCr.LlSr 
INCLUOC  ASNOCr.LlSr 
INCLUOC  KONNCr.Lltr 
INCLUOC  rNroNH.Lisr 
INCLUOC  KONXQT.LlSr 

OCriNC  irXANOINCAU •iriXCNCAL*OIONI .S.NCALII 
CALL  TNACC 

c 

c 

C THIO  NOUriNC  OlAONAHt  CNNONt  IN  OOTM 
C CONTROL  ANO  CMCCK  AOINTS. 

C 

C 

C OCTCNHINC  ir  NOOe  IS  OATCH  ON  OCHANO 

c 

IHOC*tOC 

iriHOATCH.CQ.OI  INOC-SS 
in iNOC.eo. toci  oo  ro  eoe 
e 
c 

c ter  nor  constants  ton  ocnano  nooc 
c 

terA«it.o 

ICTN«1S 

NC0L*3S 

00  ro  eo<» 
c 
c 

c SCT  nor  constants  ton  oatch  nooc 
c 

«oe  tcTA*>*o. 

ictn«ho 

NCOL-90 

90«»  ircnp«‘juNK* 
c 
c 

C OCTCNHINC  ir  LINC  ON  SAnNLC  CNNON  TO  OC  nOTTCO 
C 

CALL  OCrSKNI I TCHN.3. *01 
inirCNN.CQ.  *LlN*t  00  TO  CIO 
in  ircHN.CQ.  *SAH*  I 00  to  990 
CALL  UANNSC9A0  CANON  AXIS 
00  TO  900 
910  LSNNT«I 

UCNNAX«‘LINC* 

00  TO  300 


9 


; 
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OAH  ^ACKAOC  AMCNOiX  L 
MAIN  PROOAANS/AOuriNCS 


OlACMI 

••• 


tfo  LtP«r«t 

JCMMAXa'tANPLC* 

C 

e 

e ter  UP  tour 

e 

100  CALL  ocrsKN< ircnp.i.>oi 

iptircHP.CQ. 'top*i  00  ro  ito 
CALL  UAPNtt’tOPr  MOr  tPCCIPICO 

00  ro  too 

ISO  CALI  OerSKNf ITCNP.S.'OI 

iriircnp.CQ.  *iiN*t  oo  ro  mo 
iPiircNP.eo. *tAn*i  00  ro  hoo 
CALL  MAANtl’tAO  tOPr  AXIS  •-’! 

00  ro  too 

Alo  LStPr«t 

JOPrAX«’LINC* 

00  ro  Hso 

•»00  LttPTat 

UtprAXa'SANPLC’ 

e 

e 

e CMCCK  IP  NcruooK  has  occn  Aojutreo 

c 

*»80  IPfPNtnCT.NC.Oi  00  TO  SOO 

CALL  NOHAPNI 'NCrwOPK  NOT  AOJUtrCO*! 

00  ro  too 

SOO  00  000  K>I.NCrNI 

irAOfKta.iPixf  AOJNcrfLttPr.Kt*e««ooi 
AtNNfl ITAOfKI t«K 
000  CONTINUC 

c 

c 

c iCoiN  sopr 
c 

CALL  ItPTHAf I TAO.NCrNti 

ipf iNor.co.35i  00  ro  sto 

00  TO  st*» 

OtO  UPirciO.SOSi  JCRPAX. JSPTax 
OOS  POANATC  M POINT*. IX.  *CAPOA* .IX. *80AT* .ex. 
I • -0.0* . IPX. *8* . t IX. *».o* . 

P/9X. AO.OX. AO/ i 
00  TO  SI7 

0I<*  HPirCfB.SISi  JCPNAX.  JINTAX 
BIS  POPHATr  * I POINT  * . IX. *CRNOA* . IX. *80NT* .7X. 
I*-».0*.‘*'*X.*0*..'*'*X.*«.0*. 

0/tX.AB.PX.AB/ i 
BIT  IN«e.O 

c 

c 

C CALCULATC  ANO  PLOT  THC  CPNOPt 
C 

00  rso  K*l .NCTNI 

XK>ABNHOf I TAOf Ki i 

N00rrp»* •* 

iPfNCTpriKKi .or .01  00  to  rot 
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OAN  ^ACKAOC  AMCNOIA  L 
MAIN  PNOOMnS/IIOUTINei 


Noorv^**-* 

7ot  imtMr.co.ti  00  ro  7oa 

cim»eoRNtriNtAn.KKi-cofif<»«itrnNcriMCA.KKi  .frniicrtMNO.KKi  i 

00  ro  70S 

70A  CNNaCOMNCriHLiN.KKi  -COAl*»SISrNNCri|lCA.KKI  .OrnNCt (WNO.AKI  I 
708  J«irxttNOIOCrA«l AMIN* I *0. . ANAXI I •*. .CROt I / ln»f . Ot  *0CTAI 

jMOoot icroi** . * 

JMOROIJtaNOOrYR 

Hmrcio.rioiNcroriKKi  .crr.aojnct  iissiir.RKi  .i  jmoro<ni.n*i  .mcoli 
710  roohATi IX. lo.tx.rs.t.fx.rr.o.rx. iooaii 
JMOAO'JI*’  * 

7S0  CONT I NUC 
900  RCruRN 

CNO 


oiAcmi 

001 


» 
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OAN  PACKAOe  APPCNOIX  L 
HAIN  PftOORAMS/ ROUT  INC S 


OLSrSQ 

001 


SUBROUriNC  OLSrSQtNOOeS.IPT.X.Y.P.Q.AI 
C (U  0 CPPLCR  / e H SCHLOSSCRI 

C THIS  SUOROUriNC  COHPUrCS  A(t)  thru  AtOI  TO  HINIHIZC  (P>UI  ANO  IQ>VI 
C MHCRC  U>A(n*X»AI0l«V»A(3l 
C ANO  V-A(<*t  •X*A(SI<Y»A(Ot 
C 

C THIS  SUOROUTInC  CALLS  OOJR  TO  SOLVC  THC  SINULTaNCOUS  CQUATIONS  RCPReSCNreo  OY 
C MATRIX  H (OOJR  IS  IN  THE  UNIVAC  HATHPACK  LIORARYI 

c 

OOUOLt  PRCCISION  H.V 

OIHCNSION  IPT( I I .X( I ) . Y( n .2(700) .PC  I ) . Q( I ) . H( 3 . S I . A ( 6) . JC ( I > . V ( 8 ) 

orriNC  I iPT( n «iPT( I ) 

CALL  TRACE 

c 

NTor«Nooes*8 

NCTLPT.O 

X8>0. 

YB-0. 

PB-0. 

QB-0. 

00  I K-I.NTOT.S 
IF(IIPT(K/8*|).LT.O)  00  TO  t 
XB«XB«X(K) 

YB«YB*Y(K) 

PB«PB«P(K) 

QB>QB*Q(K) 

NCTLPT.NCTLPT*) 

I continue 

XB-XB/NCTLPT 

YB«VB/NCTLPT 

PB«P0/NCTLPT 

Q8*QB/NCTLPT 

00  2 K«I .NTOT .8 

IF(  I IPT(K/8*n  .LT  . 0)  00  TO  8 

X(K) >X(K) -XS 

Y(KI mYIK) -YB 

2(K) •)  . 

P(KI  -P(K) -PB 
Q(K)*Q(K) -QB 

8 continue 

H(I.I)«0A1P(X.X.IPT.NT0T) 

H(I.8)«0AIP(X.Y.IPT.NT0T1 
H(  I .3)»0AIP(X.Z. IPT.NTOTI 
H(8. I )«H( I .8) 

H(8.8)»CAIP(Y.Y. IPT.NTOTI 
, M(8.3)«0AIP(Y. 2. IPT.NTOTI 

H( 3. n «H( 1.3) 

H(3.8)>H(8.3) 

H(3.3)»0A'P. 2.2. IPT.NTOT) 

H(  I .i»)«LAtP(P.X.  IPT.NTOTI 
H(8.«»)»0AIP(P.Y.  IPT.NTOTI 
H(3.NI«0AIP(P.Z. IPT.NTOTI 
H( I .5) •OAIPIQ.X. IPT.NTOTI 
•OAIPCQ.Y. IPT.NTOTI 
H(3.S) «0A IP (Q. 2. IPT.NTOTI 
V( I I 
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OLSrSQ 

OOR 


CALL  00JRfH.S.3.3.S.S7.JC.V> 

Ait)*H(l.<»l 

A(R>«N(R.*»I 

A(3t>H(3.*»l  -Af  1 ) •X8-A(aMVe«Pe 
A(H)«Htt.S> 

A(SI*H(2.SI 

At6l«NI3.S>  •AC*ll  •xe-A(5l«Ve»QB 
00  3 K-l .NTOr .8 

iFc npr(K/o«i I .lt.oi  oo  ro  s 
XCKi>X(Ki »xe 
YtKi>rtKi*re 
P(Ki aPCKi *PS 
Q(KI -Q(K>  *QB 
3 CONTtNUC 
00  ro  9 

7 MR  I re  16.81  JC( t I 
6 rORNArc  OVCRFLOU  APrCR  ROM*. 18) 
9 RCruRN 


PUNcrioN  OAtPfR.s. ipr .NroD 
omeNSioN  R(i  I .sf  I ) . tprt  n 
OOUBLC  PRCCIStON  SUH 
SUH-0. 

00  t K-i.Nror.8 

iF(  I ipr (K/e*i ) .tr . 0)  CO  ro  i 

SUN*SUN*08LC(R(K) 1 «08Le<SCK)  ) 
1 coNriNue 
OA IP-SUM 
RCruRN 
CNO 
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CLASSirr 

001 


PROORAN  CL ASS I PY 


HISTORY 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


E 

h schlosscr 

LEC 

07/0B/73 

ORIGINAL  CODE 

C 

N SCHLOSSCR 

LEC 

09/BR/7S 

NVIATO/VIATO  NCNORY  NANAOEHCNT 

C 

H SCHLOSSCR 

LEC 

11/13/79 

UPGRADE  DOCUNCNTAriON 

NET HOD 


THIS  PROORAN  CLASSIFIES  DATA  FROM  A LANOSAT  ’X’  OR  *AN*  OR  *PN' 

NSS  tape  assigned  to  unit  3 AND  STORES  THE  CLASSIFIED  BUT  UNRESAHPLEO 
data  in  a ranoon  access  detection  file  for  use  in  the  sane  or 

SUBSEQUENT  RUNS  BY  OTHER  PROORAHS  IN  THE  DAN  PACKAGE. 

THE  USER  SPECIFIES  THE  NANE  AND  SPECTRAL  LINITS  FOR  ONE  NATERIAL. 

A HINOOM  OEFININO  THE  AREA  TO  BE  CLASSIFIED.  AND  THE  TYPE  OF  DETECTION 
FILE  TO  generate. 


NACHINE-OEPENOENT  CODE 


NONE. 


EXTERNAL  REFERENCES 


NVIATO  a NANE 

VIATO  a CALL 

VIA 

EXTERNAL  CLAOOO. 


•VIA*  ’TO'  routines 
•VIA*  ’TO’  ROUTINES 
TO 

CLAXQT 


EXCEPTIONS 


I.  IF  CONTROL  HAS  NOT  BEEN  EXECUTED  IN  THE  CURRENT  RUN  PRIOR  TO 
CLASSIFY  ANO  satisfactorily  ADJUSTED  A CONTROL  NETWORK  FOR  THE 
SCENE  TO  BE  PROCESSED  BY  CLASSIFY.  ThEN  CLASSIFY  WILL  REFUSE  Tq 
PROCESS  the  scene  and  HILL  GENERATE  A ‘FATAL  ERROR. ’ 

e.  IF  CLASSIFY  ENCOUNTERS  ANY  FATtL  ERRORS  (SUCH  AS  FATAL  TAPE  PARITY/ 
positioning  ERRORS)  IT  WILL  ERROR  TERMINATE  AND  FLAG  THE  OUTPUT 
DETECTION  FILL  AS  DEFECTIVE.  THE  RUN  WILL  NOT  BE  ABORTED.  BUT 
subsequent  executions  OF  PRTOENS/PRTCLASS/PL TCL ASS  HILL  BE  ALERTED 

TO  this  fatal  error. 

3.  IF  CLAXQT  does  not  CALL  NVUTO  TO  CHANGE  THE  'VIA*  ANQ/OR  *T0‘ 
routines,  then  classify  hill  call  to  CLAXQT  IN  AN  ENDLESS  LOOP! 


L-199 


nooon  noooo 


DAN  PACKAGE  APPCNOIX  L 
HAIN  PROOPAHS/ROUTINCS 


CLASSIFY 

008 


OLOBAL  OCCLARATIONS 


INCLUOe  KOHXQT.LtSr 
INCLUOe  KOHLOO.LtST 
INCLUOe  KONLUS.LISr 
INCLUDE  KOHLUS.LIsr 
INCLUOE  K0NL8N.LIST 
INCLUOE  KOHIUM.LIST 
INCLUOE  KONOUM.LIST 
INCLUOE  KOHNER.LIST 
INCLUOE  KOHKLS.LISr 
INCLUOE  KONFIT.LIST 
INCLUOE  KOHIRT.LIST 
INCLUOE  KOMOET.LIST 
INCLUOE  KOHSLH.LIST 


INCLUOE  KOHALT.LISr 


a COHHON  PROORAH  EXECUTION  SUITCHES.  COUNTERS 
a COHHON  LOO  FILE  BUFFER.  I/O  PKT.  POINTERS 
a COHHON  POINTERS/FLAOS  FOR  UNIT  3 
a COHHON  POINTERS/FLAOS/BUFFER  FOR  UNIT  5 
a COHHON  I/O  PKTS  FOR  OETECTION  FILES  (UNITS  8N 
a COHHON  input  hinoom  packets 
a COHHON  OUTPUT  Ml  NOON  PACKETS 
a COHHON  CRTS  SCENE  PARAHETCRS 
a COHHON  classification  info 

a COHHON  AOJUSTHCNT/REGISTRATION  PARAHETERS 

a COHHUN  irraoiance  transformation  coefficients 

a COHHON  OETECTION  FILE  MINOOU  PACKETS  t OATES 
a COHHON  spectral  limits 

a COMMON  alternate  print  file  counters,  pointers 


% 


t 

« 


PROCEDURE 


CALL  NVIATOI  CLAOOO.CLAXQT)  a FIRST  CALL  IS  VIA  CLAOOO  TO  CLAXQT  \ 

100  continue 

CALL  VlATO 
00  TO  100 

ENO  a (STOP  IS  PERFORHCO  BY  APPROPRIATE  'TO*  ROUTINE) 


t 


( 


« 


OAH  PACKAOe  APPCNOIX  L 
MAIN  PROORAHS/ROUTINCS 


CLASSIPY'HIA 

001 


CLASSIPY  NICRARCHV 


CLASSIFY 

I 

t 

i 

NVIATO 

VIATO 

: 

s 


CLAI29 


CLAOOO 


CLASPS 


CLA0C9  CLAXQT  KHO. 


CL  A 


0PCN3  SYSAOO 

PSTART  LORCON 

! 

OEF-CLASSIFY 


KMOXXX  CLAEXl 


CLOSES 


CLOSPR 


CLS02N 


PS  TOP 


CLA0E3 

CLAOEH 

CLA0E5 


OETRAO 


READS 


OPRCLA  SLnCLA  CALCHA  CALSPA  CALUIN  OPNOSN  CLSHOC 


OPENPR 


L-EOt 


0AM  MACKAOC  APPCNOIX  L 
MAIN  PftOORAHS/ROUriNCS 


CLASStPY/VIMTUAL 

001 


PftOORAN  CLASSirv/VlRTUAL 


HISTORY 


e H SCHLOSSCR  LCC  0R/0R/7H  ORIGINAL  COOP 

C H SCHLOSSCR  LCC  11/06/79  OHAP.FZINI:  NO  *N*  IN  OCNANO> 


NerHoo 


construct  ohap  exec  cohhano  to  link  rcal  assolutc  in  tpfs. 

CONSTRUCT  aXQT  CONHANO  TO  exeCUTe  RCAL  ABSOLUTe  IN  Tprs. 

uRire  anAP  a axoT  cohnanos  to  TenPORARY  rue  so. 

OAOO  TCNPORARY  FUe  SO.  TO  RUNSTReAN. 


HACHiNe-oepeNoeNT  cooe 


HRITTeN  IN  ASSeNBLeR  FOR  ThF  UNIVAC  I 1 00  SFRICS  COHPUTCRS  UNOFR  THF 
exec -8  OPeRATINO  systch  USINO  o-bit  PICLOATA  CHARACTCRS. 
IMPLeHCNTINO  COOe  MUST  Be  ReWRITTCN  FOR  OlPPeRCNT  CHAHACTCR  cooes. 
OlFFeReNT  OPeRATINO  SYSTeMS.  ANO  OlFPeReNT  MACHINCS. 


exTeRNAL  RcreReNces 


CR  CSFS  a FUNCTION  TO  SUBMIT  CXeC-8  CONTROL  STATeMCNT 

CR  lOMS  a INITIATe  I/O  ANO  MAIT  FOR  COMPLeTION 

CR  exiTs  a TeRMiNATe  program  execuTioN 

OAM.CLASSIFY-MAP  a SYMBOLIC  MAP  OIRCCTIveS  TO  LINK  COIT  RCAL  ABSOL'iTC 
0AM. SYS'MAPOPT  a STANOARO  MAP  OPTIONS  MHCN  LINK  COITINO 


excepTioNS 


I.  ResuLTs  ARe  uNoeriNeo  unlfss  thc  fuc  oam.  is  aaso-o  a apRep-o. 


OLOBAL  OCCLARATIONS 


(PROORAM  TYPe  IS  pRe-LOAoeo  by  exec 
< S • ReAL  TlMe 
I 3 > LOW  exec 
( N • OeMANO 
( 9 • OeAOLINC  BATCH 
( 6 > BATCH 


INTO  ReoisreR  a>»  as  follows: 


(oxor  options  ARe 


pRCLOAoeo  BY  exec  into  ReoisTeR  as  in 


* 

it' 


OAH  PACKAOC  APPCNOIX  L 
HA IN  PROONANS/ routines 


CLASSirr/VlRTUAL 

ooe 


INASTER  BIT  NOTATION. 


LOCAL  DECLARATIONS 


AXRS 

S(OOI  . 0-BANK 

SSSH  TORN  0.6.6.18 

1 1 It  I t6SES8E333333*»<»t»>»Hi»SSSSSS6666667777778eee88999999 
LABSOr  SSSH  OSO.t.’P'.O  . LABEL.  I HO.  PORTRAN.  PICLOATA 

LABiNO  ••sorr«* 

NAPSOr  SSSH  000.9.0.0  . data.  9 UOS.  . riCLOATA 

HAPINO  ‘AXOTS:  HAP.PZN  OAH . CL ASS  I PY -MAP . CL  ASS  I PV  . :aXQTS’ 

AOOSOP  SSSH  000.9.0.0 


AOOIMO 

• 

aXOTS:  ADO 

OAH. SYS 

XQTSOP 

SSSH 

000.9.0.0 

XQTIMO 

• 

aXQTS:  XQT.I 

EOPSOP 

- 

0 

. 

PP 

PORM 

18.6.18 

CSPASO 

’AASO.T  80 

, . • 

CSFAOO 

'aAOO  80. 

. * 

SAVREO 

RES 

1 

lOPKT 

ISOO 

*80'. WS  33 

.LASSor 

PROCEDURE 


S(on  . 1 

-BANK 

CLASSIPY* 

LA.U 

AO.* 

TNE.U 

A4 .4 

SA.S8 

AO.MAPIMO*8 

LA 

AO. (CSPASO) 

ER 

CSPS 

, 

SA 

AO. SAVREO 

• 

PSRINT 

(PP  8.1 .SAVREO)  . 

OETOPT 

PUTOPT 

OS 

A8.XQT|mO*8 

SA 

A4.XQTIMC»4 

WRI  TE 

LA 

AO.dOPKT) 

PR 

tows 

ADO 

LA 

AO.(C$PAOO) 

ER 

CSPS 

ER 

EXITS 

END 

CLASSIPY 

-MAPOPT  . :0XQTS' 

CLASSIPV  . :aXQTS* 
ENO-OP-PILE  STOP  HORO 


. ’O’  0 


AO  • 

SKIP  NEXT  INST  IP  A>*<>>*  (NOT  OEHANDI 
OCMANOI  BLANK  OUT  N OPTION 
ADDRESS  OP  AASO  IMAOE 
00  IT 
STORE  a 

PRINT  aASO  status 

LOAD  OPT  LTRS  into  A8.A3.A4 

STORE  OPTION  letters  INTO  8XQT  IMAOE 
(3  WORDS  --  MAX  18  OPT  LETTERS) 

address  op  I (0  PACKET 
WRITE  SOP  IMAGES  TO  80. 

ADDRESS  OP  AADO  IMAGE 
DO  IT 


OAN  PACKAOC  APPCNOIX  L 
HAIN  PftOORAHS/ROUriNCS 


CLAtStrr*NAP 

001 


CLASSIPY  OVCRLAV  STRUCTURC 


HISTORY 


e H SCHLOSSCR 
e H SCHLOSSCR 
C H SCHLOSSCR 
C H SCHLOSSCR 
t H SCHLOSSCR 
HARY  rOHPKiNS 


LCC  0a/03/7<» 
LCC  07/IH/78 
LCC  10/30/70 
LCC  01/30/79 
LCC  10/10/70 

LCHSCO  ot/n/eo 


ORIOINAL  cooe 

CMANOC  OVCRLAVS  TO  RCOUCC  THRASHINO 
TOLCRANCe  COHHANO 
HACRO  COHHANOS  A M NC  COHHANO 
PCCK.  POKC.  IP.  PI 
CHANOC  OVCRLAYS 


B OAH. 


SCO  S'HAIN 
IN  OAH. CLASSIPY/ 
IN  OAH.NVIATO 
IN  OAH.NULSUB 
IN  OAN. SYS-BLOCK 


. HAIN  PROORAH 

. NAHC/CALL  ‘VIA'  ANO  'TO'  SUBROUTINCS 
. 00  NOYHINO 
. BLOCK  OATa  SUBROUTINC 


. uriLirtcs  POR  hain - - 

SCO  S-PLINPO* . (S-HAINI 

IN  OAH.PLINPO  . OCT  PILC  OCSCRIPTIVC  INPORHATION 

SCO  S-R3TASC*. (S'HAINI 
IN  OAH.CSTHAS  . CHARACTER  STRING  POR  ASCII 
IK  OAH.RSTRCC  . RCAO  ONC  RCCORO  PROH  TAPC  (UNiT  3 1 

. HONtrOR  POR  PHA8C  0.1. 0.9  COHHANOS  - 

SCO  S-CLA0109*  . (S-PUNP0.S-R3TkSC> 

IN  OAN.CLAOOO  . CALL  USCR -SPCC I P I CO  PHASC  0 ROUTINC 

IN  OAH.CLAI09  . CALL  PRCVIOUSLY  NAMCO  PHASC  WO'9  ‘TO*  ROUTInC 

IN  OAH-NTaBS/OAn  . OAH  UNIT  * TaBLC  OOCS  in  same  sec  W/  PORTAAN  I'O 


. utilities  POR  phase  0.I.O.9  COHHANOS 


SCO 
IN 
IN 
IN 
I N 


S-RCAOS* . (S-CLAOI09I 

OAH. READS  'READ'  INTO  UNIT  S 9UPPER 

OAH. GETS  ‘OET‘  PREE-PORHAT  PIELD  PROH  UNIT  S BUPPER 

OAH. WARNS  . PROCESS  WARNING  DIAGNOSTIC  POR  UNIT  S PIELO 
OAH. SPANS  . ENABLE/OISABLC  SPANKING  POR  UNIT  S 


SCO  S-OPNCLPR* . IS-CLA0IO9I 
IN  OAN.OPRCLA  . OPCN  ALT  PRT  PILE 
IN  OAN.CLOSPR  . CLOSE  ALT  PRT  PILE 


SCO  S-CALCROP* . (S-CLA0IO9* 

IN  OAH.CALSPA  . CALIBRATE  SPACING 
IN  OAH.CALHIN  . CALIBRATE  WINDOW 


L-OON 


OAN  PACKAOC  APPCNOIX  U 
MAIN  PPOOPAHt/ROUTINCS 


CLAtSirY-NAP 

002 


IN  OAH.CALCHA  . CALItRATC  CNANNCL  POINfCRS 


. PHASC  0.1. 2. 9 CONHANOS  IPORTRAN  I/O  ALLOUCOI  - 

SCO  8-XQTCXI* . IS-RCAOS.S-OPNCLPR.S-CALCROPI 
IN  OAH.CLAXQT  . CLASSIPY  I Nl T I AL I 2 AT  I ON  ROUTINC 
IN  OAN.CLACXI  . CLASSIFY  TCRHINATION  ROUTINC 

SCO  S-PSTART* . (S'XQTCXI I 
IN  OAH.PSTART  . OCNCRAL  I Nl T I AL 1 2AT I ON  ROUTINE 

SCO  S-0PCN3*.  (S-XQTCxn 

IN  OAN. OPENS  . OPEN  INPUT  SCAN  DATA  FILE  (UNIT  3) 

SCO  S«0P30SK< . (S*0PCN3I 

IN  0AN.0P30SK  . OPEN  INPUT  •>  DISK  IN  PXOOCF  FNT  (UNIT  31 
SCO  S-0P38IP* . (S-0PCN31 

IN  0AN.0P30IP  . open  NSS  data  in  BIP  FNT  (UNIT  31 
SCO  S-0P3H0P* . (S-0PCN31 

IN  OAN.OP3HOP  . OPEN  MSS  DATA  IN  HOP  FNT  (UNIT  31 
SCO  S-O3TORHOR«.(S-0P3HOPI 

IN  OAN.03TOR  . HOP  FNT  TAPE  OIRCCTORY  RCCORC  (UNIT  3) 
IN  0AN.03H0R  . HOP  FHT  HCAOCR  RCCORO  (UNIT  31 

SCO  S-03AN0T* . (S-0P3H0P1 

IN  0AH.03AN0T  . MOP  FHT  ANNOTATION  RCCOROS  (UNIT  31 


SCO 

IN 

S-038ZAH*. (S-OSANOTI 
0AH.03SZAN  . Size  ANO 

INPUT 

HI  NOON 

FOR 

AM 

tapes 

SCO 

IN 

S-03SZPN< . (S-03ANOT1 
0AM.03SZPM  . SIZE  ANO 

INPUT 

UINOOU 

roR 

PM 

TAPES 

SCO 

IN 

S-03SZAR* . (S-OSANOT) 
0AH.03SZAR  . Size  ANO 

1 nput 

HI NOOW 

POR 

AR 

tapes 

SCO 

IN 

S-03SZPR*. (S-03AN0TI 
0AH.03SZPR  . SIZE  ANO 

INPUT 

HINOOU 

FOR 

PR 

tapes 

SCO  S-03ANCL* . (S-0P3H0PI 

IN  0AH.03ANCL  . HOP  FHT  ANCILLARY  RCCOROS  (UNIT  3> 
SCO  S-LORCOO< . (S-XQText ) 

IN  OAH.LORCOO  . LOAD  RLOISTRATtON  PARAHCTCRS  FROM  UNIT  0 
SCO  S’CLOSTOP* . ( S'XQTCXI I 

IN  OAH. CLOSES  . CLOSE  INPUT  SCAN  OATa  FILC  (UNIT  3) 

IN  0AH.CLS02N  . CLOSE  OUTPUT  OCTCCTION  FILE  (UNIT  2N* 

IN  OAH.PSTOP  . OCNCRAL  TERMINATION  ROUTINC 

SCO  S-HCLP* . ( S-RCAOS.S-OPNCLPR.S-CALCROPI 
IN  OAN.KNOCLC  . CLEAR  UARNI NOS'CRRORS 


L-CPS 


. V t 


OAN  AACKAOe  APPCNOIX  L 
MAIN  PIIOOMANS/ROUriNCS 


ClAttirY-HAP 

001 


IN  OAN.KNOCXP 
IN  OAN.KNOPI 
IN  OAN.KNOIP 
IN  OAN.KNONCH 
IN  OAN.KNONCX 
IN  OAN.KHOOrr 
IN  OAH.KNOON 
IN  OAH.KHOPCe 
IN  OAH.KNOPOK 
IN  OAN.KHONCN 
IN  OAN. knot  IN 


CXPLAIN  PNOORAN/CONNANO 
CNO  IP. . .n  OLOCK 
OeOIN  IP... PI  OLOCK 
PRINT  NCHt 

CONOI r lONALLT  PCRPORN  NCXT  CONNANO 

TURN  OPP  NOOe  SNirCNICSi 

TURN  ON  NOOe  OHirCNlCSt 

PCCK 

POKC 

RCNUNOCR  lOCT/CNCCK  NCU  Ml  NOON  SCQUCNCC  NUHSCRt 
PRINT  CLOCK  TINC  A CHAROC  TINC 


« 


t 


SCO  S-OCONCTRV* . (S'RCAOO.S-OPNCLPR.S-CALCROPI 
IN  OAN.KNOUIN  . OCT/CHCCK  HINOOU  CNVCL OPC / VCRT I CCS 
IN  OAN.KNOCON  . 6CT/CNCCK  UTN  PROJCCTtON  TONC 


SCO  S>SPCCS-9« . (S-RCA09.S>0PNCLPR.S-CALCR0P) 

IN  OAN.KNOCHA  . OCT/CHCCK  RAM/ TRANSPORNCO  SCANNCR  CHANNCLCSI 
IN  OAN.KNONCA  . OCT/CHCCK  PAOC  HCAOlNO(S> 

IN  OAN.KNONAN  . OCT/CHCCK  TRANSPORNAT I ON/NA TCR I AL  NANC 
IN  OAN.KNOORI  . OCT/CHCCK  HINOOH  ORIOIN 
IN  OAN.KNORAO  . OCT/CHCCK  RAOIANCC  UNITS 
IN  OAN.KNOTOL  . OCT/CHCCK  TOLCRANCC 


SCO  S-NISC* .IS 
IN  OAN.KNOCOP 
IN  OAN.KNOLIN 
IN  OAN.KNOPAO 
IN  OAN.KNOPRI 
IN  OAN.KNOPOL 
IN  OAN.KNOSHA 


-RCAOS.S-OPNCLPR.S-CALCROPI 

. OCT/CHCCK  NUNBCR  OP  OUTPUT  COPICS 

. OCT/CHCCK  UNCAR  TRANSPORNA  T I ON  UC  I OHT  S/ OA I N/ 8 1 AS 
. SKIP  TO  TOP  OP  NCxr  PAOC 
. OCT/CHCCK  PRINTCR  SPCC I P I C A T I ONS 
. OCT/CHCCK  POLAR  TRaNSPORNA T I ON  OAlN/SIAS 
. OCT/CHCCK  SHARPCNINO  PILTCP  COCPPICICNTS 


A 


I 


i 

i 

] 


SCO  S'CXCC*. (S-RCAOS.S'OPNCLPR.S-CALCROPI 


IN  OAN.KHOXXX 
IN  DAN.KNOOAO 
IN  OAH.KNOOAS 
IN  OAN.KNOOOR 
IN  OAN.KNOOPR 
IN  OAN.KNOOLO 


NACRO  CONHANOS 
OTNANIC  lAOO 
OYNANIC  lASO 
OVNANIC  lORKPT 
OVNAHIC  IPRCE 
OVNANIC  ILOO 


SCO  S-CLAOCT* . IS-RCAOS.S-OPNCLPR. S-CALCROPI 
IN  OAN.CLAOCT  . OCreCT  RAOl ANCC/OCNSI rv/CLASS  (PHASC  01 


NONirOR  POR  PHASC  3.0.S  COHNANOS 

SCO  S-CLA3RS* .S-CLAOiaS 
IN  0AN.CLA3RS 


i 

t 

i 

i 


. UTILITIES  rOR  PHASC  3. **.5  COHNANOS 


SCO 

S>R03N0P« . 

IS'CLASRSI 

IN 

0AN.RO3BIL 

. RCAO  HSS 

Oata 

IN 

SIL 

PORHAT 

<UNI  T 

31 

IN 

0AN.R030S0 

. RCAO  HSS 

data 

IN 

BSQ 

PORHAT 

lUNi  r 

3« 

SCO 

S-R030IP*. 

IS>CLA349> 

L'COe 


OAN  PACKAOC  AMCNOIX  L 
NAIN  PROONAnS/ROUriNCt 


CLAttlfY'RAR 

OOH 


IN  0AN.R03RIR  . NtS  DATA  IN  HR  PORNAT  (UNIT  SI 

SCO  S*ROSOSKNUL«.lt<CLA3>»SI 
IN  0AN.R030SK  . OATA  ON  DISK  IN  RXIOCP  PORNAT 
IN  0AH.RO3NUL  . SYNTHCTIC  OATa  •-  NO  JNIT  3 


. RNASe  3. <*.8  CONNANOS  I NO  PORTRAN  I/O)  

SCO  S-CLAOC3*. CS'ROSHOR.S-ROSBIR.S-ROSOSKNULI 
IN  OAN.CLAOC3  . OCTCCT  RAOIANCC  IN  SCLCCTCO  CHANNCL 

SCO  8-CLAOCY* . IS*R03N0R.8-R0iBIR.S-R030SKNUL I 
IN  OAH.CLAOCH  . OCTCCT  BINARY  CLASS'  tCAMON  OCNSITv 

SCO  S-CLAOes« . (S*R03NOP.S-R03BIP.S*R030SKNUL I 
IN  OAH.CLAOCS  . OCTCCT  CLASS  USINO  PARTITION  TABLE 


uuuuuuuuuuuouuuuuuuuuoooouoouu  uuouuooouououoouuu 


0*n  ^ACKAOC  AMCNOIX  L 
MAIN  MOOMAHt/MOUriNCS 


CLAOOO 

001 


OUOOOUTINC  eiAOOO*  • CALL  uoco-omiricu  ONAOC  0 tUOIIOUTINCt  rOR  CLASOirr 


1 NAMOUOI 

8 

NANC  OP  SUOROUTINC  TO  CALL  lOR  NULSUOI 

NlSrORY 

C N 

SCMLOSSCR 

LCC 

OS/fY/73 

ORIOINAL  COOC 

C M 

SCMLOSSCR 

LCC 

00/07/70 

OCLCTC  RCTN  K’S  S NUMCRIC  OPTIONS 

C N 

SCMLOSSCR 

LCC 

10/30/70 

TOLCRANCC  CONMANO 

C N 

SCMLOSSCR 

LCC 

01/10/70 

MACRO  COMMANOS  8 TIMC  COMMA 

C N 

SCMLOSSCR 

LCC 

11/30/79 

PCCK.  POKC.  IP.  PI 

nCTHOO 


RCTOievC  NCXT  CONNANO.  VALIOATC  IT.  ANO  CALL  I T«  SUOROUTINC. 


NACMlNC'OCACNOCNr  COOC 


NONC. 


CxrCRNAL  OCrCRCNCCS 


OCA09 
ocrsAL 
INTCOCR 
WARNS 
CLA. . . 
KNO. . . 


• RCAO  RUNCMCO  CARO  OR  TCRHINAL  INPUT 

• OCT  ALPHAOCTIC  COHNANO 

ICC  I iNreocR*CHAR>eoui V por  cnaractcr 

• PRINT/LOO  UARNINO  NCSSAOC 

A OCDICATCO  SUOROUTINC  fOR  COHHANO  ...  >$CC  RCLOHI 
8 COMMON  SUOROUT'.NC  POR  COHMANO  ...  <SCe  OCLOMI 


CXCCPTIONS 


I.  A ILANK  CONMANO  IS  tONORCO. 

f.  AN  Invalid  COnmano  OCncratcs  a oiaonostic. 

j.  AN  ^NO'OP'PiLC  on  unit  s is  trcatco  thc  samc  as  thc  exit  command. 


OLOOAL  OCCLARATIONS 


INCLUOC  NULCST.LIST  8 OCPINC  NULL  CNARACTCR  STRING 

c 

C 

C LOCAL  OCCLARATIONS 
C 


L-809 


M O O U 


OAM  AACKAOC  AAACNOU  L 
MAIN  AAOOMAHt/AOUriNCt 


CLAPOe 

oot 


INTCPCN  KONO 
INTCOCA  LStTAr 
INTCPCN  KAtC 


e NNOCCOUNC 


• riNtT  I CNANf  or  UtCN  CONNANO  HLANK  AfTCN  OONC 
p NCAM  trATwt  **cor*  nCANt  CNO*or-rtLCi 
p Rooirico  i*c-c  or  riNpr  cnan  or  connano 


e CALL  MCVIOUPLY  NANCO  tUONOUTlNC 
C 


CALL  TNACC 

CALL  NANPUO  • CALL  TO  NUIPUO  OOCS  NOTMINO 


C 

c 

C NCAO  eONHANO  CNOH  UNIT  9 ICANO  NCAOCN  ON  rCNHINAU 
C 

KONO**  NUL*  P INPOttlOLC  INPUT  INOT  LCfT  JU9TIPICOI 

CALL  NCAOOILSPTAT.  * *l  • riLL  OUfrCN . plank  Cue  NCStAOC 

ir(LS«rAT.NC. * *1  KONO**CXI‘ 

IPIKOHO.NC. ’C»l*l  CALL  OC T9AL (KOMO. I ]l . NULCSTI  P OCT  | ALPHA  CHANS 
C 

c 

C eONVCNT  PINpr  CHANACTCN  OP  CONNANO  TO  I NTCOCN-CHANAC TCR-CQUI VALCNT 
C 


KASC>ICC(KONO> 'ICC! *A*  1*1  P A TO  Z • I TO  CO 

c 

c 


c CASC  STATCNCNT  ON  NOOIPICO  ICC  OP  CONNANO‘9  PINST  CHANACTCN 
C 

IPI IKA9C.lt. II .ON. IKASC. OT.COM  KA9C-C7  PNOT  ALPHA 
00  TO  I 

0 *>0I  .i«0C.<*0S.**0H.i*O9.<»0P.**07.<*0O.**09.  /IC. 

1 HU  .<*IC.‘*ll.i||i».<«lS.i*10.<*17.i*l0.t»l9.i»C0. 

C 1CI  .•*CC.PCS.>»C4.>»C9.'*CS.HC7i 

P .KASC 


OCTCNNINC  CONNANO.  PCNPONN  CONNANO.  CHANOC  KONO  TO  OLANK 


•*01  continuc  a«*«  a 
•*0C  continuc  P««*  0 
00  to  iOO 
c 

•*03  continuc  P***  C 

IPIKONO.CO. ’CMA' I CALL 
iriNONO.ro.  *CLC  I call 
IPIKONO.CO. 'COP* I call 
00  TO  OOP 

c 

•*o^»  continuc  P««*  0 

IPIKONO.CO. 'OCT* I CALL 

00  to  109 

c 

•*09  CCNTInuC  P*<*  C 


KNOCHAIKONO) 
KNOCLC 'KONOI 
KNOCOPIKONOI 


claoctikonoi 


p C^annCL 
P CLCaA 
P COPiCS 


P OCTCCT 


L'ClO 


0*H  PACKAOC  APPCNOIX  L 
MAIN  PKOOftANS/ROUriNCS 


ctAooe 

oos 


irCKOHO.CQ. *exi*i  call  CLACXI (KONOI 
irtKOHQ.CQ. *CXP*>  CALL  KNOeXPtKONOI 
00  TO  000 

e 

•»oo  eoNTiNue  •«<«  r 

irtKono.eo. *ri  *i  call  xHori  ckonoi 
00  to  000 
c 

•»0T  CONTINUe  0 

00  TO  eoc 
c 

•»oe  continue  a*<«  h 

irtKONO.eO. *HEA* I CALL  KHOHEAfKONOt 
00  TO  000 
C 

•»00  CONTINUE  I 

iriKONO.EQ. * tr  ‘I  CALL  KHOIF  (KONOI 
00  TO  000 

c 

•MO  CONTINUE  J 

•Ml  continue  8««*  K 
00  TO  000 
C 

•MS  continue  »•**  L 

irCKOHO.EQ. *L IN* ) CALL  KNOLIN(KOHO) 
00  TO  800 
C 

•MS  continue  a**«  n 
00  TO  000 

c 

•»!•»  continue  8«««  N 

iriKOHO.EQ. 'NAN* > CALL  KHONAHCKOHOI 
irCKOHO.EQ. *NEU* I CALL  KHONEHIKOHOI 
ir(KOHO.EQ. *NEX* I CALL  KHONEXCKONOI 
00  TO  800 
C 

•MS  continue  8*««  0 

ir(KONO.EQ. 'orr* I call  KNOorrcxoNOi 
iriKOHO.EO.  *0N  *1  call  KM00N(K0I10I 
triKONO.EQ.  *ORI  * 1 CALL  KNOORUKOHOI 
00  TO  800 
C 

•MO  continue  a««*  p 

irCKOHO.EQ. *PAO* I CALL  KHOPAOIKONOI 
trCKONOEQ. 'PEE* I CALL  KMOPE£(XOnO> 
irtKONO-EQ. *POK* I CALL  KNOPOX ( K3N0 > 
IF IKONO.EQ. *POL * I CALL  KNOPOLtXONOl 
IFCKONO.EQ. *PRI * I CALL  KHOPRI (KONOI 
00  TO  BOO 
C 

•M7  continue  a«««  Q 
80  TO  000 
C 

•MO  continue  a«*«  R 

IFIKONO.EO. *RA0* I CALL  CLARAOIXONOI 
00  TO  800 


• EXIT 
a EXPLAIN 


a FI  (ENOIFI 


a HEAD I NO 


a IF 


a LINEAR 


a NANE 
a NEWS 

a NEXT 


a OFF 

a ON 

a ORIGIN 


a PAGE 
a PEEK 
a POKE 

a POLAR 
a PRINTER 


a RADIANCE 


L-StI 
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OAH  PACKAOe  AF»CNOIX  L 
MAIN  PROORANS/NOUTINCS 


CLAOOO 

00« 


u 


e 

•»I9  CONTINUE  S 

irtKOHO.CQ. ‘SHAM  CALL  KHOSHAIKOHOI 
00  TO  800 
C 

•»oo  continue  ••••  T 

IPIKOHO.EQ. 'TIN* I CALL  KNOTlNIKOHOt 
iriKONO.EQ. *TOL* t CALL  KNOTOLIKONOI 
00  TO  000 
CONTINUE  ••••  U 

•»EE  CONTINUE  V 

00  TO  800 
C 

•*03  CONTINUE  M 

IPCKONO.EQ. ‘HIN* I CALL  KHOHINIKONOI 
00  TO  800 
C 

•»8*»  CONTINUE  a«*«  X 

•*09  continue  •«*«  r 
00  to  000 
c 

•*88  CONTINUE  Z 

iriKOHO.EQ. 'ZON* 1 CALL  KNOZONIKOHOI 
00  TO  000 
C 

•*87  continue  a*«*  NOT  ALPHABETIC 

iriKONO.CQ. *aAO' I CALL  KNOOAO(KONO> 
iriKOHO.EQ. '$A0* I CALL  KNOOAOIKONOI 
iriKONO.EQ. 'SAS' I CALL  KNOOAS(KOHO> 
iriKOHO.EQ. 'SON' I CALL  KHOOSRCKOHOI 
iriKOHO.EQ. *$PR' I CALL  KHOOrRIKOHO) 
iriKOHO.EQ. 'SLO' I CALL  KNOOLOIKOHOI 


a SHARPEN I NO 

« 

« 

a tine 

a TOLERANCE 


« 


a HI  NOON 


a ZONE 


a aAoo 
a $Aoo 
a SASO 

a $BRKPT 

a srREE 
a SLOO 


ir  COHHANO  MAS  NOT  rOUNO.  TRY  HACRO-COHHANO 


000  iriKOHO.NE. * 
iriKOHO.NC. * 


•>  KUHO-'CLA-'  a 1ST  3 CHARS  Or  PROO  NAHE  PLUS 

'I  CALL  KHOXXXIKOHOi  i HACRO  COHHANO  HANDLER 


COHHANO  IS  INVALID 
iriKOHO.NE. * 


ir  still  NOT  rouNO 

‘I  CALL  UARN9I 'INVALID  COHHANO 


• I 


rORCE  ALL  rORTRAN  I/O  ROUTINES  INTO  SEO  WITH  CLAOOO  'NEVER  PERrORHEO> 

iriKOHO.EQ. ‘JUNK* I REA0I89S.89SI  KHO 
089  rORHATlIX) 

C 

C 

C RETURN  TO  RAIN  rOR  CALL  VIA/TO  NAHEO  SUBROUTINE  IN  ANY  OVERLAY 
C 

RETURN 

ENO 


« 
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OAH  ^ACKAOe  AMCNOIX  L 
MAIN  MOORAHS/ROUriNCS 


CLAICR 

001 


OUOROUriNC  CLAIOOl  • CALL  RRCV  NANCO  RM  l't/0  *TO*  ROUTINC  fOR  ClAtttrY 
I NANOUOl  0 NANC  Of  OUOROUriNC  TO  CALL 


(C  H SCMLOSSeR) 


CALL  PRCVIOUSLY  NARCO  SUOROUriNC 

CALL  TRACC 
CALL  NAHSUe 


RCrURN  TO  RAIN  POR  CALL  VlA/TO  NARCO  8UBROUTINC  IN  ANY  OVCRLAY 

RCruRN 

CNO 


L-ei  J 


ooououc*  ouuu 


OAH  PACKAOe  APPCNOIX  L 
MAIN  MOOMAHS/AOUriNCt 


CLAXHS 

OOt 


tumour  INC  CLAmti  • caal  MtAte  B/«/t  tumour  incs  ro«  cLAtttrr 

I NANtUtI  • NANC  Or  tUOROUriNC  ro  CALL 


ce  H tCHLOttCRI 


CALL  RRCVIOUSLY  NAHCO  SUBROUriNC 

CALL  TRACe 
CALL  NAHSUB 


RCTURN  ro  NAIN  FOR  CALL  VIA/rO  NARCO  SUBROUTINC  IN  ANY  OVCRLAY 

RCruRN 

CNO 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


OAH  AACKAOe  AAPCNOIX  I 
MAIN  PMOOMAHS/ROUTINCS 


CLAOCr 

001 


ouooouriNC  ctAocrt  • iNiriArc  ocrcertON  % ocNCNAriON  op  ocreenoN  pilc 
U KONOt  • It  PIROr  S CHARO  OP  CONNANO  Ot  SRACCS 


NISTORY 

e 

N 

SCHLOSSER 

LEC 

IB/IB/ 7H 

E 

M 

SCNLOSSER 

LEC 

06/C0/7B 

c 

H 

SCHLOSSER 

LEC 

03/ 13/70 

e 

N 

SCNLOSSER 

LEC 

IB/BB/79 

E 

H 

SCHLOSSER 

LENSCO 

OS/IB/BO 

E 

H 

SCNLOSSER 

LEHSCO 

09/87/S0 

nCTMOO 


ORtOINAL  coot 

OCLCre  RCTN  K A aoo  orrpic 
*OCN’/ 'RAOWCLA*  spccipications 
CALL  CALCHA  A CHK  TOR  *0L0*  KLSTYP 
NULTI •CHANNCL  RAO  OeTCCriON  PILCS 
PRINT  CLASS  HOO  'APTCR*  OPNOON 


CHCCK/CALIORAre  SPECS.  OPEN  OETECTION  PILE.  THEN  NAME  CLA0E3/N/S  TO 
OENERATE  DETECTION  PILE. 


nachine-oepenoent  code 


NONE. 


EXTERNAL  REPERENCES 


OETSKM 
OETSIN 
NOHARN 
NVIATO 
OPRCLA 
SLNCLA 
CALSPA 
CALMIN 
CALCHA 
HOUNIT 
CL  SHOO 
0PN08N 


• GET  CHARACTER  STRING  DATA  PIELO  PROH  UNIT  S 
A GET  integer  OATA  PIELO  PROP  UNIT  S 
a PRINT/COUNT^LOO  ‘HARNINO*  DIAGNOSTIC  HESSAOE 

a NAHE  ‘VIA*  ‘TO*  subroutines 

a open  alternate  print  pile  por  classipt 

a ‘PLOT'  ion  printcri  spectral  limits  por  classipv 

a CALISRATC  TRANSPORHAT  ion  COEPPICIENTS  rOR  SPACI^iO 
a CALIBRATE  UINOOU  ENVELOPES 
a CALIBRATE  CHANNEL  POINTERS 
a WRITE  HEADING  LINEISI  AT  TOP  OP  NEXT  PAGE 
a WRITE  COHHON  CL  ASS  I P I C A T I ON  HEADING 

a open  output  oetection  pile  iunit  gi.  ae.  as.  or 
VIA  TO 


EXTERNAL  CLAOOG.  NULSUB 

external  CLASNS.  CLaOES.CLAOEX.CLAOES 


C 

c 

c 

c 

c 

c 

c 

c 

c 


EXCEPTIONS 


I.  ‘DETECT*  NAY  NOT  BE  A OEPAULT  CONNANO. 

a.  ANY  WARNINO  OR  PATAL  ERROR  PREVENTS  GENERATION  OP  THE  DETECTION  PILE. 


L-ets 


o o o o o o u o u o 


OAN  f»ACKAOC  AMCNOIX  L 
MAIN  mOORAHt/ROUriNCt 


CL  AWT 
OOC 


e I.  tNC  rOLLONINO  CXeCRTtON  eONOiriONS  raooucc  THC  rOLLONlNO  RCtULTf 


c eoNOirioN 

c 

e 

c raoecttiNO  oerAULr  connanos 

C (NHNOOM-0> 

e KLSTYR  tPCCiriCATION  nissino 
C KLtrVR  SPCCIf ICATtON  INVALID 

e NOurcH  sKCiriCAnoN  nissino 

C NOUrCH  SRCCiriCATION  < 1 
C NOUrCM  SRCCiriCATION  > NLINCH 
C EXTRA  SPEC irt CAT  I ON 
e OATA/CHECKOur  NODE 
C NARNINOiS)  OR  PATAL  ERRORISt 


action  OlAONOSTir 


NONE 

HARNINO 

KLSTVP«*0CN* 

NONE 

NONE 

HARNINO 

NOUTCN*! 

NONE 

NONE 

HARNINO 

NONE 

HARNINO 

NONE 

HARNINO 

‘VIA’  routine 

IS 

CLAOOO 

NONE 

‘VIA*  routine 

IS 

CLAOOO 

NONE 

c 

c 

C OLOBAL  DECLARATIONS 

C - 

C 

include  KONXQT.LIST 
INCLUDE  KOHNER.LIST 
include  KONKLS.LIST 
include  uindep.list 

INCLUDE  KONlHH.LISr 
INCLUDE  KONOHU.LIST 
INCLUDE  NULCST.LIST 


• CONNON  PROORAH  EXECUTION  SNITCHES.  COUNTERS 

• CONNON  CRTS  SCENE  PARAHCTCRS 

• CONNON  CLASSIPICATION  INPO 

a OCriNC  STRUCTURE  OP  HINOOH  PACKETS 
a CONNON  INPUT  HINOOH  PACKETS 
a CONNON  OUTPUT  HINOOH  PACKETS 
a OEPINC  NULL  CHARACTER  STRINO 


LOCAL  DECLARATIONS 


INTCOER  INTENP  a 


PROCCOURC 


CALL  trace 
C 
C 

C OCT/CHCCK  type  op  PIRST  OUTPUT  DETECTION  CHANNEL 
C 

IPINHNOOH.EQ.OI  CALL  HARNSI  ‘INVALID  OEPAULT  COHNANO‘1 

klstvp*’oen*  a oepault  is  detection  op  binary  class  density 

CALL  OCTSKNIKLSTYP. ( 31 . NULCSTI 
IPIKLSTYP.NC.  *RA0‘ > 00  to  2<*0 

CALL  NVIATOI  CLA3<*8.CLA0CS>  a RADIANCE  --  NEXT  CALL  IS  TO  CLA0C3 
00  TO  300 

e«0  IPIKLSTYP.NC. 'OEN*l  00  TO  ESO 

CALL  NVIATOI  CL A3HS . CL AOE<* I 0 DENSITY  ••  NEXT  CALL  IS  TO  CLAOEH 

00  TO  300 

BSO  IPIKLSTYP.NC. ‘CLA’ I 00  TO  ISO 

CALL  NVIATOI  CL A3N5.CL AOESt  0 CLASS  ••  NEXT  CALL  IS  TO  CLAOES 
00  TO  300 

too  CALL  HARNSI  ‘BAD  DETECT  TYPE  -•*! 


L'Bie 


OAH  PACKAOC  APfCNOtX  L CLAOCT 

MAIN  MOOKAHS/MOUriNCS  OOB 


e 

c 

e ocr/CHK  NuneCN  or  ourrur  oereerioN  channclb  a okain  met  ton  curocnt  coimano 
e 

BOO  NOUrCH*! 

CALL  OCTtlNtNOUrCM. 

• I.NLINCH. 

A ’none  ourpur  channcls  tnan  mcineo  oy  cmanncl  cohhano  •-*> 

IPKKLSTYP.NC.  'RAOM.ANO. 

A (NOUTCH.NC. II > CALL  NOUAPNI 

• ‘hultI'Cnanncl  ocn/cla  oerecrioN  pilcs  not  inplcncntco* i 
CALL  octsiniintchp.  »i.-t.*exrRA  oerecr  mcincArioN  --*i 

c 

c 

C CHCCK  NAOUNCe  LIHIT8 
C 

iriLCVLOt.Or.LCVHin  call  NOUARNI  *N0  RAOIANCC  LINITS’I 
iriNOATAC.NC.OI  00  TO  900  I OATA/CHCCKOUT  HOOC 

e 

c 

c OPCN  PRINT  riLC  ir  NOT  OPEN.  CLEAR  MINOOH  NUHOER  A RESET  PAOE  NUHOER 
C 

iriNHNOOH.LT.OI  CALL  OPRCLA  0 OPEN  ALT  PRT  PILEISI  OEPORE  1ST  UINOON 

NUNOOH> I AOS ( NUNOOUl 

NPAOE*0 

c 

c 

C PLOT  spectral  LIHITS  A CALIBRATE  UINOON 
C 

CALL  SLHCLA 
CALL  CAL8PA 
CALL  CALUINI  0.1 
CALL  CALCHA 
C 

c 

c ELIHINATE  ANY  PART  OP  NSA  OUTPUT  UINOON  OUTSIDE  OP  HSA  INPUT  UINOOU 
C 

NSAOUUIULIN.UMINI •HAXO I NSAOUU I UL I N . UNI N I . NSA I UUI UL I N . UNI Nl t 
NSAOUUIULIN.UNAXI *N I NO C NSAOUU I UL IN. UNAX  I . NSA I UUI UL I N . UNAX  I 1 
NSAOUU(USAN.UNINI«NAXO(N$AOUU(USAN.UN1NI .NSAtUUIUSAN.UHlNI ' 

NSAOUU I USAN. UNAX  I «N 1 NO  I NSAOUU I USAN. UNAX  I . NSA I UU I USAN. UMAX  I ) 

c 

c 

C ANY  NSA  data  AVAILABLE  POR  OUTPUT  UINOOU?? 

C 

IPi (NSAOUUIULIN.UMINI . OE . NSAOUU I UL I N . UMAX ) I .OP. 

I INSAOUUtUSAN.UNINI .OE.NSAOUUIUSAN.UMAXI I I KLSTVP*'NUL' 

IPIKLSTYP.EO. *NUL ’ I CALL  NOUAPNI 
> *N0  SCAN  data  UIThIN  UINOOU’I 

c 

c 

c OPEN  OUTPUT  DETECTION  PILE 
C 

IPINOTOTL.NE.QI  00  TO  BOO 

CALL  OPNOBN  • OPEN  NEU  OUTPUT  DETECTION  PILE  OR  CHECK  EXISTINO  ONE 
IPIKLSTYP.EO. *OLO*I  a IP  DESIRED  DETECTION  DATA  ALREADY  IN  ’OLD*  PILE 


L-BI7 


I 


>Ci 


IX 

INI 


CLAOCr 

OOH 


A CALL  NVIATOI  CLAOOO .NULtUH  A ...  tNCN  ACCEPT  ITU 

IPINALTH.Or.OI  CALL  HOUNITI  A.IOI 

tPINALTN.OT.OI  CALL  CLSHOQI  101 

C 

c 

C ANY  OlAONOOrtCOT? 

C 

000  IPINOrOTL.CQ.OI  00  TO  000  A fONOC  ANCAOI 
CALL  NVlATOt  CLAOOO.NULtUOl 
IPINOrATL.CQ.OI  00  TO  OCO 
CALL  NONOrei 

> 'TATAL  CMOAO  --  NO  OCTCCTION  PILE  OENENATEO't 
00  TO  990 

990  IPINOUARN.EO.OI  00  TO  990 
CALL  NONOTEf 

• 'PREVI0U9  HARNIN09  --  NO  OCTECTtON  PILE  OENERATEOM 
irtHOATCN.EQ.OI  MRirE«0.999> 

999  PORHATIHX. '••try  AOAINI ’ t 

C 
C 

C RETURN  POR  CALL  TO  NAHEO  9U0R0UTINE 
C 

990  KOHO«* 

CALL  HOCLRUI  NULCSTt 

RETURN 

ENO 


L-910 


o 


DAN  PACKAOC  APKNOlX  L CLAWS 

HAtN  PROORANS/ROUriNCt  001 


tUOROUriNC  CLAWS  « OCNCRATC  RAOIANCC  WTCCTIOR  PUC 


•- 


HttroRv 


0 


c 

N 

SCNLOSSCR 

Lce 

0S/IS/7B 

c 

H 

SCNLOSSCR 

LCC 

IC/CS/7S 

c 

N 

SCNLOSSCR 

LCC 

OS/ 16/00 

ORIOINAL  COOC  WITH  *CMR'  RINf 
PXOOCr  PORHAT  OUPPCR  M/  ‘OVT*  RlNS 
NULTI-CHANNCL  RAO  OCTCCTION  PILCS 


NCTHOO 


RCAO  nOA  PIXCL  RAOIANCC  DATA.  SCRCCN  CACH  PlXCt  AOAINfT  tPCCTRAL  LIHITS 
rOR  CURRCNT  CNANNCLCS*.  AND  POST  RAOIANCC  POR  PIXCLS  UNICH  PASS  TO 
OCTCCTION  PILC. 


( 


NACHINC'OCPCNOCNT  COOC 


ASSUHCS  <*  OYTCS  PCR  INTCOCR. 

ASSUNCS  (0  UNI  VAC  UOROS  PCR  UNI  VAC  PAtTRANO'PORHATTCO  01 SK  SCCTOR. 


CXTCRNAL  RCPCRCNCCS 


! 


t 

I 


* 


C HOVIST  • NOVC  INTCOCR  STRING 

C OCTRAO  • OCT  RAOIANCC  IN  ALL  SCLCCTCO  RAM/ TRANSPORNCO  CHANNCLS 

C NONOTC  • PRINT/LOO/COUNT  *NOTC’  OlAONOSTIC  HCSSAOC 

C NOPATL  • PRINT/LOO/COUNT  *PATAL  CRROR*  OlAONOSTIC  NCSSAOC 

C PXtONP  • OUNP  PRCAHBLC  OP  PIXCL  OUPPCR 

C OCTiVT  • OCT  NON'NCOATIVC  NUNSCR  PROH  SVTC  STRING 

e PUTSTT  • PUT  NON'NCOATIVC  NUNSCR  INTO  OTTC  STRING 

C CRIO  • INITIATC  I/O 

C CRHAIT  • HAIT  POR  COHPLCTION  OP  PRCVIOUSLV  INITIATCO  WO 

C NVIATO  • NANC  'VIA*  ‘TO*  SUOROUTINCS 

INTCOCR  NSVNI  a NUNSCR  OP  OrTCS  POR  NUNSCR  OP  INTCOCRS 

OOUBLC  PRCCISION  COSVCS  I VARI aSLC 'LCNOTm  CHAR  STRING  POR  PIXCO-LCNOTh 

OOUSLC  PRCCISION  C0S4IN  • VARI ABLC-LCNOTH  CHAR  STRING  POR  INTCOCR 

C VIA  TO 

CXTCRNAL  CLAOOO.  NULSUO 


CXCCPTtONS 


I.  IP  THC  NUNSCR  OP  OUTPUT  OCTCCTION  CHANNCLS  RCQUCSTCO  IT  NOUTCH  IS 
ORCATCR  Than  THC  NUNBCR  op  OCTCCTION  SUPPCRS  AVAILASLC.  ThCN  A 
'UARNINO*  IS  OCNCRATCO  ANO  THC  ROUT  INC  RC TURNS. 


i.  *OAOP*  OR  *OPL*  ON  RCAOINO  INPUT  OATA  OCNCRATCS  A 'PATaL  CRROR’  ANO 


L-eis 


OAH  AACKAOe  AAPCNOIX  k 
MAIN  AROORAHt/ROUriNCt 


CkAKI 

oot 


e rNC  MouriNC  ncruRiit. 

G 

e 

e OkOtAL  OCCkAftAriONt 

c — 

e 

INGkUOC  KONXQT.kItr  • COHNON  MOOAAN  CXCCUTION  tMlTCHCt.  COUNTCAG 

INCkUOC  KONNCA.kItr  • COHNON  CRTt  tCCNC  NANANCrCNt 

INCkUOC  KONKkt.kISr  • CONNON  CkAOtiriCATION  INfO 

INCkUOC  KONrir.ktor  a connon  AOuutrNCNT/NCoisrNAnoN  OArAHcrcNO 

INCkUOC  uiNocr.kisr  a ocriNC  structunc  or  uinoom  RACKcrs 

INCkUOC  KONIHH.kItr  a connon  INRUr  uinoom  PACKCrc 

INCkUOC  KONOUU.kISr  a connon  output  UINOOM  PACKCTS 

INCkUOC  konoct.lict  a connon  octcction  rikc  hinooms 

INCkUOC  KONkCN.kIfT  a CONNON  I/O  PACKCTC  TOR  0CT£CT|0N  rikCS 

INCktMIC  KONIO.kIST  a CONNON  I/O  fUNCTIONf 

INCkUOC  KOHSkN.kIST  a CONNON  CkAOtiriCATION  tPCCTRAk  kINITt 
INCkUOC  Pxoocr.LifT  a ocriNC  pixck  turrcR  otructurc 

INCkUOC  NAXINT.klOT  a OCriNC  NAXINUN  INTCOCR 

C 

c 

C kOCAk  OCCkARATIONt 

C 

C 

paranctcr  NNOurt  *0  a • or  noa  pixck  aurrcRO  in  array 
C INTCOCRt  IN  NOA  »UF  • •INTO  PRCAHOkC  * («aiNt*S>/H  * (•CXTRA  trTCS*SI/4 

paranctcr  IIHOUr  • (PXOINt*n  • l3SR0*Xt/*i  * (IO*il/<» 

INTCOCR  HOAOuri I iNRur.NNouroi  a ARRAY  or  NOA  pixCk  aurrcRt 

INTCOCR  NOINSOINHOUrt*  I OIN  • OF  OANPkC  0 rOR  CACH  NOA  tUrrCR 

C 

PARANCTCR  NORUrO  • OF  OCTCCTION  PIXCL  OurrCRO  IN  ARRAY 

C INTCOCRt  IN  OCT  tur  • PINT!  PRCANtkC  • (•OINt^lWH  * «CXTRA  INTO 

PARANCTCR  llOOUr  • «PXOINt<>U  • ( 30Ht*C*3> /H  • I 
INTCOCR  locTori I iOOur.NOOurtt  a array  or  octcction  Pixck  turrcRt 
INTCOCR  ItORCC  a INTCOCRt  IN  I OCTCCTION  RCCORO 

C 

INTCOCR  lOCTIPXOINtI  a OCNCRAk  tHORT  OCTCCTION  tUrrCR 

C 

INTCOCR  NOUTC  a OUTPUT  CHANNCL  NUNtCR  (I  TO  NOUTCHI 

C 

INTCOCR  Nour  a turrcR  nuhocr 

INTCOCR  NORCC  a octcction  RCCORO  NUHOCR 

c 

INTCOCR  NtAkIN  a CURRCNT  N|A  L I NC  NUHOCR 

INTCOCR  NtALHN.HtAkHX  a HlNIHUH.  HAXIHUH  H$A  L I NC  IN  OUTPUT  WlNOOU 

INTCOCR  Nt«tAH  a CURRCNT  HtA  SAHPkC  NUHOCR 

INTCOCR  HCAtHN.NtAtHX  a HlNIHUH.  HAXIHUH  HfA  lAHPLC  IN  OUTPUT  UlNOOU 

INTCOCR  NtAtkO.HtAtHI  a kOU.  NlOH  OCPINCO  HtA  tAHPkC  IN  CURRCNT  L I NC 

e 

INTCOCR  lOCtIN.IOCOHI  a CURRCNT.  NlOH  OCTCCTION  tlN  NUHRCR 
C 

PARANCTCR  NOINRA«ft*»  $ RAOIANCC  OCTCCTION  PIXCk  *N0  INPO'  rkAO 

PARANCTCR  NOOARA«Ctt  0 RAOIANCC  OCTCCTION  PIXCk  ‘NO  DATA*  TNRCtNOkO 

C 

INTCOCR  lOtTC  a I/O  tTATJt  COOC 


k-CCO 


o 


OAN  PACKAOC  A^WNOIX  L MAOCI 

MAIN  raOONAnf/ROUTINCt  001 


oNoecoufic 


CALL  rOACC 


iNiriALizc  NiNinuH/nAXimm  ocan  linco/oanplco  a ocrccnon  oceoiio  lcnoth 


t 


( 


ir(NourcN.or.NOiuroi  call  nomaoni 

• *N0RC  ourot^r  oercenoN  cnannclo  than  ourrcRO'i 
IPtNOUrCH.Or.AI  call  HOWAONt 

• 'None  ourpur  ocrceriON  channclo  tnan  PACKrro*i 
iPiNororL.NC.oi  oo  ro  ooo 

HOALNN>NOAOUU  I Ul.  I N . UN  I N . NCC  T I 
NOALNX*NOAOUUI Ht I N. HNAX . NCC  T I 
NOAONN«NOAOUU( MOAN. UNt  N. NCCr I 
HOAONX •NO AONH I HO AN . UN AX . NCC T t 

c 

c iNreocM  (N  oer  ncc  • vints  nncanolc  * l•■lNO*Xl/•» 

IIONCC  • fNXOINS*|l  •INtAtNX*NCAtNN*S*|l/H 

C 

IfMIORCC.Or.  ItOOUPt  CALL  HOPATLI  ’IIONCC  > IIOOUP  INCLAOCX’I 
LoerNS(NCcri«(  I ioNCC*t7woo  • coNvCRr  ocrecr  ncc  lcnotn  to  uni  vac  scctons 
c 
c 

C INiriALIZC  CHANNCL  SUITCNCS 

c 

NLINCM«A 

AOOION  Sto  TO  LCMMM 
IPILlNCNItl .LT.Oi  00  TO  ISO 

AOOION  seo  ro  lccowh 

NLINCH*! 

00  TO  100 

ISO  AOOION  SSO  ro  LCSOUN 

IP(LINCN(S» .LT.Oi  00  TO  IVO 
AOOION  SOO  TO  LCSOUN 
NLINCN*C 
00  TO  100 

l«0  AOOION  SHO  TO  LCVOUN 

IPILlHCMf'*)  .LT.OI  00  TO  tOO 
AOOION  SOO  TO  LCVOUM 
NL INCHES 
100  CONTIN  X 
100  CONTlNue 

c 

c 

C INITIALIZC  NNCAHtLC  IN  OCNCRAL  ONONT  OCTCCTION  OUPPCN 

c 

lOcriPXNCCNi *0 
IOCriNXLINO>*0 
IOCTINXCNANI*! 

IOCTINXOUALt«0 

lOCriNXilNTla’tTT* 

IOCTlNXLtlNI>C 

IOCriNXL0ANI>0 


c 


I -Of  I 


SAN  fACKAOC  AmNOU  L 
MAIN  MOORAHt/ROUfiNCt 


Cl.  ARCS 
eoR 


IOCriRXNttRI«0 

IOCriR»NtARI*« 

ieCriRXNQINI>ROINRA 

I ocr I RXNOOA I «ROOARA 

IOCriRXLJOIt*0 

IOCTtRXMJOII*0 

e 

e 

c iNiriALtfC  RiNt  IN  OCNCRAL  tNORT  ocrccrioN  turrcR  ro  *no  into*  rt.Aot 
c 

lOCRNUNtNNim 
00  170  IOCOIN«l . lOCOHI 

CALL  NurOYritOCriRXtlHfl  .MOCOINI  . NOINRAi 
170  CONflNUC 

c 

e 

e 

C RCAO  NOA.  ClAOSirY,  MRtTC  TO  OCTCCTtON  flLC  fRON  LINC  NtAlNN  TO  NtALNX 

e 

00  700  nOAUN«NtALHN.NOALHX 

e 

e 

C --  RXAO  INRUr  NOA  DATA 

e 

CALL  OCrRAOINOAOUf. < I IHOuri . INHOUrOI . lottc. 

• NOALIN.NtAONN.nSASNXI 

iriMOsrc.NC.  *tAor*i.ANO. 

I iiotre.NC.’orL*ii  oo  ro  »to 
CALL  NOrAUi 

• eot»eti loorc. I .•»! . ' unilc  rcaoino  on  unit  x*i 
00  TO  too 

010  eONMNUC 

c 

e 

e --  OCCURITY  tLANKCr  --  MINT  LlNC  NUHtCR  CVCRY  SO  LlNCt 

e 

iriHOOtNOALlN.SOI .NC.OI  00  TO  000 

CALL  NONOrCi  *LINC* .Ctf4lNIHtAL iN.Si I 
iriMTNACC.Ne.O)  CALL  RXtONRiHtAOur 1 1 . I M 
000  CONTINUC 

c 

e 

C •-  CONRUTC  ACTUAL  LO/NI  SANRLCt  RCAO  AND  01  NS  Ml TM  SAMRLC  0 

c 

Nf AtLO»*NAXlNT 
RffAtNI**NAXlNT 
00  OSO  NtUr«l .ML  INCH 


NOI NSO ( Ntuf  t •NSAtUr  < RXL 1 1 N . Mtur 1 ‘NSAOUr I RXL  SAN . NtUf  > 

NSAfLO«NAXO ( NfASL  0 . Nt AOur ( RXL  SAM . Ntur I i 
HSASHI«NlNO(NSAtNI . NSAIUf < RXHfAH. NtUf I > 

OSO  CONTINUC 

c 

c 

c --  ACTCR  OUCUCO  I/O  IS  CONRLCTC.  CLCAR  OCT  lurrCRtSI  S INITIAL  IOC  RRCAHtLCiSI 

c 

00  000  NOUTC*l .NOUTCN 


L-000 


MN  MCKAOC  APKNOtX  L 
NAIM  PMOOIIAItt/NeUTlNCt 


CiAOCI 

on 


CAAk  NAinOf  lOOTC.  LtNPlcrt  I .NOOTCn 

iriioore.NC.'  *i  caal  nPAfAt 

• eooACtiinrc. !.•»».*  mhiac  :no  orrcertoN  orcoiio*« 
CAAA  NOvitTiiocrofti,NOuret.in.;i ■ rocet. 

• locr.in.iPROiNO-ii  .locrfPxeiNtn 

IIORCC«llltAA  IN-NOAOMMIMA  IH.MNlN.NCeri  I •N0VTCN*N0UTC 

iocrortPRiiccN.NouTei*NOiice  « accoro  nunoco 

IOC?iP>PXAINO.NOUre»*ntAAIN  • AINC  NUNOCO 

locrniPxCNAN.NOurctaNOure  • output  cmanncl  nunoco 

I OCTOr  < PXQUAA . NOUTC I •NtAOUP I PXQUAA . 1 1 
I OCTOr I PXAf AN. NOUTC » •NOAOAO 
t OCTOr I PXNOAN . NOUTC I •NOAtN i 

lOCTOrtPXNOIN.NOUTCialOCTOP'PXLOlN.NOUTCl »NtAtMI •HSAt.O 

too  CONTINUC 

irtNOTOTA.NC.OI  00  TO  000 

c 

c 

C ••  Or^tCN  OATA  tN  OINO  Of  HOA  OUPCCOIOI  TO  PILL  OINO  OT  OCT  OUPPCOlO* 

c 


iOAOlN*IOCTOriPXLOlN. I i -I 
00  POO  NOAOAN*NOAOAO.NOAONI 
IOCOtN*IOCOIN*t 
CAAA  OCTOYT  IINOVAA 

• NOAOUrtPXOINO. I > . INOAOAH»NOINOO< I » « I 
in t INOVAA.AT.OI .00. « INOVAA . or. 10711  00  TO  POO 

00  TO  ACtOMN  • 110  INOOC  CHANNCAO*  00  XOO  lAAfT  CHANNCA I 
Ite  CAAA  OCTOYT  INOAOC. 

• NOAOUf IPXOINO.t* . INOAOAH*NOINOOItl I > 
inNOAOt.AT.AINVAAl  INOVAA*!  . I M 00  TO  POw 
tPINOAOt. OT. AINVAAt  INOVAA*!  .tn  00  TO  POO 

00  TO  AC30WH  • no  (NOOC  CMANNCA0>  00  300  <AAOT  CMANNCA I 
330  C.  -A  OCTOYT  INOA03. 

• NOAOUrCNXOIN0.3>.INOAOAN*NOINOOI3<> I 
iriNOAOl.AT.AINVAAl INOVAA*! .311  00  TO  POO 
IPINOaOO.OT.AIHVAAI IN0VAA»I  .PI  I 00  TO  POO 

00  TO  ACPOUN  • 3P0  INOOC  CHANNCAO*  00  300  lAAOT  CMANNCA * 
3P0  CAAA  OCTOYT  IHOAOP. 


■ N0AiUnOX0IN0.pl  . INtAOAH*NOIN$OIPI  > * 

IPlNOAOP.AT.AINVAAi INOVAA*!  .01  I 00  TQpOO 
IPINOAOP.OT.AINVAAI INOVAA*! .6* I 00  TO  *00 
300  CONTINUC 

300  CONTIflUC 

CAAA  PUTOYTI lOCTOn PKf INO.I I . I tOCOlNi . 

• NINOI INOVAA. IC7I I 
inNOUTCM.CQ.  1 1 00  TO  POO 

CAAA  PUTOVTl  lOCTOnPxOtNt.fi  . < tOCOlNl  . 

• NINQINOADC. 10711 
inMOUTCM.CQ.fl  00  TO  POO 

CAAA  PUTfVTIIOCTinpXOINC.  31  . I lOCOlNl  . 

• NIN0INOA03. 1071  I 
inNOUTCM.CO.31  00  TO  POO 

CAAA  PUTOYTI  IOCTtnPlOINO.pl  . I lOCOlNl  . 

• NINOINOAOP. IC7I I 
POO  CONTINUC 

c 

c 


A*tt3 
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eLAOCS 

006 


c --  Queue  oerecrioN  oecoRO  output  oupreRist  roR  i/o 
c 

00  600  N0UTC«1.N0UTCN 

CALL  QHR0R6(L0NPKTII.N0UTCI.  lOeTOf < I .NOUTCI I 
600  CONTINUe 

c 

c 

C LOOP  TO  READ  HSA  DATA  POR  . tXT  HSA  LINE 

e 

TOO  continue 
c 
c 
c 

c r..AssiPiCArioN  conplete  •-  uait  roR  cohpletion  or  queued  i/o 
c 

00  too  noutc-i .noutch 

CALL  UAiriOf lOSrC.LENPKTtl .NOUTC) I 
irc lOSTC.NE. ‘ ’I  CALL  HOPATLf 

- COSHCSI  losrc.  I .<»>  . * WHILE  HRiriNO  DETECTION  RECORD*) 

760  continue 
C 
C 

C RETURN  TO  CONVERSATIONAL  MONITOR 
C 

900  CALL  NVIATO(CLAOOO.NULSUO)  » PREVENT  CONSECUTIVE  CALLS  TO  CLA0C3 

RETURN 
C 

c 

c 

c 

c 

c 

C INTERNAL 

SUOROUTINE  OHROROI  • QUEUE  OET  RECORD  OUrPER  FOR  HRITINO  TO  OCT  FILE 
U IXOPKT.  a DETECTION  PIXEL  FILE  I/O  PACKET 

I ixoeuri  a detection  pixel  buffer 
c 
c 

INTEOCR  tXOPKT(l)  a AROUNENT 

INTEGER  iXOBUFd)  a AROUNENT 

C 
C 

lOSIZEt  IXOPKT>«nOREC 

IOSECTMXOPKT»»IO*CtXOBUF(PXRCCN)-n«LOETRS(NCCTI  a RECN  • I IN  SECTOR  10 
lOAOORl IXOPKTI-LOCI tXOBUFi 
tOFUNCf IXOPKTI«'aC*  a write 
IF(HTRACC.EQ.O)  00  TO  **00 

IF(HOO( IXDBUFCPXL INO) .SOI .EQ.OI  CALL  PXBDNP C t XOBUF ) 

•TOO  CALL  CRIOMXOPKT) 

900  RETURN 
C 
C 
C 
C 
C 
C 


• o 


OAN  PACKAOe  AWNOtX  L 
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CtAOCS 

d07 


C INTERNAL 

SUeROUTlNC  HAITIOI  • UAIT  TOR  CONPLCriON  OF  QUCUCO  I/O 

losTC.  a I/O  status  cooe  tsee  kohio  for  cooes* 

I lOQRKT*  a I/O  PACKET  FOR  QUEUEO  I/O 

e 

e 

INTEGER  lOQPKTItt  a AROUHENT 

C 

CALL  ERUAITCIOQPKT) 

I OSTC* I OCOOE ( I OQPKT I 
RETURN 
C 

c 

ENO 


L-2ES 


OAK  PACKAOC  APPCNOIX  L CLAOC*» 

MAIN  AMOOKANS/ftOUriNCS  OOt 


suwounNC  CLAoe«i  a ocNCiiAre  ocnsity  octcction  rite 


e — 

c 

c 

C NlSrORV 

c 


c 

E 

N 

SCHLOSSCR 

LCC 

OI/OS/73 

c 

E 

H 

SCHLOSSCR 

LCC 

I0/87/7S 

C 

C 

H 

SCHLOSSER 

LCC 

03/13/79 

c 

E 

H 

SCHLOSSCR 

LCC 

18/86/79 

ORIOINAL  COOC 

CLASSIFY  A CNUneRATC  NEAR  HITS 
CMANOe  NAME  FROM  CLA0E3  TO  CLAOE«* 
RXeOEF  FORMAT  BUFFER  U/  *CHR'  BINS 


READ  MSA  PIXEL  RADIANCE  DATA.  SCREEN  EACH  PIXEL  AOAINST  SPECTRAL  LIMITS 
FOR  CURRENT  CHANNELIS>.  ENUMERATE  BINARY  CLASS  DENSITY  FOR  EACH  PIXEL. 
AND  POST  density  TO  OETECTION  FILE. 


C 
C 

c method 

c 

c 
c 
c 
c 
c 
c 

C MACHINE-DEPENDENT  CODE 
C 

c 
c 
c 
c 
c 
c 

C EXTERNAL  REFERENCES 

C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


ASSUMES  H BYTES  PER  INTEGER. 

ASSUMES  6 CHARACTERS  PER  INTEGER. 

ASSUMES  88  UNI  VAC  HOROS  PER  UNI  VAC  FASTRANO-FORMATTEO  DISK  SECTOR. 


NOVI  ST 

OETRAO 

HONOTE 

MOFATL 

OETBYT 

PUTICE 

OETICE 

ERIO 

ERHAl T 

NVIATO 


a 

a 

a 

8 

a 

a 

a 

a 

a 

a 


c 

c 

c 

c 

c 

c 

c 

c 


MOVE  INTEGER  STRING 

GET  RADIANCE  IN  ALL  SELECTED  RAH/ TRANSFORMED  CHANNELS 
PRINT/LOO/COUNT  ’NOTE*  DIAGNOSTIC  MESSAGE 

PRINT/LOO/COUNT  'Fatal  error*  diagnostic  message 

OCT  NON-NEGATIVE  INTEGER  FROM  BYTE  STRING 
PUT  NON-NEOATIVE  INTEGER  INTO  CHARACTER  STRING 
OCT  NON-NEGATIVE  INTEGER  FROM  CHARACTER  STRING 
INITIATE  I/O 

HAIT  FOR  completion  OF  PREVIOUSLY  INITIATED  I/O 
NAME  ‘VIA*  *TO*  SUBROUTINES 
integer  NCVNI  a NUMBER  OF  CHARACTERS  FOR  NUMBER  OF  INTEGERS 
DOUBLE  PRECISION  C8S«»CS  9 VAR  I ABL  E -LENOTh  CHAR  STRING  FOR  FIXED-LENGTH 

DOUBLE  PRECISION  CBSVIN  8 VARI ABLE -LENGTH  CHAR  STRING  FOR  INTEGER 

VIA  TO 

EXTERNAL  CLAOOO.  NULSUB 
EXCEPTIONS 

I.  tape  read  parity  ERROR.  POSITION  GOOD  GENERATES  A NON-FATAL  DIAGNOSTIC. 
8.  ANY  other  Tape  read  error  OCNERATES  A FATAL  DIAGNOSTIC  AND  TERMINATES 


* 


nonon  oooooo 


OAN  l»ACKAOC  appendix  L 
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etAOCN 

OOC 


THE  SUMOUTINE. 


OLOBAL  OECLABATtONS 


INCLUDE  KOHXQT.LIST 
INCLUDE  KONNEft.LIST 
INCLUDE  KOHKLS.LIST 
INCLUDE  KOHFIT.LIST 
include  HINDCr.Llsr 
INCLUDE  KONIHW.LIsr 
INCLUDE  KONOUH.LIST 
INCLUDE  KOHDET.LIST 
INCLUDE  KONLSN.LISr 
INCLUDE  KOHIO.LISr 
INCLUDE  KONSLK.LIsr 
INCLUDE  PXDDEF.LISr 
include  HAXINT.LIST 


a CONHON  PNOORAN  EXECUTION  SNITCHES.  COUNTERS 
a COHNON  ERTS  SCENE  PARAHETERS 
a CONNON  CLASSIFICATION  INFO 
a COHNON  AOUUSTHENT/REOISTRATION  PARAHETERS 
a DEFINE  STRUCTURE  OF  HI  NOON  PACKETS 
a CONHON  INPUT  NINOON  PACKETS 
a CONHON  OUTPUT  NINOON  PACKETS 

a CONNON  oetection  file  UINOONS 
a CONHON  I/O  PACKETS  FOR  OETECTION  FILES  131 -BHI 
a COHNON  I/O  FUNCTIONS 

a CONNON  CLASSIFICATION  SPECTRAL  LIMITS 
a OEFINE  PIXEL  BUFFER  STRUCTURE 
a OEFINE  MAX  I NUN  INTEOER 


LOCAL  OECLARATIONS 


C 


c 

c 


c 

c 


c 


C 

c 

c 

c 

C 


PARAMETER  NNBUFS  *6  a * OF  MSA  PIXEL  BUFFERS  IN  ARRAY 

INTEGERS  IN  MSA  BUF  - *INTS  PREAMBLE  « (•BlNS*3)/«»  * l*EXTRA  BYTES»3)/>* 

PARAMETER  I IMBUF  > IPXBINS'II  » l3S>»B«3t/'»  * ( 19*31 /•* 

INTEOER  NSABUFC I IMBUF.NMBUFSt  a ARRAY  OF  HSA  PIXEL  BUFFERS 

INTEGER  NBINSOINMBUFSI  a BIN  • OF  SAMPLE  0 FOR  EACH  MSA  BUFFER 


PARAMETER  NOBUFS  > *»  a * OF  DETECTION  PIXEL  BUFFERS  IN  ARRAY 

INTEGERS  IN  OET  BUF  > «INTS  PREAMBLE  * l*BINS*9l/6  * *EXTRA  INTS 
PARAMETER  IIOBUF  ■ (PXBINS-lt  * t 3SHB*3*9) /8  * I 
INTEOER  IOETBFCIIOBUF.NOBUFSI  a ARRAY  OF  OETECTION  PIXEL  BUFFERS 

INTEOER  IIOREC  a INTEGERS  IN  I OETECTION  RECORD 

INTEOER  lOETIPXBINS)  a GENERAL  SHORT  DETECTION  BUFFER 


INTEOER  NBUF  a BUFFER  NUMBER 

INTEOER  NOREC  a OETECTION  RECORD  NUMBER 


INTEOER  MSALIN 
INTEOER  MSALMN.MSALMX 
INTEOER  MSASAM 
INTEOER  MSASMN.MSASMX 
INTEOER  MSASLO.MSASHI 


a CURRENT  MSA  LINE  NUMBER 

a MINIMUM.  MAXIMUM  MSA  LINE  IN  OUTPUT  UINOOM 
a CURRENT  MSA  SAMPLE  NUMBER 

a MINIMUM.  MAXIMUM  MSA  SAMPLE  IN  OUTPUT  NtNOOU 
a LON.  HIGH  defined  MSA  SAMPLE  IN  CURRENT  LINE 


INTEGER  lOEBlN. lOEBHI  a CURRENT.  HiOH  DETECTION  BIN  NUMBER 

INTEOER  LOCOBS  a LOC  IN  DETECTION  BUFFER  OF  CURRENT  DETECTION  BIN  • S 


parameter  noinoe*oo 

PARAMETER  NOOAOE-30 


a density  oetection  pixel  *no  info* 
a density  oetection  pixel  *no  data* 


FLAO 

Threshold 


integer  instat 


a oetrao  input  status  code 


ROMAN  NUMERALS: 


H«I.  X>I0I 


ouoou  uuuu  uo 


DAH  PACKAOe  AMCNOU  L 
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CLAOCA 

003 


c 


INTEOER 

100000 

/MS6666’/ 

INTEOER 

II 0000 

/’II6666*/ 

• 

X 10000 

/ 

‘EI6666*/ 

INTEOER 

1 1 1 000 

/’IIII66*/ 

6 

IXIOOO 

/ 

*IEf 666*/ 

INTEOER 

Oil  100 

/*airi66‘/ 

6 

01X100 

/ 

*6IE(66*/ 

INTEOER 

001  no 

/ *661 1 1 •*/ 

• 

001X10 

/ 

*66IEI6*/ 

INTEOER 

0001 II 

/‘666III */ 

6 

OOOIXI 

/ 

*666IEt  */ 

INTEOER 

00001 1 

/* 666611 */ 

• 

OOOOIX 

/ 

*6666IE*/ 

INTEOER 

000001 

/’ 666661 */ 

INTEOER 

010000 

T‘6I6666*/ 

INTEOER 

001000 

/’66I666’/ 

INTEOER 

000100 

/*666I66*/ 

INTEOER 

000010 

/'6666I6*/ 

PROceouoe 


CALL  TRACE 


INITIALIZE  NININUH/NAXlNUn  SCAN  L I NES/SANPLES  A DETECTION  RECORD  LENOTM 

NSAL HN«NS ADWH ( UL I N . HM I N . NCC T ) 

HSALHX«N8ADUN(MLIN.MHAX.NCCTI 
N8A8NN-NSADHH i MS AH . MN I N . NCC  T > 

NSA8NX*NSA0HH( USAH . HHAX . NCC  T I 
HSALlN«nSALHN*l 

integers  in  DET  REC  • *INTS  PREAHOLE  » (•eiNS»9>/6 

IIOREC  > tPXeiNS'li  ♦INSASNX-N8ASHN»3*St /6 

C 

ipmoREC.oT.iioeuPi  call  hdfatli  ‘IIOREC  > iioeur  inclaoea'i 
L0ETRSINCCTI«(II0REC*87W8S  • CONVERT  DETECT  REC  LENOTH  TO  UNIVAC  SECTORS 
C 
C 

c initialize  channel  snitches 
c 

NL IHCH-H 

ASSIGN  3Z0  TO  LCZSHH 
IFtLINCHCEl .LT.SI  00  TO  130 
ASSION  360  TO  LC8SHH 
NL INCH*! 

00  TO  160 

130  ASSION  330  TO  LCS8UH 
ASSION  R30  TO  LC3SUN 
ir(LINCH(3>  .LT.9)  00  TO  1<*0 
ASSION  360  TO  LC38HH 
ASSION  <«60  TO  LC38UN 
NLINCH«e 
00  TO  160 

IHO  ASSION  3A0  TO  LCVSHH 
ASSION  WO  TO  LCA8HN 
IPIL IHCHIRI .LT.St  00  TO  ISO 
ASSION  360  TO  LCRSHH 


L-zes 


OAN  PACKAOe  APKNOIX  L 
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eiAOC«i 

00« 


AttlON  «SO  TO  LC<»SHN 
NLIHCH«3 
ISO  eONTINUC 
ISO  CONTINUe 

c 

c 

e iNiriALize  packet  ano  buppcr  assionhcnts  por  oerecnoN  file 
e 

CALL  PKTOEriLENPKTt I .NCCri I 

looour*! 

ISOINS«» 

IBOIN3-3 

iaoiN««H 

NOREC-0 

c 

c 

C INITIALIZE  PREAMSLE  IN  GENERAL  SHORT  DETECTION  BUFFER 
C 

IOETIPXRECNI-0 
IOETlPXLINOt«0 
IOET(PXCNANI-t 
IOETIPXQUALI-0 
lOETtPXBINTI ■*CHR* 

IOETlPXLBINt-2  A BIN  * IOCT(PXLBIN> -I  t lOETCPXHBINI *1  USED  TO  DERIVE  JOIN 
IOET<PXLSAH)«0 
IOET(PXHBIN)«0 
IOET(PXHSAH»>0 
IOETIPXNOINI >N0IN0E 
IOET(PXNOOAt«NOOAOE 
IOET(PXLJOII>0 
lOETCPXHjOl l«0 
C 
C 

C initialize  bins  in  general  short  detection  buffer  to  ‘NO  INFO'  FLAGS 
C 

idebhi>nb4ni n I 
DO  173  lOEBIN-l . IDEBHI 

CALL  PUTICEI lOETiPXBINSI . ( lOEBINI . NOINOO 

170  continue 

C 

C 

C CLEAR  ALL  DETECTION  BUFFERS 
C 

DO  ISO  NBUF>I .NOBUFS 

CALL  HOViSr I IOETBFI 1 .NBUFI . ( I I . ( 1 1 OREO  . 

- lOET. ( I ) . (PXBINS-I I . tOETlPXBINSi i 

ISO  continue 

C 

c 

C READ  NSA  DATA 
C 

eoo  IFINSALIN.OE.NSALNX)  OO  to  SOO 
NSALIN>NSALIN*I 

CALL  OETRaOINSABUF. 1 1 INBUFi . rNHBUFSI . INSTAT. 

• NSAL IN.nSASNN.HSASNXI 

IF( I INSTAT.NE. 'BAOF' I .AND. 


L'EZB 


uuouu  uoou 


OMI  MCKAOe  AMCNOIX  L 
HAIN  l>IIOOIIANt/flOUriNet 


CLA0C1 

008 


0 iiN8rAr.NC.*orL*ii  oo  ro  cio 

CALL  NOrATLI 

• cooHCOdNorAr.i.Hi.*  mnilc  ocaoino  on  unu  sm 

00  ro  000 

e 

c 

c sceuNirv  olankct 
e 

010  irCNOOCHtALIN.SOI .eo.oi  CALL  NONOrCt 

• ’LiNC'.COOHINtNSALIN.StI 

t irtNOOlHSALlN.SOt .CQ.OI  CALL  OXOOMOl NSAOUr (t . I M • TNO  OCBUO 


uooATc  PoiNrexs  a prcanolc  op  ourpur  ouppcx 

lOCrOPtPXLlNO.IOOINXIaNSALIN  • LINE  NUHSCR 
I oer op ( PXQUAL . I oo l ns  > •NSAOUP I PXQUAL . I ) 

N8ASL0*oHAXtNT 
NOASNIa^NAXINr 
00  030  NOUP«l .NLINCH 

NO  I NSO  ( NOUP I aNSAOUP  I PXLB I N . NBi'P  > -NSABUP  ( PXl  SAN . NBUP  > 
NSASLO*NAXO I NS ASL  0 . NSABUP ( PXL  SAN . NBUP I I 
NSASHI*NINO(NSASHI . NSABUP > PXHSAN . NBUP I I 

030  continue 

I0ETBP(PXLSAN.IB01N3I -NSASLO 
iOETBPIPXHSAN. IBOINSi aNSASHt 

IOETBPIPXNBIN. IB0IN3I •lOETBPrPXLBIN. IB0IN3I *NSASHI -NSASLO 


SCREEN  data  IN  BINS  OP  NSA  BUPPER  TO  PILL  BINS  OP  OETECriON  BUPPER 


IOEBIN>IOETBP(PXLBlN. IB0IN3I ‘I 

LOCOBS  • NC*»NI  (PXBINS-n  • • NUNBER  OP  CHARACTERS  IN  BUPPER  PREANBLE 

A • lOEBIN  A » CURRENT  BIN  NUNBER 

A « S A * S (SO  DIVISION  ST  6 YIELDS  MONO  NUNBERI 

00  HOO  NSASAN>NSASLO.NSASHI 
LOCOBS-LOCOBS*! 

CALL  OETBYT  (INOVAL. 

• NSABUP (PXB I NS. I ) . INSASAH»NBINSOI I > ' : 

C 

c 

C CLASSIPY  PIXEL  HI . 

C 

■ IP( ( INOVAL .LT.O) .OR. ( iNOVAL .or. 10711  00  TO  VBO 
00  TO  LCOSHH  A 300  (NONE  CHANNEL  SI  OR  360  (LAST  CHANNEL  I 
300  CALL  OETBYT  INRAOO. 


• NSABUP (PXB I NS. 01 . {NSASAN*NBINSO(OI I > 
IP(NRAOO.wT.LINVALIINOVAL*I  .1  I I 00  TO  <»0I 
IP(NRAOO.Or.LINVAL( INOVAL*! .on  00  TO  HOO 

00  TO  LCSSHH  A 330  (NONE  CHANNELSI  OR  360  (LAST  CHANNEL  I 
330  CALL  OETBYT  (NRAOS. 

• NSABUPIPXBINS.3I .(NSASAN*NBINS0(3II I 
IPINRA03  LT.LINVALdNOVAL*!  .311  00  TO  <*31 
IP(NRA03.0T.LINVAL(lN0VAL*I.Hn  00  TO  H30 

00  TO  LCHSHH  A 3<*0  (NONE  CHANNELSI  OR  360  (LAST  CHANNEL  I 
SHO  CALL  OETBYT  (NRAOH. 


L-030 


OAN  PACKAOC  APPEND IX  I 
MAIN  PNOONAHS/NOUTINES 


CiAOEN 

006 


• N6A6IIPIPX6INS.NI  .IHtAtAN«N6INS0«Mt1 

lP(N6A0N.Lr.LINVALIlNDVAL»l .on  00  TO  NNI 
irtNNAON.Or.LiNVALI INOVAL^I .611  00  TO  NNE 

ISO  continue 

360  CONTINUE 


C 

c 

C ENUNERATE  CLASSIFICATION  DENSITY  PON  HITS 
C 


SYO 

371 

37E 

373 

37«i 

375 

376 


NMO-LOCOOS/6 

NCHAR>HOO<LOCOSS.St 

00  T0I37I .373. 373. 37H.37S. 3761 . NCHAR 
lOEroriNuO'i . tsoiNNt«ioErer(Nuo*i . iBoiNHi 
lOETM’tNHO't . IB0IN3l*l0ErSP(NH0-l . I80IN3I 


00  TO  N80 


00  TO  N80 


00  TO  H80 


00  TO  N80 


I0CTBF(NM0»I 
tOeTBrcNHO*! 
i0CT8rcNM0*t  < 
00  TO  <*80 


I . IB0IN3 

l•IOETBFCNUO•l . IB0IN3) *000001 

IBOINHI 

•IOETBFCNNO. IBOINN)  * 

II 0000 

I80IN3) 

•IOETBFCNHO. IB0IN3I  * 

XI 0000 

IB0IN3I 

•IOETBFCNNO. IB0IN3I  * 

II 0000 

IBOINN) 

•IOETBFCNHO. leOINN)  * 

II 1000 

IB0IN3I 

•IOETBFCNNO. IB0IN3)  * 

IXIOOO 

IB0IN8I 

•IOETBFCNNO. IB0IN3)  * 

II 1000 

IBOINN) 

•IOETBFCNNO. IBOINN)  * 

01 1 100 

IB0IN3) 

•IOETBFCNNO. IB0IN3I  * 

01X100 

IB0IN8) 

•IOETBFCNNO. IB0IN3)  * 

01 1 100 

IB0IN<*) 

•IOETBFCNNO. 1 BO  INN)  * 

OOlllO 

IB0IN3) 

•IOETBFCNNO. IB0IN3I  * 

001X10 

IB0IN3) 

•IOETBFCNNO. IB0IN3I  * 

OOlllO 

IBOIN<*> 

•IOETBFCNNO. IBOINN)  * 

0001 1 1 

IB0IN3) 

•IOETBFCNNO. IB0IN3I  * 

OOOIXI 

IB0IN8I 

•IOETBFCNNO. IB0IN3)  * 

0001 1 1 

IBOINNI 

•IOETBFCNNO. IBOINN)  * 

00001 1 

IB0IN3) 

• IOETBFCNNO. 1 BO  INS)  * 

00001 X 

IB0IN8) 

•IOETBFCNNO. 1 BO IN3)  * 

00001 1 

too  IN'*  I 
1B0IN3I 
IB0IN31 


IOCTBr(NUO*l . 
toerortNuo*! , 
lOETSDNUO*! . 


tS0IN3> 

iBDiNai 


000001 

000001 


00000 

00000 

00000 


C 

c 

6 CLASSIFY  PIXEL  NEAR  HIT 
C 

H8I  IFIHRA03.LT.LIHVAL  I INOVAL*!  . I) -LCvTOL  > 00  ^0  <*80 

•»33  IFINRA03.0T.LINVALI  INDVAL'I  .8)*LCvroL>  00  TO  >»B0 

00  TO  LC3SMN  • ^SO  (MORE  CHANNELS)  OR  **60  CLAST  CHANNEL) 
N30  CALL  OETBVT  (HRAOS. 

• NSABUFIPXBINS.3) . IHSASAH*NBINS0)1t 1 > 

H3I  IFINRAOS.LT.LINVALI  INOVAL*!  .3)*LCVT0L>  00  TO  >*80 

h33  IFINRA03.0T.LINVALI|N0VAL*I  .•*I*LCVT0L>  00  TO  <*80 

00  TO  LCNSHN  • <**»0  CHORE  CHANNELS'  OR  <*60  CLAST  CHANNEL) 
NNO  CALL  OETBVT  CNRAO>*. 

• NSABUFCPXBlNS.**) . CHSASAH*N8INS0'<*>  ) ) 


L*33l 


ooo  noon  noon 


0*N  fACKAOC  AMCNOU  L 
MAIN  MOOMAHS/ROUTINeS 


HIM  trtnilAO«».ir.LlltVAlltllOVAI.»I.Sl*LCVTOLl  00  ro  *»00 

•»«t  iriHMA0«.0T.l.lNVAUIN0VAL»l*0l*Levr0l.l  00  ro  «00 

100  CONTINUE 

100  CONTI NUC 


c 

c 

C CNUNCRATC  CLASSiriCAT ION  OCNSITV  TON  NEAR  HITS 
C 

170  NHO*LOCOOS/0 

HCNAR-MOO ( L OCOOO . 0 ) • I 

00  T0(17t.17C. 173. 171. ITS. 1701.  NCHAR 


171 

I0ET8FINH0. IB0IN3* 
00  TO  100 

• 

I7f 

IOETBFINHD. IB0IN3I 
00  TO  100 

•* 

173 

IOETOFCNNO.IBOINSI 
00  TO  100 

• 

171 

I0ET0F(NH0.I0DIN3) 
00  TO  100 

• 

ITS 

ioetofinno.iooinsi 
00  ro  100 

• 

170 

ioetofinno.iooinsi 

• 

C 

C 

C LOOP  SACK  TO  CLASSIPV  NEXT  PI 
C 


IOETOFINNO.IOOINSI 

♦ 

100000 

IUETBFINI'O.IBOINSI 

♦ 

010000 

IOETOFINNO.IOOINSI 

♦ 

001000 

ioetofinno.iooinsi 

♦ 

000100 

ioetofinno.iooinsi 

♦ 

000010 

IDETOFINNO.IBOINSI 

♦ 

000001 

IN  This  line 


100  continue 


c 

c 

c CLEAR  OUTPUT  BUFPER  A ROTATE  DETECTION  OUFFCRS  AFTER  QUEUED  I/O  I 
C 

SOO  CALL  ERHAlTCLeNPKTI t .NCCTt I 

CALL  NOVI  ST  I lOETBFI I . lOOOUTI . 1 1 1 . 1 1 1 ORECI . 

• lOET.C  t ) . (PXSiNS-n . lOETiPXBINSt I 

IB0THP«IBD0UT 
IBOOUT*iBDlNE 
IB0INB«IBDIN3 
IB0INS*IBDIN1 
IBOINl«tBOTNP 


QUEUE  DETCCrtON  RECORD  OUTPUT  BUFFER  FOR  I/O 

IF( IOETBFCPXLINO. IBOOuri .NE.OI 
A CALL  RtrOBFI  IOETBFI  I . IBOOUTM 
IFI lOETBFIPXLINO. IBOOUn .LT.HSALHXI  00  tQ  BOO 


CLASSIFICATION  CONPLETE 

NSAONHfUL IN.UNAX.NCCTlaNSALIN 

BOO  CALL  NViATOfCLAOOO.NULSUOl  A PREVENT  CONSECUTIVE  CALLS  TO 
RETURN 


CIAOEI 

007 


S CONPLETE 


CLAOE<* 


L'tlE 


o 


0AM  MACKAOC  AMMCNOIX  L 
MAIN  MOOMANt/MOUriNCS 


ei.AOC<l 

000 


c 

e 

c 

e INTCWNAL 

tuiROuriNC  PKroeri  • initializc  ocreerioN  rue  i/o  rxCKcr 
u ixoMKri  A oerecrioN  rixci  rue  i/o  packst 
e 

iNteoeii  ixorxmi  a AMouneNT 

iNteoeR  ixoBurm  a AMouHeNr 

c 

lotizec ixorKri*itoRec 
fieruAN 
c 
c 
c 

eNrnv  Riroeri  a uAire  necoRO  rRon  oerecrioN  aurrcR  ro  oerecriON  rue 
u txoourt  a oereertoN  rixeu  eurreR 
e 

iriiocooeiixoRKri .CQ. * **  oo  ro  soo 

CALL  HOrAUl 

> CB««»csiiocooeiixoRKri.t.i»i.’  uNue  uRiriNo  oerecnoN  RecoRo*> 

00  ro  900 

300  NOReC>NOReC»l 

ixoaurcpxRecNi •Noaec 
CALL  oericet  ixoaurcrxLjon . 

• ixoaurcrxaiNS) . < ixoaunrxLaiNi  ~t  1 1 
CALL  oericei ixoaurtPXHjoM . 

• ixoauripxaiNS) . < ixoauriPXHaiNi *i i i 

iosecrnxoPKri-io«>iNORec*ii«LOcrR8(NCcn  a norcc  • i ooes  in  secroR  lo 
lOAOORt IXOPXr) «LOC( IXOBUn 
loruNCc ixopxri >’ac*  a KRire 

c a iriHOOf ixoBuriPXL iNO> .so> .CO. 01  call  pxaonpi ixoaun  a •••••  tnp  oeauo 

CALL  CRIOMXOPXr) 

900  per URN 

c 

c 

CNO 


0*N  MCKAOC  APKNOIX  L 
MAIN  MOORANt/ROUnNCf 


eiAOCS 

QOI 


tUmOUTINC  CLAOCfl  A OCTCCT  CLAtR  IRNAtC  tl 
(C  M <CNLO«SCR> 

cxrrRNAL  sutROunNCt/ruNcrioNS  callco 

NONOrC 

Nvuro 


CXrCRNAL  CLAI«9.CLA0C9 
CALL  TRACC 


CALL  NONOrCI ‘OCTCCT. CLA9S  »9T  YCT  INRLCHCNTCO* I 
CALL  NVIAT0ICLAIC9.RIC0C9* 

RCTURN 

CNO 


L'MA 


DAN  AACKAOC  AMCNOtX 
NAIN  raeCAANS/ROUriNCt 


CtARtf 

OOt 


•UtROuriNC  eiAOCf  • OCmT  Ntt-OCRIVtO  OAtA  IRNAM  91 
(C  M fCHlOftCRI 

cxrcRNAL  «u9RouriNC9/ruNcrioNt  ;;.LLCO 


NOMOrC 

NOCLRN 


INCLUOC  KONXOr.Llfr 
CXrCRNAL  CLAOOO.I^ULtUt 
CALL  trace 


ON  RETURN.  CALL  CLAOOO  TO  OET  CONNANOt 
CALL  NVIATOfCLAOOO.NULSUOi 


C CNECK  OIAONOSTIC  COUNTERS 
C 

iriNOHARN.EO.Ot  00  TO  WO 

CALL  HONOTEI ‘MEVIOUS  HARNINOS  -•  NO  DETECTION  TILE  OENERATEO*: 
iriNOATCN.EQ.OI  HRITEIS.ilSi 
OtS  rORHATl*  ...TRY  AOAlN*! 

00  TO  900 

WO  iriNOEATL.EO.Ol  00  TO  090 

CALL  NONOTEt •RREVIOUO  FATAL  ERRORS  - NO  DETECTION  FILE  0ENERATED*« 
00  TO  900 

090  IFCNCNECK.EQ.OI  00  TO  000 

CALL  NONOTE I ’CHECKOUT  NODE  ••  NO  DETECTION  FILE  OENCRATCO'I 
00  TO  900 
C 

c 

C FREFARE  FOR  NEXT  OISFLAV 
C 

090  NUNOOU«NUNOOH*l 
C 
C 

C CLEAR  HARNINOS  » RETURN  TO  NEXT  STATENENT  IN  CALLINO  ROUTINE 
C 

900  call  HOCLRUl'Oi 
RETURN 
ENO 


L*E39 


OAN  MCKAOC  AmNOiX  L CtiACXI 

NAIN  MOOKAHt/ROUriNCt  001 


ovooouTmc  ctACxi  I rcotiiN*rioN  oootini  roo  ctAOOtrt 


•tioroiiv 


C N OCNLOOtCN  LCC  10/ 10/7*  00I01MA4.  COOC 

C H OCNLOttCN  LCC  lf/tC/70  CALL  CLOOON.  NOT  Cl  OOCN  A CLOfCl 


NCTNOO 


CLOtC  INOUr  A OUTAur  riLCO  a TCOniNArC  aooooah. 


NACNINC'OC^CNOCNT  cooc 


NONA. 


OLOOAL  OCCLARATIONt 

) 

INCLUOC  KOnXQT.LiSr  a CONItON  MOORAN  CXCCUTION  SWITCHCS.  COUNTCRS 

INCLUOC  KONKLS.LISr  A COHHON  CLAffAiriCAT ION  INfO 


LOCAL  OCCLARATIONf 


NONC. 


RROCCOURC 


CALL  TRACC  * 


c CLOsc/vcRirv  iNRur  naa  rue  <unit  h ir  output  ocTcctioN  rue  mas  oCNeRATco 
c 

MRITCIA. tOSi 

too  rORNATlwK. *«*PR00RAN  Tf  HINATION' * 

iriNOATAC.NC. o>  00  TO  ooo  a data^cmcckout  hooc 

in  (klatvp.co.  *RAO*  I .OR.  a ir  output  rue  was  oeNe:<ATeo  ... 

A tKLSrvP.eO. ‘OCNM  .OR. 

A IKLOTVP.eO. ‘CLA'l  I CALI.  CLOSeX  a ...  ThCN  CLOSC  INPUT  rue 

c 

c 

c CLOAC  OUTPUT  rues 
c 

iriNUNOOU.OT.Ot  CALL  CLAOCN 
CALL  CLOOPR 


L-030 


OAN  PACRAOC  ARACNOIX  L 
RAIN  MOORANt/AOUMNCt 


ClACXl 


rCRRlNATC  RROORAN 

tOQ  CALL  MtORf  ••••RiCAtC  AfRCC  S.  OR  AMMINO  S.  ON  AlOCArC  S.*l 

NtrON  DOCS  NOT  NCruNN 
CNO 


t-»J7 


u u u u uuuu  o u u u 


e APKNOIX  L 

iAHS/fiouriNes 


CLARAO 

OOt 


.ROUriNC  CLARAOf  • OCT/CHCCK  RAOtANCC  LIMITS 
MOI  • li  rmST  3 CHAMS  or  COMHANO  Oi  SPACeS 


iCHLOSSCftl 


(NAL  suSMOuriNes/ruNcrioNS  callco 


READS 
MOL  00 


INCLUDE  KOHXQT.LISr 
INCLUDE  KOHKLS.LtSr 
INCLUDE  KONSLN.LISr 
CALL  trace 


a COMMON  PROORAN  EXECUTION  SUITCHES.  COUNTERS 
a COMMON  CLASS  I PICA* I ON  INFO 

a COMMON  spectral  limits 


CHECK  POINTERS 


IPtNLlMCH.OE.ei  00 
CALL  HOHARNt 
00  TO  900 

aeo  IP(NLIHCH.LE.H)  00 
CALL  nOUARNI 
00  TO  900 
ai»0  CONTINUE 


TO  aao 

*NOT  ENCUOH  CHANNELS') 
TO  8<t0 

'TOO  MANY  CHANNELS') 


CHECK  INDEX  RADIANCE  VALUES  TO  SEE  IF  CHANNELS  HAVE  JUST  BEEN  CHANOEO 

IFCLCVLOl .LE.LCVHI I ) 00  TO  500  » OLD  CHANNELS  --  UPDATE  RADIANCE  VALUES 


NEH  CHANNELS  --  INITIALIZE  LIMIT  RADIANCE  VALUES 

NL IHVA>(NLlMCH-t  >«a 
00  HSO  lNOVAL-0. lEY 

DO  <)V0  N>1  .NLIMVA.a 

L I MVAL  ( INOVAL  t’l  .N)  »»99999999  a MINIMUM 

LIHVAL ( INOVAL*! .N*t )>-99999999  9 MAXIMUM 

H40  continue 

<*50  continue 


OET/CHECK  index  RADIANCE  VALUES 

500  CALL  0CT5INI INOVIN.  0.ta7.’«BA0  MINIMUM  RADIANCE  ••') 

CALL  OETSINI INOVAX.  INOVI N. ta7 . ' *8X0  MAXIMUM  RADIANCE  •-') 
LCVLOI«MlNO<LCVLOI .INOVIN) 

LCVHIt>MAXO(LCVHI I .INOVAX) 

M^0VAL«IN0V1N 
C 


L-aSB 


OAN  PACKAOe  APPCNOIX  L 
MAIN  PKOOPAHS^POUriNCS 


* 


« 


( 


c 

C OCr/CHCCK  LiNir  MAOIANCC  VALIffS 

c 

00  SSO  N«a.NLtHCH 

iraincNtNt  .eo.oool  oo  to  sstt 

CALL  OerStNtLINVALMNOVAL»l  .0«N-3> . 

• 0.<S8.‘«SAO  HIM  RAOUNCe  -•’> 

CALL  OerSlNCLINVALl INOVAL«l .0«N-8I . 

• 0.889. *«SAO  NAX  RAOtANCC  --‘t 
LCVLO(NI>HINO<LCVLO(NI .L I NVAL ( I NOVAL * I .8*N-3>  > 
LCVHI  (NI>HAXO(LCVHt  (Nl  .UHVAL  I I NOVAL*!  .8«N-8)  > 

980  CONTI NUe 

CALL  oerstNt ircNP.  •i.-t.‘exrRA  raoiancc  speciricATioN 
c 
c 

C OUPLICATC  SAHC  LIMIT  VALUES  FOR  REHAININO  INDEX  VALUES 
C 

IP( INOVIN.EQ. iNOVAXt  00  TO  900 

1 NOV  IN* I NOV  IN* I 
NL IH*(NLINCH-I 1*8 

00  800  IN0VAL*IN0VIN. INOVAX 
00  030  N*l .NLIH 

LIMVALI INOVAL*I.NI*LINVAL( INOVIN.NI 
630  continue 

660  continue 

C 

C 

C DONE 
C 

900  KOHO** 

RETURN 

C 

ENO 


4 


9 


0 


« 


ClAttAO 

009 


ooooooooooo  oooooooooooooooooooooooooooooooooooo 


DAN  l»ACKAOe  APPCNOIX  L 
MAIN  PMOOMAHS/ROUriNCS 


CLAXQT 

OOt 


SUMOUriNC  CLAXQT  A iNt  T I At.  IZATtON  ROUTINC  POR  CLASStPV 


HISTORY 


E 

H 

SCHLOSSER 

LEC 

ii/os/yn 

E 

H 

SCHLOSSER 

LEC 

0I/3I/YS 

J 

C 

CRISP 

LEC 

tS/tS/YS 

NCTHOO 


ORIGINAL  CODE 

ALLOW  OEPAULT  CONHANOS  PRON  HACOAH 

wsptoo  A 100  replace  HINC  a t 


initialize  PROORAH.  open  piles.  IOENTIPY  scene,  queue  OEPAULT  CONHANOS. 


hachine-oepenoent  code 


UNIVAC  EXEC-e  PROORAH  PILE  NANINO  CONVENTIONS. 

OIHENSION  A PORNAT  SPEC  I PI  CAT  I ONS  ASSUHE  6 CHARACTERS  PER  WORD. 


EXTERNAL  RCPERENCES 


NVIATO  a NAHE  NEXT  ’VIA*  A *TO*  SUBROUTINES 

PSTART  a PROORAH  START  INITIALIZATION 

OPENS  a OPEN  INPUT  pile  3 (INPUT  NSS  OR  RBV  DATA) 

LOREOe  a LOAD  exact  REOISTRATION  PARAHETCRS  PROM  pile  8 
I0LU3  a IOENTIPY  PILE  3 HARDWARE 

lOERTS  a IOENTIPY  HSS  OR  RBV  DATA 

SYSAOO  a AOO  DISK  SYHBOLIC  PILE  OR  ELT  TO  SYSIN  RUNSTREAM 

HOPATL  a SUBHIT  PATAL  DIAGNOSTIC  NESSAOE 

VIA  TO 

external  CLAOOO.  NULSUB 


EXCEPTIONS 


I.  NISSINO  OEPAULT  COMMANDS  GENERATE  A PATAL  DIAGNOSTIC. 


GLOBAL  DECLARATIONS 


INCLUDE  KOMXQT.LIST 
INCLUDE  KOMNER.LIST 
INCLUDE  KOMPir.LISr 
INCLUDE  UIN0EP.LI8T 
INCLUDE  KOMOUW.LIST 


a COMHON  PROORAH  EXECUTION  SWITCHES.  COUNTERS 
a COMMON  CRTS  SCENE  PARAMETERS 
a COMMON  AOUUSTMENT/REOISTRATION  PARAMETERS 

a oepine  structure  op  window  packets 
a COMMON  output  window  packets 


L-8H0 


onoo  onno  ononoi->oo 


OAfl  MCKAOe  APKNOIX  L 
HAIM  MOORAHS/ROUriNCS 


ciAXor 

ooe 


C LOCAL  oeCLARAriONS 

c 

e 

INreOCR  LOCPIL  a location  MITNIN  disk  SYHBOLIC  PILC  C IP  > 0 I 


MIOCCOURe 


lOCNTIPV  PROORAH 

CALL  PSTARTI  ‘OAN  CLASSI PYI 8009) ‘ t 

OPCN  CRTS  PILE  a LOAD  REOI STRAY  ION  PARANETERS 
CALL  OPENS 

CALL  L0RE08  0 PATAL  ERROR  IP  REOISTRATION  PARAMETERS  NOT  ON  UNIT  8 


lOCNTIPY  CRTS  SCENE 


tP(HOATAC.NE.O)  00  TO  300  9 OATA/CHECKOUT  MODE 

IP(NOPATL.EQ.O) 

a ENCODE) to. IRS. JHOO)  NERTS . NCCT . NCCTQT 
188  PORMATC*  E-‘ . Jt . Ji».  * -* . JS.  IX.  Jl  . ' / * . J|  ) a COMPACT  TO  PIT  ON  BOX  PAGE 
MRITCI6.I8S)  NERTS. NCCT. NCCTOT 
HRITEIS. I9S) 

tSS  PORHAT(tX)  a SKIP  LINE 

CALL  lOLUSI  61 
CALL  tOERTSt  0) 

C 

C 

C INITIALIZE  SPACING 
C 

NSAOMUCHLIN.HSPIOOI>tOO 

MSAOMU(MSAM.MSPtOOt-IOO 

C 

C 

C CL’EUE  OEPAULT  COMMANDS  PROM  PRIVATE  PROGRAM  PILE  OR  DAM  PROGRAM  PILE 
C 

s:a  CALL  SYSAOOILOCPIL . ’MACOAM* . 'OEP>CLASSIPY‘ . ' 'i 

IP(LOCPIL.LE.O)  CALL  S YSAOO a OCP I L . * DAM  * . ‘ OEP -CL  ASS  I P Y ‘ * ’) 

IPILOCPIL.LE.O)  CALL  MOPATL I *N0  OEPAULT  COMMANDS') 

C 

C 

C RETURN,  then  nave  MAIN  CALL  CLAOOO  TO  GET  OEPAULT/USER  COMMANDS 
C 

CALL  NVIATOI  CL AOOO . NULSUBI 

RETURN 

END 


L-PVI 


ooooooooooooooooooooooooooooooooooooooooooooooo 


OAN  PACKAOC  APKNOIX  L 
MAIN  PAOeRAHS/ROUriNCS 


ettosN 

oot 


u 


tuaRouriNC  cisoaN  a closc  output  octcction  pile 


Nl STORY 


* 


e N SCHiOSSCR 
HARV  TOMPKINS 


LCC  Ot/OS/TA  ORIOINAL  COOC  IN  CL0S8N 

LCC  18/13/79  REV  HEADER  A REPLACE  PLO  BY  CSTHIN 


NETHOO 


CHECK  KLSTYP 

ir  klstyp 
IF  klstyp 
otherhise 


NUL*  THEN  NO  DETECTION  PILE  EXISTS  (OR  SHOULD  EXISTI  -- 
FREE  then  delete  PILE  (IP  ANYI . 

OLO*  then  existing  detection  pile  is  valid  -- 
DO  NOT  OVER'HRITE  ITS  HEADER. 

MOVE  KOHNER.  KOHKLS.  KOHPIT.  AND  KONDET 
INTO  BUFFER.  WRITE  PINAL  DETECTION  HEADER 
PROM  BUFFER.  ANO  CATALOG  PILE. 


hachinE'OEpenoent  code 


ASSUMES  8S  UNIVAC  HOROS  PER  UNIVAC  PASTRANO-PORNATTEO  DISK  SECTOR. 
FORCES  SECTOR  ALIGNMENT  OP  EACH  COMMON  IN  THE  HEADER. 


EXTERNAL  REFERENCES 


ERCSP 

ERIOU 

CSTHIN 


a SUBMIT  EXEC-B  CONTROL  STATEMENT  FUNCTION 

a initiate  I/O  a wait  for  completion 
a CHAR  STRING  FOR  INTEGER 


EXCEPTIONS 


NONE 


GLOBAL  declarations 


INCLUDE  KOMXOT.LIST 
INCLUDE  K0ML8N.LIST 
INCLUDE  KOMIO.LIST 
INCLUDE  KOMNER.LIST 
INCLUDE  KONKLS.LIST 
INCLUDE  KOMPIT.LIST 
INCLUDE  KOMDET.IIST 
INCLUDE  UINDEP.LIST 


COMMON  PRCORAM  EXECUTION  SWITCHES.  COUNTERS 
COMMON  I/O  PACKETS  FOR  DETECTION  FILES  (8l-8<») 

fortran  manipulation  of  assembler  I/O  PACKETS 

COMMON  CRTS  SCENE  PARAMETERS 
CLASSIFICATION  INFO 
adjustment /REG  I strati  ON  PARAMETERS 
FILE  WINDOWS 


COMMON 

COMMON 

COMMON 

define 


detection 

structure 


OF  WINDOW  PACKETS 


L-8X8 


o«n  ^ACKAoe  APfCNOix  l 
HAtN  PftOORANS/ROUriNCS 


CLtOtN 

00* 


iNCiuoc  PACOtr.Ltor  • excc-o  pacility  ocaueor  otatuo  oir  nnchonic* 


LOCAL  OCCLARAriONO 


tNTCOCR  NUO  • HORO  NUNOCR  IN  HCAOCR  OUrrCR  ANO/OR  CONHON  OLOCK 

INTEOCR  KOUFRISO.OI  • INTERNAL  HORN  OUFFER  FOR  DETECTION  FILE  HEADERS 
C 

INTEGER 

c CHAR  oooooooooiiitiiiiii>*ea*c*ea*3 

C l*3<»S67e90l*3*»S67e90I*3>»SS7ag0 

A JAS0A8(Hl/ •lASO.AX  •DANDET*N.  . ’/ 

A JFREE8IHI/ ’IFREE  *N.  . */ 

A JFRED8(HW 'arREE.O  8N.  . ’/ 

C 

C 

C PROCEDURE 
C 

c 

CALL  trace 
C 
C 

C IS  DETECTION  FILE  NON-EXISTENT.  OOOO-OLO.  BAO.  OOOO-NEU? 

C 

IFC  (NCCT.LT.  I t.OR.  (NCCT.OT.m  I 00  TO  900 

IFIKLSTVP.EQ. *NUL ’ ) 00  TO  800  I FILE  DOES  NOT  (OR  SHOULO  NOTl  EXIST 

IF(KLSTYP.EQ. *OLO*>  00  TO  900  A DON'T  TOUCH  THAT  0000  OL ' FIlEII 

IF(NOFATL.NE.O)  00  TO  900  a FILE  BAO  --  DON'T  REPLACE  InTERIN  HEADER 

C 

c 

C 0000  NEH  FILE  --  HOVE  KONNER.  KONKLS.  KOHFIT.  AND  KONDET  INTO  BUFFER 
C 

DO  611  NMO*I.SIZNER 
Bit  KBUFR(NU0. I <-KONNER(NHOI 
00  618  NUO-l.StZKLS 
618  KBUFR(NUD.«»l>K0HKLS(NH0) 

DO  613  NUO-I .SIZFtT 
613  K6UFR(NU0.6)«K0NFIT(NU0) 

00  BIS  NUO*I .SIZOET 
SIS  KBUFR(NM0.6>*KONOET(NMOI 
C 
C 

C HRITE  final  HEADERS  FROH  BUFFER 
C 


CALL  MRH0R(L8NPKT M .NCCr n 

c 

c 

c catalog  detection  file 

C 


BOO  CALL  CSTKINI JFREE8.  17.  I . 
CALL  ERCSF(NA0. JFREE8I 
CALL  CSTX|N(UAS0A8.I7.I. 
CALL  ERCSF(NA0. JAS0A8I 
IF(KLSTYP.EQ. 'NUL'I  CALL 
IF(KLSTYP.EQ. 'NUL't  CALL 


NCCT.  1 1 
NCCT.  1 1 

a PROTECT  UNTIL  RUN  TERNINATES 
CST4INIJFRC08. 17. I . NCCT.II 
ERCSFINAO. JFRE08I 


L-8H3 


. (■ 


OAN  I^ACKAOe  AMCNOIX  L 
NAIN  MOOKAHS/ROUriNCS 


C 

c 

C OONC 
C 

900  RCruRN 

c 

e 

e 

c 

c 

e iNreRNAL 

SUOROUriNC  HRNORtNRKTI 

iNreocR  NPKT n i 

loruNCiNPKri >*ac’  • hritc 

l08IZCINPKri«08*0  • HtAOCR  SIZE  IN  WORDS 

lOAOORINRKn •lOCIKBUrRi 

losecriNPKTi >0 

CALL  CRIOWINPKri 

iosizc(NPKri>LoeTRS(Nccn«z8  a record  size  in  words 

RETURN 

c 

ENO 


o 

CL  MSN 

oos 


oooooooooooooooooooooooooooooooooooonoon 


OAN  AACKAOC  APPCNOIX  L 
NAIN  PROOttANS/AOUriNCS 


OPNMM 

001 


outRouriNe  opnoon  o opcn/cncck  output  octcction  me 


NIOTORV 


t H SCHL0S8CR 
NAIIY  rOHPKINO 
nARY  rOHPKINS 


LCe  0t/03/7*» 
LCC  18/13/70 
LCNSCO  09/16/00 


ORIOINAL  COOe 

RCV  HCAOtR  A RCPLACe  PLO  OY  CST<(IN 
PUT  INTCRN  OCT  PILt  NAHC  IN  I/O  PKT8 


NCTNOO 


ATrenPT  ro  assign  neh  oerccrioN  rite,  ip  pilc  is  AtReAOY  assionco 

OR  Pue  is  CATALOOeO  AND  NOT  PRCSENTLY  IN  USE  READ  HEADER  OP 
PILE  INTO  SUPPER.  COHPARE  CONTENTS  OP  SUPPER  TO  KONNER. 
KONKLS.KONPIT.ANO  KONOET.  IP  COHPARASION  IS  NOT  EQUAL  REINITIALIZE 
OeTECTION  PILE  HEADER  TO  OINARY  ZEROS  SEPORE  RETURNINO. 


NACHINE-OEPENOENT  COOE 


ONE  UNIVAC  PASTRANO-PORHATTEO  DISK  SECTOR  IS  80  UNI  VAC  1100  HOROS. 


EXTERNAL  REPERENCES 


ERCSP  a SUONIT  EXEC-S  CONTROL  STaTENENT  PUNCTION 

NONOTE  a PRINT/COUNT/LOO  ‘NOTE’  OIAONOSTIC  NESSAOE 

NOPATL  a PRiNT/COUNT/LOO  ‘PATAL  ERROR’  OIAONOSTIC  NESSAOE 

ERIOH  a INITIATE  I/O  A WAIT  POR  COMPLETION 

CSTHIN  a CHAR  STRING  POR  INTEOER 

DOUBLE  PRECISION  CSS>>CS  S VARIABLE  LENOTH  CST  POR  PIXEO  LENOTh  CST 


EXCEPTIONS 


I.  IP  the  detection  pile  exists  but  is  beino  used  by  another  run. 
then  issue  ’PATAL  ERROR’  ANO  RETURN. 

8.  IP  I/O  ERRORS  ARE  ENCOUNTERED  WHILE  READING  OLD  HEADER  OR  URITInO 
INTERIM  BLANK  HEADER.  THEN  ISSUE  ’PATaL  ERROR’  ANO  RETURN. 


OLOOAL  declarations 


include  KOMXQT.LIST 
INCLUDE  KOMI.  8N. list 
INCLUDE  KOMIO.LIST 
INCLUDE  KOMNER.LIST 


a COMMON  program  EXECUTION  SHlTCHES.  COUNTERS 
a common  I/O  PACKETS  POR  detection  piles  (8I'8>*i 
a COMMON  I/O  PUNCTio/;- 

a COMMON  ERTS  SCENE  PmRAMETERS 


L-8N8 


u u u o 


0AM  MACKAOC  AMMCNOIX  I 
MAIN  MMOOnAnt/IIOUriNCt 


0IKI0*N 

Odt 


INCLUOC  KOHKLt.Lltr 
iNCLuor  Konnr.Litr 
INCLUOC  KONOMM.LISr 
INCLUOC  KONOCr.LISr 
INCLUOC  MINOCr.LIST 
INCLUOC  MXOOCr.LlSr 
INCLUOC  rAcair.LisT 

c 

c 

C LOCAL  OCCLANATIONS 

c - 

c 

INTCOCX 


0 CONNON  CLACOiriCATION  INTO 

• CMNON  AOJUtTNCNr/RCOICrAAnON  MANANCTCRt 
■ CONNON  OUTNUr  UINOOH  NACKCTf 

• CONNON  ocrccrioN  riLC  uimoons 

• ocriNC  sTNucruNC  or  4Inoou  nackcto 
a ocriNC  STNucruNC  or  rixcL  eurrcR 

a cxcc-o  rACiLirv  ncoucst  siArus  eir  nnchonics 


C CHAN  OOOOOOOOOMIIIIIIIIfaae»8aaee3333333333AH«»ifA>»i»<» 

C 1 8 3A867890 1 8 3*» 907890 1 8 3H987990 1 8 3<»  967  9«0 1 8 3H  967 


7 uA90C8(0i/ *aA90.cr  •OAHoer-N. .r/i/ro8/«e  . oerccrioN  rue  */ 
•»  ^A90A8t*»l/ '8A90.AX  •0AH0C7>N.  . ’/ 

•»  JU9C8C«»I  /*aU9C  8N.«0AN0CT*N.  . */ 


INTCeCR  K0urRf89.9l 
INTCOCR  IROCNT 
INTCOCR  ISrAT 


C 

C 

C RROCeOURC 
C 

c 


a INTCRNAL  HORN  OUTrCR  rOR  OCTCCriON  rUC  HCAOCRO 
a COMPARISON  CRROR  COUNTCR 

a I/O  status  cooc  (csr> 


CALL  TRACe 


c 

c 

c 

c 


INiriALtZe  COMPARISON  CRROR  COUNTCR 


IROCNT-0 


iNiriALize  oerecrioN  winoom.  oatc.  and  rccoro  lcnoth  in  scctors 

00  1 10  NCT«t .« 

NSAOHUtUL IN.MHIN.NCT) >0 
HSAOHMC  ML  iN.UMAX.NCn  *0 
NSAOUU(MSAM.HHIN.NCr>  *0 
NSAOMHtHSAH.UNAX.NCn  >0 
uCNNortNcn*'  * 

LOcrRS(Ncrt>o 
I 10  CONT INUC 

in  (ncct.lt  . 1 1 .OR.  <NCcr  .or  .m  I oo  ro  ooo 

NSAOHM ( ULI N . HN I N . NCC  r I •MSAOUM I WL I N . MM  I N > 

MSAOUM ( ULI N . UMAX . NCC T I •MSAOUM I MU N . UMAX  I 
MSAOHUIUSAM.HMIN.NCCr I •MSAOHUIUSAM.MMiNt 
M9A0UU I MS AN . MM AX . NCC  T I •MSAOUU C USAH . UMA X I 
UCNHOVINCCri«JNOV 

LOcrRsiNCcri>o  • RCCORO  lznoth  in  scctors  not  ocriNCO  AT  rue  opcn 
c 
c 

c PUT  l80»NCCn  INTCRNAL  OCICCTION  riLC  NAMC  IN  ALL  LU8N  nO  PACKCTS 
C 


L-8H0 


U U U O OOOO  o u u u 


o 


OAH  f»ACKAOe  AMCNOIX  L 
MAIN  MNOONAMS/ROUTINCS 


OMNOtN 

OOt 


00  leo  NMKr«i,*» 

CAU  HOVCtr ILONMKT ( I .NMKTI . I tl . I IS) . 

• ‘S*. <11. Ill,*  •) 

CALI  l»unCr<LSNMKTn  .NMKT)  .tC) . 

• teci*o‘)*Ncen 
ISO  CONTINUe 

c 

c 

c rsv  ro  assion  ncu  oerecrioN  rue 
c 

CALL  CSr*»tN(JAS0CS.t7.t.  NCCr.ll 

Mill reie,  ISO)  .iasocs 

ISO  rORNAr(’OI‘.SA6.MM 
CALL  eUCtrtNAO.JASOCS) 

CALL  CST*»IN<  juses.7.1 . NCCT.It 
CALL  CSr>»|N(JUSeS.I7.t  , NCCT.I) 

CALL  eRCsriiTeNR.jusesi 
iriALRCOYINAO) .ec.ot  00  ro  ISO 

CALL  noNorei  'oerecriON  riLC  alrcaoy  assionco  to  this  run*i 
oo  ro  »oo 

ISO  iriPRvCATCNAOl .eo.oi  00  to  soo  a successruLLY  assionco  nch  oerccriON  rue 
e 
c 

c OLD  oerccriON  rue  extsrs  >•  assion  it 
c 

CALL  HONorec  'oerecrioN  rue  alrcaoy  catalooco*) 

CALL  CSTNINI JASOAS. 17. I . NCCT.I) 

CALL  CRCSriNAO. JASOAS) 
inOTHRUNINAOl  .eo.o)  00  ro  <<06 
CALL  NOrATLI 

• ’oerecrioN  rue  in  use  oy  anothcr  run  • runio/qual  not  uniquc*) 

00  ro  900 


RCAO  HCAOCR  (SCCTORS  0 THRU  8>  INTO  OUrPCR 
•*00  CALL  ROHOR 


COHPARC  secroRS  o thru  s with  konncr.  konkls.  and  Konrir 

00  H<*t  NUO«t  .OS 

ir IKONNCRtNUO) .NC.KSurRINMO. I > > I ROCNT ■ I ROCNT » I 
•»•*!  CONTINUe 

00  ■*<*e  Nuo*i  .as 

iriKOMKLSINUO)  .Ne.KBUrR(NHO.'*l  ) I ROCNT • I ROCNT • I 
•*<*S  CONTI Nue 

00  •*•*!  NUD«l  .17 

IP(KONriT(NHO> .NC.KSurRINMO. SI i IROCNr«|ROCNr*i 
•*•*3  CONTINUC 


CONRARC  Konoer  mitn  secroR  7 thru  s 

00  •*S«»  NMOat.SN  0 OATCS  NCCO  NOT  HATCH 

I r I KOHoer i nmo) . nc . xsurRi nmo . s>  > i rocnt • i rocnt » i 


L-S»»7 


o 


0AM  MACKAOC  AMMCNOtX  I 
MAIN  MMOORANS/KOUnNCt 


OPNOtN 

OOM 


noil  CONTINUC 

e 

e 

e CNCCK  eoNPAKitON  cruom  countcr 

c * 

inmoCNr.Nc.oi  oo  ro  «7o  * 

CALL  HONorcc  'exisTiNO  ocrccrioN  rue  ok  --  Nor  RerLACco'i 
KLsrvr  • ‘OLO* 

00  TO  000 

•170  CALL  NONOrCf  ’CXItTlNO  OCrcCTION  TILC  KCPLACeOM 
C 
c 

e MKITC  iNrCRIH  OLANK  HCAOCR  Or  OINARY  ZtllOS  IN  tCCTOII  0 * 

C 

SOO  00  SCO  NHO«l.fi 

KiurRCNuo.n*o 
SCO  CONTINUC 
CALL  URNON 

c 

c 

C OONC 

c 

•00  RCruRN 

c 


c 

c 

c 

c intcrnal 

•ViROUriNC  ROHOR 

c 

lOrUNClLttRKTl-'aK*  • RCAO 

00  TO  000 

c 

c 

CNTRV  MRHOR 

c 

ioruNC(LOtPxr)«‘«c’  a uRire 

c 

000  l0ti7C(L0IPKn>00««  a NCADCR  IS  00  MOS/SCCTOR  TlnCS  9 SCCTORS 

lOAOORaOIPKTt  •LOC'KSurRi 

iosecruotPKr)«o 

CALL  eR;o:iiLOtPKr I 

ISTATalOCOOeiLOIPKn 

IPf ISTAT. NC. * ‘I  CALI  NOrATLI 

• COSACSl  ISTaT.  1 .1  I . • MHILC  OPCNINO  OCTCCTION  ruC  HCAOCR’ I 

iosizeiLOiPKTi*o  a rccoro  size  in  uoros  not  ocpinco  at  rue  opcn  tihc 

RCTURN 

c 

CNO 


L-ONO 


OAN  MCKAOC  APKNOIX  I 
MAIN  MOOAANt/MOUTINCt 


09IICLA 

001 


OUOMOUriNC  OOOCLA  • OOCN  ALfCONArC  ORINT  fttC  fOO  CLAOOtrv 

e 

c 

e 

e HtorooY 

c 

c 

C C N tCNLOStCR  LCe  00/00/70  ORIOINAL  COOC 

e 

e 

e nctmoo 

C 

c 

c A HAxinuH  or  t ALTCRNAre  PoiNr  rue  is  orCNCO  s initializco. 

c 

c 

C HACHINt'OCrCNOCNr  cooe 
c 

e NONE . 

c 

c 

e cxrcRNAL  NcrcACNces 

c 

c 

c orCNOA  orCN  ALrenNAre  roiNT  rues 

c 

c 

e excerrioNS 

c — 

c 

C NONE . 

C 

c 


iNCLuoe  Konxor.Lisr 
CALL  trace 
c 
c 

C NO  MORE  than  I ALTERNATE  RRlNT  riLE  TOR  CLASSirv 

c 

irtHALTH.LE.Oi  00  TO  900  • NO  ALTERNATE  RRINT  riLES 

HALTN>NIN0IHALTN. 1 I 

c 

C 

C OREN  rUEtSi 
C 


iriNOATAC.NE.OI  00  TO  000  • OATa/ChECKOUT  node 

CALL  ORENRR 

c 

c 

C lOENTiry  CRTS  SCCNC 

c 

iMITElie.OtSI 

009  rORMATlIXt  a SKIR  LINE 
CALL  lOLUSnO* 

CALL  lOERTSMOi 


L-0»*0 


o 


OAN  PACKAM  AmNOIX  L O^WCAA 

NAIN  MOOnAnt/MOUriNCt  *0t 


e 

e 

tso  RCruNN 

cm 


» 


t 


# 


) 


L-C90 


o n o n 


0AM  MACRAOC  AMMCNOtX  L 
MAIN  MROORANt/MOUnttft 


OLMCLA 

OOt 


tOOAOVriNC  tLMCLA  I MtOT  OKCrRAL  LINITt  fOM  CLAOtlfV 


(C  M •CMlOttCMI 


cxrcRNAL  tutROuriNCt/ruNcrioNt  callco 


not  00 

HOUNir 


INCLUOC  KONXOr.Lttr 
INCLUOC  KOMKLI.LItr 
INCkUOC  komoln.liot 
CALL  rOACC 


OLOr  mCTNAL  uni  TO 

iriNALTn.LC.Ot  00  TO  900  0 NO  ALTCRMATC  NfUNT  riLCf 

icvi*NAxoi  aevLOt  'ti  .01 

ieVN«NAXOI  IlCVLOl  *901  . UCVHI I *101  > 

ieVH«NlNO( ICVM. It7t 

ieviO*IO«l  MCVL*9»/|0l 

00  900  N*C.NLINCN 

CALL  klHOLTint 

000  eonriNur 

900  ACruRM 


9U0N0UTINC  LinnriNi 
OtnCNOiON  Lfvni tool 
CALL  MOUNlTMi.tOI 

LevL*NAxo(  aevLOiNi  •ot  .o> 

iriLCVNi  (N>  .or .CS9'  call  nomarni  *l  ini  r cmanncl  val^;:  > lOr*' 
LCVNaNiNOI ILCVMI (Ni •ft .t99> 

URITCI 10. 900>  INTCRAL INUOl .NUO>l .Nl .LINCMINI 
100  fORNATi 

I '09RCCTRAL  UNI  T9  rOR  ' .*k%!  t 
t • cm* . I u 
NLV9>t*IN>l I 
NLVUMLVO'I 

00  190  LCV»LCVM.LCVL. •! 

00  100  INOVAL* ICVL.ICVM 

IflLCV.LT.L  INVALI  INOVAL*!  .NLVI I I 00  TO  ]«*0 
iriLCV.Or  .LINVALI  INOVAL*!  .NLVn  I 00  TO  9«»0 
L9VNI|N0VAL*II*‘X* 

00  TO  loe 

1*0  L9VNI INOVAL *1 1 •*  * 


L-991 


u o o o 


OAN  PACKAOe  APPCNOU  L 
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SLNCLA 

008 


m continue 

IPtHOOrLCV.IO) .NE.Oi  00  TO  380 
00  370  1NOVAL«ICVtO. ICVN. to 
370  tr(LSYHllNOVAL*II.EQ.*  *1  LSYHM NOVAL *1 » • * » ‘ 

380  URirrt 10.3891  LCV.(L8YH(lN0VAL»t>.lN0VAL«tCVL.tCVHi  < 

389  rORNAT ( IX. J3. 188AI I * 

380  continue 


HRITE  ORAPHI  ‘ CALP  POR  INDEX  CHANNEL 

Hoo  P0RNAri4x. teal i t 

00  too  INOVAL»ICVL . ICVH 
100  LSYN(lNOVAL*tl-INOVAL/IOO 

uRirei  10.400)  (lsync inoval . inoval>icvl . icvh) 

00  10  INOVAL-ICVL . ICVH 

10  LSYHI INOVAL » I )>( INOVAL -too* I INOVAL/ 100) > / 10 

HRI*Ef 10.400)  <LSYH( iNOVAL  *1  I . INOVAL-ICVL .ICVH) 
00  I INOVAL-ICVL . ICVH 
I LSYHI INOVAL -I )-INOVAL-IO«( INOVAL/ 10) 

uRirei 10.400)  ilsyni inoval-i ) . inoval-icvl . icvh) 
uRirei 10.900)  lihchi 
900  PORHATfO  CHANNEL  '.ID 
RETURN 
ENO 


) 


# 
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OAN  PACKAOe  APPCNOIX  L 
MAIN  PROORAHS/ routines 


PRTOCT 

001 


PROORAH  PRTOCr 


HISTORY 


C H SCHLOSSCR 
E H SCHLOSSER 


LEC  07/02/73  ORIOINAL  CODE 

LEHSCO  os/io/ao  kohalt/syn/tbl/ks.prtoens  to  PRTOET 


NETHOO 


THIS  PROORAH  DISPLAYS  ANO/OR  LISTS  PORTIONS  OP  THE 
DETECTION  PILE(S>  GENERATED  BY  THE  CLASSIPY  PROORAH. 


hachine-oepenoent  code 


NONE. 


EXTERNAL  REPERENCES 


NVIATO  a NAHE 

VIATO  a CALL 

VIA 

EXTERNAL  PROOOO. 


’VIA*  ’TO’  routines 
’VIA’  ’TO’  routines 
TO 

PROXQT 


exceptions 


I.  IP  NO  DETECTION  PILES  EXIST  rOR  ThE  CURRENT  PROJECT 

AND  RUNIO.  OR  THE  EXISTING  OECTION  P1LE(S>  ARE  OEPECTIVE 
OR  INCOHPATISLE  THEN  PRTOET  MILL  GENERATE  A FATAL 
ERROR  AND  REFUSE  To  GENERATE  ANY  DISPLAYS  OR  LISTS. 

?.  IF  PROXQT  DOES  NOT  CALL  NVIATO  TO  CHANGE  THE  ’VIA’  AND/OR  'TO' 
routines,  then  PRTOET  HILL  CALL  TO  PROXQT  IN  AN  ENDLESS  LOOP! 


GLOBAL  declarations 


include  KOHXQT.LIST 
include  KOHLOO.LIST 
include  kohl  us. list 

INCLUDE  K0HL2N.L1ST 

include  kohihh.list 
include  KOHOUU.LlST 
include  kohner.list 

INCLUDE  KOHKLS.L 1ST 


a COHHON 

a COHHON 

a COHHON 

a COHHON 

a COHHON 
a COHHON 

a COHHON 

a COHHON 


PROORAH  execution  SNITCHES.  COUNTERS 
LOO  file  buffer.  I/O  PKT.  POINTERS 
POINTERS/PLAGS/BUPFER  FOR  UNIT  5 
I/O  PKTS  FOR  detection  FILES  UNITS  2N 

input  uinoou  packets 
OUTPUT  MiNOOH  Packets 
ERTS  SCENE  PARAhETERS 
CLASSIPICATION  INFO 


L-P53 


OAN  PACKAOe  APPCNOIX  I 
HAIN  PROORAHS/ROUrtNCS 


iNCLuoe  Konnr.Lisr 
INCLUOC  KONALT.LISr 
INCLUOC  KONSYN  LIST 
INCLUDE  KONTBL.LISr 
INCLUOC  KOHKS.LISr 
INCLUDE  KONOCr.LISr 
C 
c 

C PftOCCOUNC 
C 

c 

CALL  NVIATOt  PROOOO . PROXQY t • TIRST  CALL  IS  VIA  PROOOO  TO  PROXOr 

too  continue 

CALL  VIATO 
00  TO  too 

END  1 (STOP  IS  PCRPORNCO  BY  APPROPRIATE  *T0*  ROUTINE) 


PRTDCr 

008 


0 CONHON  AOJUSTHCNr/RCOI stray ION  PARAICTCRS 
a CONHON  ALTERNATE  PRINT  FILE  COUNTERS.  POINTERS 

• COHNON  SYNBOL  TABLE 

• CONHON  NULT I -PURPOSE  TABLE 

• CONHON  COLOR  SCREEN  PARANCTCRS 

a CONHON  DETECTION  FILE  MINOON  PACKETS  A OATES 


* 


L-8S0 


OAN  PACKAOe  APPCNOtX  L 
MAIN  PROOftAHS/ROUriNCS 


pnrocr-NiA 

001 


OOrOCT  NICRAIICHY 


poooer 

t 

I 

i 

ttvuro 

vuro 


t 

1 

t 

: 

3 

3 

PROtes 

3 

3 

3 

3 

PROOOO 

3 

3 

: 

3 

3 

PR03H5 

3 

3 

> 

PRO. . I 
PRO. .8 
PRO. . 9 

i 

PROXQT 

: 

3 

3 

3 

3 

KHO. . . 

3 

PRO. . . 

3 

3 

3 

KHOXXX 

3 

3 

PRoexi 

3 

3 

3 

3 

PRO. .3 
PRO. .H 
PRO. .5 

3 

3 

3 

3 

PStART 

3 

3 

OPNl^N 

3 

3 

SYSAOO 

3 

3 

3 

CLOSPR 

OLCTPR 

1 

PS  TOP 

3 

RtAOdN 

: 

I 


oer-porocT 


> t t : 

OPRPRO  CALSYN  CALSPA  CALMIN 

! 

: 

: 

OPCNPR 


L-S5S 


OAN  PACKAOC  APAtNOIX  I 
MAIN  PAOORANS/ROUTINCS 


Puroer/viRruAL 

oot 


/VIRTU/ 


NisroRv 


C H SCHLOSSCR 
C N SCHL0S8CR 
e H SCHLOSSCR 


LCC  0R/0e/7>» 
tec  11/06/79 
LCHSCO  09/16/80 


oRioiNAL  cooe 

•HAP.PZfNI:  NO 
CHANOe  PRTOCNS 


*N*  IN  OCNANOI 
TO  PRToer 


» 


NCTHOO 


CONSTRUCT  OHAP  CXEC  CONNANO  TO  LINK  REAL  ABSOLUTE  IN  TPPS- 
CONSTRUCT  axor  CONHANO  TO  EXECUTE  REAL  ABSOLUTE  IN  TPP$. 

WRITE  anAP  a axor  cohnanos  to  tenporary  pile  bo. 
aAoo  temporary  pile  bo.  to  runstreah. 


hachine-oepenoent  code 


WRITTEN  IN  assembler  POR  ThE  UNI  VAC  It  00  SERIES  COMPUTERS  UNDER  THE 
EXEC-B  OPERATINO  SYSTEM  USINO  6-BIT  PIELOATA  CHARACTERS. 
IMPLEMENTINO  CODE  MUST  BE  REWRITTEN  POR  OIPPERENT  CHARACTER  COOES. 
OIPPERENT  OPERATINO  SYSTEMS.  AND  OIPPERENT  MACHINES. 


EXTERNAL  REPERENCES 


ER  CSPS  a 

ER  lows  a 

ER  EXITS  a 

0AM. PRTOET-MAP 
0AM. SYS-MAPOPT 


PUNCTION  TO  SUBMIT  EXEC-8  CONTROL  STATEMENT 
initiate  I/O  ANO  WAIT  POR  COMPLETION 
TERMINATE  PROORAM  EXECUTION 

a SYMBOLIC  MAP  DIRECTIVES  To  LINK  EDIT  REAL  ABSOLUTE 

a standard  map  options  when  link  eoitino 


EXCEPTIONS 


I.  RESULTS  are  UNOEPINEO  UNLESS  THE  PILE  0AM.  IS  SASO-O  I aPREP-0. 


* 


GLOBAL  DECLARATIONS 


(PROORAM  type  is  PRE -loaded  by  exec  into  REOISTER  AV  as  POLLOUS: 
( B • REAL  time 
( 3 • LOW  EXEC 

( V > demand 
( s • deadline  batch 

( 6 • BATCH 


) 


L-BS6 


DAN  AACKAOe  APKNOIX  L 
NAIM  PnOOKANS^ROUrtNCS 


PRrocr/viiiruAL 

ooc 


(•XQT  OPTIONS  ARC  RRCLOAOCO  OY  CXCC  INTO  RCOISTCR  AS  IN 
tNASrCR  BIT  notation. 


LOCAL  OCCLARATIONS 


AXRS 

S<00>  . O-BANK 

S8SH  PORN  6.6.6.18 

mil  I6686863333334HHHHHSSSSS5666666777777886888SB9999 
LAB80F  SSSN  OSO.I.'F'.O  . LABCL.  I NO.  FORTRAN.  FttLOATA 

LA6IN0  ••SOFF«* 

HAPSOF  SSSH  000.9.0.0  . OATA.  9 UOS.  . FIFLOATA 

NAPIHO  ‘IXQTSt  HAP.FZN  OAN. PHTOCT -NAP . PRTOCT  . :«XQTS* 

AOOSOF  SSSH  000.9.0.0 

AOOINO  ’IXQTS:  ADO  OAN. SYS-NAPOPT  . ilXQTS’ 


XQTSOF 

SSSH  000.9.0.0 

XQT 1 NO 

’•XQTSi  XQT.I 

EOFSOF 

0 

PF 

FORN  IE. 6. 19 

CSFASO 

‘lASO.T  EO.  . 

CSFADO 

’•ADD  EO.  . * 

SAVREO 

RES  1 

lOPKT 

ISOO  *E0*.WS  33.LA8SOF 

PROCeOURF 


Sion  . 1 

•BANK 

PRTOENS* 

LA.U 

AO.*  • 

TNE.U 

A*».)» 

SA.SE 

AO.NAPINO^E 

LA 

AO.ICaFASOI 

ER 

CSFS 

. 

SA 

AO. SAVREO 

• 

PSRINT 

IPF  E. I .SAVREOI  . 

OETOPT 

PUTOPT 

OS 

AE.XQTIM0*E 

SA 

A>»,XQTIN0*<*  . 

URI  TE 

LA 

AO.IIOPKTl 

ER 

IONS 

ADO 

LA 

AO.ICSFAOOl 

ER 

CSFS 

ER 

EXI  TS 

PRTOCT  . IlXQTS* 

CNO-OF-FILC  STOP  HORO 


. *0*  0 


AO  !■  * 

SKIP  NEXT  INST  IF  AN04  (NOT  OFNANOI 
OCNANOI  BLANK  OUT  N OPTION 
AOORCSS  OF  lASO  INAOe 
00  IT 
STORE  I 

PRINT  lASO  status 

LOAD  OPT  LTRS  INTO  AS.A3.A>« 

STORE  OPTION  LCrrCRS  INTO  IXQT  IMAGE 
(3  HOROS  --  MAX  la  OPT  LETTERS) 

ADDRESS  OP  I PACKET 
WRITE  SOF  images  TO  EG. 

ADDRESS  OF  lADD  IMAGE 
DO  IT 


END 


PR TOE NS 


OAH  PACKAOC  APKNOIX  L 
HAtN  PNOORAHS/ROUriNCS 


RnrDCT’HAR 

001 


ORTOCT  0¥CRLAY  OTRUCTURC 


MltrORV 


C H SCNLOtSCR 

e N ocNLotseR 

C H 8CNL0S8CR 
C N 8CM.088CR 
e H 8CNL08SCR 


LCC  00/I0/7A 
LCC  07/18/70 
LCe  01/30/70 
LCC  01/00/00 
LCN8C0  08/te/00 


ORIOINAL  COOe 
UPORAOe  OOCUNCNrATIOM 
AOO  HACRO  C0HHAN08 
PCEK.POKC.IP.pl  A PHA8C  3.H.S  8C0 
CHA.COL. INT.PIC.TAO.  PRT0CN8  TO  OCT 


lio  OAH. 


8C0  8-NAIN 

IN  OAH.PRTOCT/  . HAIN  PROORAN 

IN  OAN.NVIATO  . NAHC/CALL  'VIA*  ANO  ‘TO’  SUOROUTINCO 
IN  0AN.NUL8U0  . 00  NOTHINO 
IN  0AH.8V8>0L0CK  . OLOCK  OATA  SUOROOTINC 


MONITOR  POR  phase  O.I.C.9  COHNANOS 


SCO  8>PROOIC8« 

IN  OAH.PROOOO 
IN  0AH.PR0I88 
IN  OAN.NTAOS/OAM 


CALL  uscR'SPCciPteo  PHASE  0 routine 

CALL  PREVIOUSLY  NAHEO  PHASE  I /E/9  ’TO*  ROUTINE 
. OAH  UNIT  • table  DOES  IN  SAME  SEO  U/  PORTRAN 


I /O 


utilities  POR  PHASE  0.I.S.9  COMMANOS 


SCO  8-RCAOS* . (S-PROOieSi 
IN  0AH.RCA09  ’RCAO’  INTO  UNIT  S SUPPER 

IN  OAM.OETS  ’OET*  PREE-PORMAT  PIElO  PROM  UNIT  9 SUPPER 

IN  0AM. WARNS  . PROCESS  UARNINO  OUONOSTIC  POR  UNIT  S PIELO 
IN  0AM. SPANS  . ENAOLE/OI  iAOLE  SPANNING  POR  UNIT  S 


SEO  S-OPNCLPR* . (S-PR00IE9I 
IN  OAN.OPRPRO  . OPEN  ALT  PRT  PILES 
IN  OAM.CLOSPR  . CLOSE  ALT  PRT  PILES 


SEO  S'CALSUIN* . (S-PROOIE9I 
IN  OAM.CALSYM  . CALIBRATE 
IN  OAM.CALSPA  . CALIBRATE 
IN  OAM.CALHIN  . CALIBRATE 


SYMBOL  table 

print/plot  COEPPICIENTS  POR  SPACING 
WINDOW 


. PNASC  0.1. 2.9  COMMANOS  (PORTRAN  I/O  ALLOWEOI  

SCO  S-XQTCXI • . (8-RCA0S.S*0PNCLPR.S-CALSHINI 
IN  OAH.PROXQT  . PRTOET  INITIALIZATION  ROUTINE 
IN  OAH.PROEXI  . PRTOET  TERMINATION  ROUTINE 

SCO  S>PSTART«.(S>XQTCXIt 


L-SSB 


OAH  PACKAOe  APKNOIX  L 
MAIN  PROORANS/ROUriNCS 


PRroer-ttAP 

oot 


IN  OAN.PSTARr  . OCNCRAL  INITIALIZATION  NOUTINC 


SCO  S*0PNItN*.l8*K0rCXII 

IN  DAH.0PNI9N  . OPCN  INPUT  OCTCCTION  PILCtSI  IUNIT8  «t  . . . 8<*l 

SCO  t-PST0P«.(8-X0TCXll 
IN  OAN.PSTOP  . OCNCNAL  TCRHINATION  ROUTINC 


SCO  S-NCLP«.(8 
IN  OAN.KHOCLC 
IN  OAN.KNOexP 
IN  OAN.KNOn 
IN  OAH.KHOtr 
IN  OAN.KHONCU 
IN  OAN.KNONCX 
IN  OAH.KNOOrP 
IN  OAH.KNOON 
IN  OAH.KNOPee 
IN  OAH.KHOPOK 
IN  OAN.KHOriK 


■RCAOS . S’OPNCL PR . S >C AL 8U I N I 
. CLCAR  WARN I NOS /ERRORS 
. EXPLAIN  PROORAH/CONNANO 
. ENO  IP... FI  BLOCK 
. aCOIN  IP. . .PI  BLOCK 
. PRINT  NEWS 

. CONOI riONALLV  PERPORN  NEXT  COHHANO 
. TURN  OPP  NODE  SHITCHtESI 
. TURN  ON  NODE  SHITCHIES) 

. PEEK 
. POKE 

. PRINT  CLOCK  TINE  A CHAROE  TINE 


SEO  S'OEOHCTRY* . IS-REA08.8-0PNCLPR.S-CALSHINI 
IN  OAH.KNONER  . OET/CHECK  TRANSVERSE  HERCATOR  CENT  NERIOIAN 
IN  OAH.KNOSPA  . OET/CHECK  UlNOOM  SPACINO 
IN  OAN.KHOTIC  . OET/CHECK  TICK  INTERVALS 
IN  OAN.KNOHIN  . OET/CHECK  HINOOH  ENVEL OPE / VERT  I CES 
IN  OAH.KMOZON  . OET/CHECK  UTN  PROJECTION  ZONE 


SEO  S-SPECS'9* 
IN  oah.oetcha 

IN  OAN.KNOOEN 
IN  OAN.KNOHEA 
IN  DAH.KHOORI 
IN  OAH.KHORAO 
IN  DAN.PR00I9 
IN  0AN.PR0LI9 
IN  0AN.PR0PI9 


S-REAOS.S-OPNCLPR.S-CALSUINI 
. OET/CHECK  DETECTION  CHANNELS 
. OET/CHECK  density  UNITS 
OET/CHECK  PAOE  HEAOINOISI 
. OET/CHECK  HINOOH  ORIGIN 
. OET/CHECK  RADIANCE  UNITS 
. DISPLAY  (PHASE  91 
. LIST  (PHASE  91 
. PICTURE  (PHASE  91 


SEO  S>NI$C« . (SPREADS. S-OPNCLPR.S>CALSU INI 


IN  OAN.KNOCOL 
IN  DAN.KNOCOP 
IN  OAH.KHOINT 
IN  OAN.KNDPAO 
IN  DAN.KNOPRI 
IN  OAN.KNOREN 
IN  OAN.KNbSYN 


OET/CHECK  COLORS 

OET/CHECK  NUN8ER  or  OUTPUT  COPIES 
OET/CHECK  intensity 
SKIP  TO  TOP  OP  NEXT  PAOE 
OET/CHECK  PRINTER  SPECIFICATIONS 
RENUNBER  (OET/CHECK  NEH  HINOOH  SEQUENCE 
OET/CHECK  SYMBOLS 


NUMBER! 


SEO  S>EXEC« . (S-REAOS.S-OPNCLPR.S-CALSUIN) 

IN  OAN.KNOXXX  . MACRO  COMMANDS 
IN  OAN.KNOOAO  . DYNAMIC  lAOO 
IN  OAN.KNOOAS  . DYNAMIC  lASO 
IN  OAN.KMOOBR  • DYNAMIC  ABRKPT 
IN  OAM.KMOOPR  . DYNAMIC  IPREE 
IN  OAM.KMOOLO  . DYNAMIC  ALOO 

SEO  S'OISLISPIC* . (S-REA0S.S*0PNCLPR.S*CALSUINI 


L*eS9 


0*H  MCKAOC  AP^CNDtX  L 
HAIN  PMOOPAHS/ROUriNeS 


piirocr*NAP 

oes 


IN  OAN.PNOOIS  . OltPLAY  (PNAtC  01 
IN  OAN.PNOLtS  . lltr  tPMAOC  01 
IN  OAH.PNOPIC  . PICruNC  (PNASC  0> 

SCO  t-HlSTAS*. (S*NCA0«.3-0PNCLPN.S*CAISUINI 
IN  OAN.KMOCNO  . CROSST ABUL ATC  COLOR  A INTCNSITY 
IN  OAN.KMOTAB  . TABULAre  RRCVIOUSLV  OIS/LtS^RIC  OATA 


* 


* 


. NONirOR  rOR  PHASE  3. ••.a  CONHANOa  — - - 

SCO  S>PR034S« .S'PROOteB 

IN  0AN.PR03H5  . CALL  PREVIOUSLY  NAHEO  PHASE  3/H/S  *TO’  ROUTINE 


. PHASE  3.H.S  COHHANOS  «NO  FORTRAN  WOl  

SEO  S-PROOtS*. (S-PR03HSI  . DISPLAY  DETECTION  OATA 
IN  OAN.PROOI3 

SEO  S-PR0LI3*.(S-PR03>»S)  . LIST  DETECTION  OATA 

IN  OAN.PROLI3 

SCO  S'PROPI  3*  . (S*PR03<*Si  . PICTURE  OCTCCTION  OATA 

IN  OAH.PROPI3  I 


t 


« 


4 


J 


L-EOO 


OAH  PACKAOC  APPCNOIX  L 
MAIN  MOORAHS/ROUriNeS 

IN  OAN.RRTOCr/VtRrUAL 


MTOCr-HAR/ VIRTUAL 
«OI 


4 


4 


( 


4 


L>e6i 


ooooooooooooooooooooooooooooooo  oooooooooooooooooo 


OAN  f»«CKAOC  APPCNOIK  I 
MAIN  PAOORANt/IIOuriNCS 


PAMOO 

001 


tumouriNC  pooooot  • call  pnaw  o tuoAouriNtt  roo  PAtocr 

I NANSUOt  • NAtiC  OP  SUONOUTINC  TO  CALL  (00  NULOUOi 


NItrOOT 


r 

N 

SCHLOSSeO 

LCC 

OS/lt/YN 

c 

N 

SCHLOSSCO 

LtC 

07/00/70 

c 

H 

SCNLOSSCN 

LCC 

01/30/79 

j 

C 

CO  ISP 

LCC 

10/01/79 

j 

C 

CO  ISP 

LCNSCO 

09/10/00 

OOlOINAL  eooc 

ocLcrc  actn  k’O  a nuhcaic  options 

AOO  NACOO  CONNANOt 
LIST.NCNIOlAN.PrCK.POKC.OAOI ANCr. 
SPACINO.TInC. IP.PI  CONNANOS 
CHAN.COIOO.COOSS.INTCNSI Tr.PtCT.TAO 


NCTHOO 


OCTNICVC  NCXT  USCN  CONNANO.  VALIOATC  IT.  ANO  CALL  ITS  SUONOUTINC. 


HACHINC-OCPCNOCNT  COOC 


NONC. 


cxtcnnal  NCPCNCNCCS 


NCAOS 
OCTSAL 
INTCOCN 
MANNS 
POO. . . 
KNO. . . 


1 NCAO  PUNCHCO  CANO  ON  TCNNINAL  INPUT 
a OCT  ALPHAOCTIC  COHHANO 
ICC  a INTCOCN'CHAN'CQUI V PON  CNANACTCN 

a pnint/loo  hannino  ncssaoc 

a OCOICATCO  SUONOUTINC  PON  CONNANO  ...  I see  BCLOUl 
a CONNON  SUONOUTINC  PON  COKHANO  ...  < SCC  SCLOWI 


CXCCPTIONS 


I.  A OLANK  CONNANO  IS  lONONCO. 

f.  AN  INVALID  CONNANO  OCNCNATCS  A OIAONOSTIC. 

S.  AN  CNO'OP-PILC  ON  UNIT  S IS  TNCATCO  ThC  SANC  AS  TMC  CXIT  CONNANO. 


OLOOAL  OCCL ANA T IONS 


INCLUOC  NULCST.LIST  » OCPINC  NULL  CNANACTCN  STNINO 
C 
C 

C LOCAL  OCCL ANA T IONS 


L-060 


raeooo 

OOff 


• rtiitr  s CNAM  or  utcii  cohnamo  (tCANK  Arrcn  oomc 

A NCAOS  ttATUt  t’COr*  NCAMt  CNO<Or<fllCt 

• Ncoirico  I'C'C  or  rintr  chao  or  conhano 

« 

moiikouiic 


c 

C CALL  MCVlOUtLT  NANtO  OUtOOUTtNC 

e • 

^ CALL  rOACC 

CALL  NAtttUt  • CALL  TO  NULSUO  OOCi  NOtNlNO 

c 

c 

C KCAO  COHHANO  rnON  UNIT  S (CAAO  OCAOCN  00  TCNHINALI 

c 

KONO«*  NUL*  • inrotiiOLC  iNOuT  iNOt  LCrt  uutrtricoi 

irinOATCH.NC.Ol  CALL  OCAOSlLOtTAT . • M » riLL  turrCR.  CLANK  CUC  HtO 

iriHOATCN.CQ.Ot  CALL  NCA09I LSf TAT . NULCtTI  • riLL  tUrfCR.  NO  CUC  N«0 

iriLStTAT.NC. ’ *1  KONO**eors* 

irtKOno.NC. ‘CorsM  call  octsalikoho.ih.  nulcoti  • ocr  i alona  chaos 

c 

‘ONVCOT  riOST  CNAOACrCO  or  COHHANO  to  INTCOCO'CNAOACTCO'CQUIVALCNT 


AOOCNOtX  L 
l%N9/00UT|NCt 


iNTceco  Kono 

INTCOCO  LSSTAT 
INTCOCO  KASC 


KASC«ICC(KOnOI>ICC(*A'l*t  S A TO  C • I TO  CO 


C 

c 

c CASC  statcncnt  on  nooirieo  t>c>c  or  connano'S  riosT  chaoactco 
c 

irciKASC.LT. II .00. (KASC.0T.C6I  I KASC*C7  • NOT  ALOHA 
00  TOC 

0 KOI  .*»OC.<»0S.**O>».>»09.<»06.*»07.>»0S.i»09.'HO. 

1 Nit  .•*IC.'»ll.«»t<».>*lS.*n6.<*l7.NtS.<»l9.HC0. 

C NCI .nCC.nCS.nCh.nCS.nCS.ncTi 

A .KASC 


e 

c 

c OCTCONInC  COHHANO.  OCOroOH  COHHANO.  CHANOC  KOHO  TO  9L ANK 


C 

NOt  CONTINOC  !•••  A 

NOC  COnTINUC  S 

00  TO  000 
C 

NOS  CONTINUC  C 

ir(KOHO.CQ. ‘CHA* 
iriKOHO.co. *CLC’ 
iriKONO.CQ. *COL* 
iriKOno.CQ. 'COO* 
00  TO  too 

6 


CALL  0CTCHA(K0H0I 
CALL  KNOCLCCKOHOI 
CALL  KNOCOLCKOHOI 
CALL  KHOCOO(KOHO> 


• CHANNCL  lOCTCCTtONI 

• CLCAO 
0 COLON 

0 coosstao 


NON  CONTINUC  $•••  0 

iriKONO.CO. *OCN‘ I CALL  KNOOCNIKOHOI  0 OCNSITT 


OHi: 


^7^  Me, 


L-C6S 


OAN  AACKAOC  AMCMOIX  L 
RAtN  MOONAHt/ROUriNCt 


RROOOO 

001 


irtRONO. CO. *010*1  CALI  OOOOIOIRONOI 
00  TO  000 

e 

«00  eONMNUC  ••••  c 

IffROttO.CO.  *Coro*l  CALL  OOOCXKKOirai 
iriKOMo.ro. *cxi * I call  rRocxiiKONOi 
iriKOHO.CQ. *cxr*t  call  knocxoikomoi 
00  ro  000 
c 

•too  coNriMuc  r 

irtxoNo.ro.  *n  *i  call  xmom  ikomo> 
00  ro  000 
c 

••07  CONriNUC  ••••0 

00  ro  000 
c 

•too  CONriNUC  ••••  N 

irtXONO.rO. ‘HCA* I call  KN0NCA(K0N0I 
00  ro  000 
c 

••00  CONriNUC  ••••  I 

irfKOHO.CQ. * If  *1  CALL  KNOIf  (KONO« 
irtxono.co. * iNr * I call  KNOiNrixoNO* 
CO  ro  000 
c 

••10  CONriNUC  •*•*  j 
••II  CONriNUC  0««*  K 

00  ro  000 
c 

••It  CONriNUC  O***  L 

iriKOHO.CO. 'Llff*l  CALL  MOLIttKONOt 

00  ro  000 

C 

••IS  CONriNUC  ••••  R 

iriKONO.CO. *NCA* > CALL  KHONCRIKONOI 

00  ro  000 

c 

*•!••  CONriNUC  N 

iriKONO.CO. 'NCU* I CALL  KNONCU(KONO< 
iriKOHO-CO. ‘NCX * t CALL  KHONCXIKOnOi 

00  ro  000 

c 

••19  CONriNUC  ••••  0 

iriKONO.CO. ‘orr* > call  knoorr ikono* 
iriKONO.CO. 'ON  ‘I  Call  knoonikono* 
iriKONO.ro. 'ORi ' I call  knoonhkonoi 
00  ro  too 
c 

••10  CONriNUC  ••••  A 

iriKONO.CO. 'AAO* > CALL  KNOAAOIKONO' 
iriKONO.CO. 'ACC* I CALL  KNOACC'KONOI 
iriKONO.CO. ‘AlC* I CALL  AAOAIC'KONOI 
iriKONO.CO. *AOK* I CALL  KNOAOKIKONO' 
iriKONO.CO. 'AMI  * I CALL  knoamukono* 

00  ro  000 
c 


0 OIOMLAT 


0 CNO'Or-riLC  cauocs  cxir 
« cxir 

• CXALAIN 


0 ri  iCNOiri 


I ncaoino 


• ir 

• iNrcNfirr 


a Lior 


a NCMIOIAN 


a Ncwt 

a NCXT 


a orr 
a ON 

a OMioiN 


a aaoc 
a ACCK 
a AicTuMC 
a aokc 

a AMINTCN 


L'tOi* 
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<117  CONTINMC  ••••  0 
00  TO  000 

c 

«io  continuc  o**«  n 

triKONO.CO. ‘RAOM  CALL  (CNOAAOIKOMOI  0 NAOUMC 

triKONO.ca. ’OCNM  cacl  knorcnikoroi  o ocnuhocn 

00  ro  000 

e 

<»io  continuc  0«**  0 

iriRONO.CQ. *ONA*t  CALL  KNOSOAIKONDt  0 SRACINO 

irtKONO.CQ. ‘STN* I CALL  KNOOVNIKONO'  • OYNOOLt 

00  TO  000 

e 

«»C0  CONTINUC  ••••  T 

If IKONO.CQ. 'TAO* > CALL  KNOTaOIKONO*  A TAOULATC 

If IKONO.CQ. ‘TIN’ ) CALL  KHOTlNIKONOl  • TinC 

00  TO  000 

c 

•»ci  continuc  #•••  u 
<*Ct  CONTINUC  A**«  V 
00  TO  000 

c 

<*ts  continuc  ••••  M 

If IKONO.CO. *HlNM  CALL  KNOUlNIKOMOl  • UlNOOU 

00  TO  000 

c 

<»CH  continuc  0«*«  « 

<*co  continuc  o««*  t 

00  TO  000 

c 

*00  continuc  0***  z 

If IKONO.CQ. ’ZON* I call  KNOZONIKONOI  0 ZONC 
00  TO  000 

c 

•*07  continuc  0**«  not  ALfNAOCTIC 

If IKONO.CQ. ’OAO' I CALL  KNOOAOIKONOI  0 lAQO 

If IKONO.CQ. ‘OAO* • CALL  KNOOAOIKONOi  • OAOO 

IflKONO.CQ. *0A0*>  CALL  KNOOAOIKONO)  • fAfO 

If IKONO.CQ. *fON* I CALL  KNOOONIkONO*  • tONKNT 

If IKONO.CQ. 'OfR* I CALL  KNOOfAiKOMOi  • OniCe 

If  IKONO.CQ. ‘OLO*  > CALL  KHOOLOiKOHOi  • tl  Ci.1 

C 
C 

C If  CONNANO  MAS  not  fOUNO.  TNY  NACRO'CONNANO 

c 

000  tfIKONO.NC.'  *1  KONO>*fNO*‘  • tot  I CMAAf  or  AAOO  NAHC  f L JS 

IfIKONO.NC.*  *1  CALL  KNOXXXIKONOi  • NACAO  COHHANO  HANOLCR 

e 

c 

C CONNANO  10  INVALID  If  STILL  NOT  fOUNO 
C 

IfIKONO.NC.’  ’>  CALL  UANNSI  ’INVALID  CONNANO  -•’> 

C 

C fONCC  ALL  fOOTNAN  I/O  NOUTInCO  INTQ  SAHC  SCO  AS  fROOOO  (NCvCN  fCRfORHCOl 
C 

IflKONO.CQ. ’JUN.’ I RCAOl 008.0001  KONO 


RROOOO 

OON 
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PROOOO 

90S 


u 


•9S  PORHATCIXl 

c 

c 

e RCrURN  TO  RAIN  POR  CALL  VtA/TO  NANCO  SUBROUriNC  IN  ANY  OVCRLAY 

e 

RETURN 

CNO 


t 


L-aee 
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SUSROUriNC  PR0I89*  • CALL  PHASC  l/f/9  RURROUTINCS  TOR  PRTOCT 

I NANSUei  A NANC  OP  8U9R0UrtNC  TO  CALL 

C - 

c 

C (J  C CRISPt 

c 

c 

C CALL  PREVIOUSLY  NARCO  SUSROUriNC 

c 

CALL  trace 
CALL  NAHSUe 

c 

c 

c RETURN  TO  RAIN  FOR  CALL  VtA/TO  NARCO  SUBROUTINE  IN  ANY  OVERLAY 
C 

RETURN 

CNO 


PRO! 89 
OOt 


L-867 


PR034S  . 
001 


suenouriNC  PRosnsf  o call  phasc  s/«/s  suououtincs  for  pnroer 

I NANSUOt  0 NANC  OF  tUSROUTlNC  TO  CALL 

C - - 

C 

C (J  C CRISP) 

C 

C 

C CALL  PREVIOUSLY  NAHEO  SUSROUriNE 
C 

CALL  trace 
CALL  NANSUB 
C 
C 

C RETURN  TO  MAIN  FOR  CALL  VlA/TO  NAHEO  SUBROUTINE  IN  ANY  OVERLAY 
C 

RETURN 

ENO 
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OAK  PACKAGC  appendix  L PROOtS 

NAIN  PROORANS/ routines  001 


tUOROUriNE  PP.OOtSI  a display  detection  riLECSI  (PHASE  ot 
u KOHOi  a It  riRsr  s chars  or  conhano  ot  spaces 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HISTORY 


c 

E 

H 

SCHLOSSER 

LEC 

I0/0S/7S 

ORIGINAL  CGOE 

c 

E 

H 

SCHLOSSER 

LEC 

08/80/78 

DELETE  RETN  K i 

HAKE  EXTERNAL  SUB 

c 

E 

H 

SCHLOSSER 

LEC 

03/18/79 

RADIANCE  a CLASS 

DETECTION  FILES 

c 

J 

C 

CRISP 

LEC 

18/81 /79 

SPLIT  GUT  PROOl 3 

a PROD  19 

HETHOO 


CALIBRATE  SYHBOLS/ SPACING/ HI NOOU.  OPEN  PRINT  riLCS.  DISPLAY  HEADINGS. 
then  NAHE  PROOI3  TO  GENERATE  BODY  OF  DISPLAY. 


NACHINE'OEPENOENT  CODE 


NONE. 


EXTERNAL  REFERENCES 


OETSKH  a OCT  CHARACTER  STRING  DATA  FIELD  FROM  UNIT  5 

OETSIN  a OCT  integer  DATA  FIELD  FROM  UNIT  S 

NOHARN  a PRINT/COUNT/LOO  ‘HARNINO'  DIAGNOSTIC  HCSSACE 

HONOrC  a PRINT/COUNT/LOO  'NOTE'  DIAGNOSTIC  HESSAOE 

NVIATO  a NAHE  'VIA*  'TO'  SUBROUTINES 

CALSYN  a CALIBRATE  SYHBOL  TABLE  FOR  OVERPRINTING 

CALSPA  a calibrate  TRANSFORHATION  COEFFICIENTS  FOR  SPACING 

CALHIN  a CALIBRATE  HINOOU  ENVELOPES 

OPRPRO  a OPEN  alternate  print  FILC(S) 

lOERT  a identify  ERTS  SCENE 

IDCPRO  a identify  current  COHMAND  specs  for  PRTOET 

HDUNIT  a MRITC  HEADING  LINC(S<  AT  TOP  OF  NEXT  PAGE 

WARNS  a SUBNIT  WARNING  /'OR  H I SS I NG  / I NV  AL  I 0 FIELD  FROH  UNIT  5 

EXTERNAL  PROOOO.  NULSUB 

EXTERNAL  PR0IE9.  PRD0I9 

EXTERNAL  PR03V9.  PROOl 3 


exceptions 


I.  'DISPLAY*  NAY  NOT  BE  A DEFAULT  COHNANO. 

e.  ANY  HARNINO  OR  FATAL  ERROR  PREVENTS  GENERATION  OF  ThC  DISPLAY. 

3.  the  FOLLOHINO  exception  CONDITIONS  PRODUCE  THE  FOLLOWING  RESULTS 
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1) 
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PROD IS 

00« 


C 

e 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CONDITION 


PROeCSSINO  OCPAULT  CONNANOS 
I NNNOOH«OI 

extra  SPECiriCATION 
LlNir  CHANNEL  VALUE  RANGE  IS  NULL 
CLCVLOI >LCVHl I ) 

OCHANO  RUN  A OVERPRINTED  SVH80LS 
OATA/CHECKOUr  NODE 
HARNINOfSI  OR  PATAL  ERROR (SI 


GLOBAL  declarations 


ACTION 


NONE 

NONE 

NONE 

NO  OVERPRINT  I NO 

‘TO*  routine  is 
’TO’  routine  is 


in  PROOIS 
NUL  sue 
PROOIS 


OIAONOSTIC 


UARNINO 

MARNINO 

HARNINO 

NOTE 

NONE 

NONE 


INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
I NCL  UOE 


KOHXQT 
KONALT 
KOHNER 
KOHKLS 
KONPI T 
KOHTBL 
KONSVN 
UINOEP 
KONOMH 
NULCST 
PROOCr 


.LIST 

.LIST 

.LIST 

.LIST 

.LIST 

.LIST 

.LIST 

.LIST 

.LIST 

.LIST 

.LIST 


a COHNON  PROORAH  EXECUTION  SNITCHES.  COUNTERS 
a CONNON/OEPINE  POR  ALTERNATE  PRINT  PILES 
a COHNON  ERTS  SCENE  PARANETERS 
a COHHON  CLASSIPICATION  SPECTRAL  LIHITS 
a COHNON  AOJUSTHENT/REOISTRATION  PARANETERS 
a COHNON  TICX/PREQ/PACTOR  TABLE 
a COHHON  SYHBOL  TABLE 
8 OEPINE  structure  OP  UINOOH  PACKETS 
a COHHON  OUTPUT  NINOOH  PACKETS 
a OEPINE  NULL  character  STRINO 
a OEPINE  PRTOET  PARANETERS 


LOCAL  DECLARATIONS 


C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

C 

c 

c 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


PROCEDURE 


KHTEHP 

INTEHP 

NPRL IN.NPRCOL 

NPRCIP 

LUNALT 


TEHPORARV 

TENPORARY 

NUHBER  OP  PRINT  L I NES/ COL UHNS  IN  DISPLAY 
NUHBER  OP  PRINT  COLUHNS  IN  ONE  PILE 
LOGICAL  UNIT  NUHBER  TO  SPOOL  PRINTER  OUTPUT 


CALL  trace 


OCT  DISPLAY  Type 


KTBLTY-'  NUL’  a HARK  OLD  PREQ  TABLE  AS  OESTRQYEO 

' IPINMNOOH.EO.OI  CALL  HOHARNI  ‘INVALID  OCPAULT  COHHANO') 

CALL  0CT5KH(KHTENP. I 31 . NULCST)  8 ALLOW  (BUT  IGNORE)  OPTIONAL  TyP{ 
CALL  NVIATOI  PR03NS.PR0DI 31  a NEXT  CALL  IS  TO  PROOI3 


drain  SPECS  POR  CURRENT  COHHANO 


I 


1 


% 


< 
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PPOOlt 

001 


4 


4 


« 


( 


100  CAU  OerOINMNTCNP.  *l.>i.*CXTKA  DISPLAY  SPCCIPICAT ION  -•*> 

C 

e 

C CNCCK  RAOIANCC  UNIYS 
C 

irtLCVLOt  .Or.LCVNi  I ) call  NOUARNI  *N0  RAOIANCC  UNITS*  I 
iriNOATAC.NC.OI  00  TO  SOO  A OATA/CHCCKOOT  NOOC 

e 

c 

C CALIBRATC  SYNSOLS/SPACINO/WINOOU 
C 

CALL  CALSYH 
CALL  CAL8PA 
CALL  CALHINI  0.1 
C 
C 

C OPCN  PRINT  PILC(S)  IP  NOT  OPCN.  CLCAR  MINOOM  NUN8CR  A RCSCT  PAOC  NUNBCR 
C 

IPtNOTOTL .NC.O)  00  TO  900 

IP(NMNOOU.LT.OI  CALL  OPRPRO  • OPCN  ALT  PRT  PlLClSi  BCPORC  1ST  UINOOM 
NUNOOH* I AB8  C NUNOOU t 
NPAOe«0 
C 

c 

c CONPUTC  8IZC  OP  PRINT  MINOOU 
C 

NPRL  tN«tPtXIPPOOMU(MLIN.UNAXt  t • I P I X I PPOOUU ( ML  I N . MN’ N > I *t 
NPRCOL-IPIXtPPOOHMIMCOL .MHAXI I -I  PI  X I PPOOMMC MCOL . MHI N) > » I 
NPRCIP-KPAOC-6  a NUNBCR  OP  PRINT  C0LUNN8  PCR  PILC  CXCLUOINO 

C a LCPT  HAROIN  AND  S NCAT  L I NC  CHARS 

C 
C 

C CNCCK  width  op  PRINT  MINOOM 
C 

Nl TNAX* I I * I NPRCOL I / I NPRC I P I > 

iriNITnAX.Or.NALTHi  CALL  NOMARNI  *MlNOOM  TOO  MIOC'I 
C 
C 

C CHCCK  POR  OIAONOSTICS 
C 

IPINOTOTL.NC.OI  00  TO  900 

IP( (NBATCH.CQ. 0> . AND. ( NCI SYN. NC . ; ) ) CALL  NONOTC ( 

• ’SYMBOLS  NOT  OVCRPRINTCD  ON  OCNANO  TCRNINAL'I 
C 
C 

C PRINT  MINOOM  HCAOINO  POR  UNIT  6 
C 

MRITCI6.<»IS)  NMNOOH.NTCRAL 

HIS  PORMATt*  MINOOM  NUNBCR  ' . U3 . 6X . ' 0 1 SPL A Y ' . 8X . H AS  I 
CALL  lOCRTi  6) 

CALL  lOCPROt  8* 

C 

C 

C PRINT  MINOOM  HCAOINO  POR  ALTCRNATC  PRINT  PILClS> 

C 

lunalt«io 
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u 


OAN  PACKAOe  AMCNOIX  L PROOIS 

HAIN  AROORAnS/AOUriNCS  00« 


00  HOO  N«l  .NMCOL.NMCir 

CAU  NOUNiri  it.LUNALri 
HOireiLUNALr.msi  NHNOou.nreRAL 
CALL  locnri  LUNALn 
CALL  tOCPROt  LUNALTI 
LUNALT>LUNALr*l 
•too  CONTlNUe 

c 

c 

C ANY  OlAONOSnCS??? 

c 

900  irCNOTOTL.CQ.O*  00  ro  090 

IP(NOArAC.NC.O>  CALL  NVlATO'  PROOOO . NUL SUB > • OATA/CHCCKOUr 

IPINOArAC.CQ.OI  CALL  NVIATOI  PROiaO.PROOt 91 


RCTURN  POR  CALL  TO  NANCO  SUBROUMNC 

990  KONO-* 

RCTURN 

CNO 


) 


L•^7^ 


( 
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PROOI3 

001 


SUDROUriNE  PR00I3  0 DISPLAY  DETECTION  PlLEtSl  (PHASE  S) 


C 

c 

c 


c 

HISTORY 

c 

c 

E 

H 

SCNL08SER 

LEC 

I0/0S/7S 

c 

E 

H 

schlosser 

LEC 

OB/BO/78 

c 

E 

N 

schlosser 

LEC 

03/18/79 

c 

J 

C 

CRISP 

LEC 

18/81 /79/ 

c 

J 

C 

CRISP 

LEHSCO 

0S/I8/80 

c 

J 

c 

CRISP 

LEHSCO 

08/ 18/ BO 

ORIOINAL  CODE 

DELETE  RETN  K A HAKE  EXTERNAL  SUB 
RADIANCE  A CLASS  DETECTION  PILES 
HAKE  separate  routine  I FROH  PROOISI 
USE  CHANNEL (Si  SPECIPIEO  BY  LIHCH 
AUO  <*  WORDS  TO  PRINT  BUFFER 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 


HETHOO 


AND  COLUHNS.  GENERATE  AND 
initialize  LOH  and  HlOH 

LINE.  HASK  NON-TRIVIAL 


INITIALIZE  LOU  AND  HlOH  PRINT  LINES 
PRINT  TOP  SAHPLE  SCALE  AND  BORDER. 

ADJUSTED  LINE.  CALL  REAOBN  TO  READ 
UINOOU.  RESAHPLE/SCREEN/COUNT  FREQUENCY/ SVH60L I ZE  LINE. 
OUTPUT  LINE.  GENERATE  ANO  PRINT  BOTTOH  SAHPLE  SCALE  AND 
BORDER.  NAHE  PR00I9  AS  'TO'  ROUTINE  FOR  MRAP>UP  OF  DISPLAY 
PROCESSING. 


HACHINE -DEPENDENT  CODE 


utilizes  uni  vac  exec  8 ER  PRNTAS 
INTERNAL  RDUTINE  SAHSCL  ASSUHES  6 CHARS 


EXTERNAL  REFERENCES 


TD  AN  INTEGER  BIN 


AHP 

READBN 
HSKPIX 
PROVFI 
HOFATL 
NVI ATO 
ERPRTA 
CSTMN 
DOUBLE 
DOUBLE 

external 

external 


EXCEPTIONS 


a ADJUSTED  COORD  FOR  PRINT/PLOT  COORD 
a READ  SCAN  line  FROH  DETECTION  PILE'S) 
a HASK  NON-TRIVIAL  MINOOM 
a PRINT/OVERPRINT  files 

a PRINT/LOO/COUNT  tatal  error'  messages 
a NAME  'VIA'  'TO'  subroutines 
a WRITE  TO  alternate  PRINT  PILES 
a CHARACTER  STRING  POR  INTEGER 
PRECISION  C8s«»cs  a vARi able-length  char 

PRECISION  CSSHIN  a VARI able-length  char 

VIA  TO 

PROIZB.  PR00I9 

RESSYH.  OETBvT.OCMCE.OCTINT.OETNUL  i 


string  POR  PIxED-LENCTh 
string  POR  INTEGER 


TO*  routines  get  bin 


status 
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PROOII 

DOR 


u 


C PROM 


c 

REAOBN 

NEAT  LINE  CHAR 

PRINT  CELL  SYMBOLS 

OIAONOSTIC 

ACTION 

V 

e 

•EBP* 

• I • 

NO  DATA  ( * 1 * 1 

NONE 

PRINT  LINE 

c 

*BAOR‘ 

NO  data  I ‘ t * I 

NONE 

PRINT  LINE 

e 

•BAOP* 

N/A 

N/A 

PATAL 

RETURN 

c 

•OPL  • 

N/A 

N/N 

PATAL 

RETURN 

C 

c 

C OLOBAl.  DECLARATIONS 

C 

C 

INCLUDE  KONXQT.LIST  • CONNON  PROORAM  EXECUTION  SNITCHES.  COUNTERS 

INCLUDE  KONKLS.LIST  I CONNON  CL ASSI P I CAT  I ON  INPO 

INCLUDE  KONSYN.LIST  A CONNON  SYMBOL  TABLE 

INCLUDE  HINOEP.LtST  • DEFINE  STRUCTURE  OP  HINOOH  PACKETS 

INCLUDE  KONOHH.LtST  I CONNON  OUTPUT  HINOOH  PACKETS 

include  KOHTBL.LIST  • CONNON  TICK/PREQ  TABLE 

INCLUDE  PROOEP.LIST  a DEFINE  PRTOET  PARAMETERS 

INCLUDE  PXBDEF.LIST  8 DEFINE  PIXEL  BUFFER  STRUCTURE 

include  naxint.list  a haxihun  integer  value 


LOCAL  declarations 


PARAMETER  NOBUFS-B 
INTEGERS  IN  OET  BUF 
PARAMETER  NHIOBF 


a NUMBER  OF  OETFCTION  BUFFCRS 
• INTS  PREAMBLE  • (•BlNS*3i/<»  * *EXTRA 

B*(PXBINS-ll  * ( 35HB*B*3t /■»  • B7 


NOS  PRT  BUF-HOS  PREAM*(NAX  FILES*  (MAX  COL S/ PO-NE ATLN  COLS'NARO  COLSII*>* 
PARAMETER  NU I PBF> ( PXB I NS • I I * ( NAL TH I • (KPAOHI-  B - HI  I * H 


PARAMETER  NFROSZ*IB8  a • UOS  PER  CHANNEL  IN  LOCAL  FREQ  TABLE 

PARAMETER  NFRQCH-5  8 • CHANNELS  IN  LOCAL  FREQ  TABLE 

INTEGER  MOTBUFINHIOBF.NOBUFSI  a ARRAY  OF  DETECTION  BUFFERS 
INTEGER  NOBF  8 DETECTION  BUFFER  NUMBER 

INTEGER  NOBFHI  a HIOHEST  DETECTION  BUFFER  NUMBER  TO  USE 

INTEGER  IPRTBFinuIPBFI  8 PRINT  SUFFER 

INTEGER  NFREQINFRQSZ.NFRQCH)  8 LOCAL  FREQUENCY  TABLE  (SCOPE  INCLUDES 

a INTERNAL  routine  RESSYM) 

integer  iplin  a print  line 

INTEGER  tPCMIN. IPCMAX  8 MINIMUM  AND  MAXIMUM  PRINT  COLUMN 

INTEGER  IPLMIN. IPLMAX  8 MINIMUM  AND  MAXIMUM  PRINT  LINE 

REAL  AOJL IN. AOJSAM  8 ADJUSTED  LINE  AND  SAMPLE 

INTEGER  MLIOOL.MLIOOH.MLIOOS  8 MSA  LINE*I00:  L Ou . HI GH . SP AC  I NG 

INTEGER  MSALIN  8 MSA  LINE  NUMBER 

INTEGER  MSASLO.MSASHI  8 LOH  AND  HIGH  MSA  SAMPLE 

INTEGER  ISTaT  8 I/O  STaTuS 

INTEGER  NTLCHR  8 NEAT  LINE  CHARACTER 

INTEGER  MRGLCS.MRORCS  8 LEFT  I RIGHT  MARGIN  CHAP  STRING 

INTEGER  NPRL IN.NPRCOL  8 NUMBER  OF  PRINT  LINES  AND  COLUMNS 

INTEGER  LASTLN  8 LAST  LINE  READ 


PROCEDURE 
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PROOII 

001 


C 

c 

CALL  rNACe 

c 

e 

C OCrCRNINC  HOU  MANY  OUPrCRS  TO  USC 
C 

NOOPNI«HINOINL iHCH.NOeurst 
IPtNLIHCN.or.NOOUrSI  CALL  HONOTCI 
• 'TOO  MANY  CHANNCLS  RCQUCSTeO  --  r I RST  ‘ .C0S*»  I NINOOrHI  .0*  . 
A * CHANNCLS  PROCCSSCO’i 
C 
C 

C iNiriALIZC  NININUH  AND  NAXINUN  PRINT  UINCS  ANO  COLUNNS 
C 

tPLHIN-PPOOHMIUL IN.UNINi 
IPLHAX>PPOOUH(HL IN.MHAXI 
IPCNIN>PPOOHU(UCOL.UNINI 
I PCNAX>PPOOHH ( HCOL . UHAX I 

c 

c 

C CONPUTC  NUHOCR  OF  PRINT  LINCS  ANO  COLUNNS 
C 

NPRL I N> I PLNAX • I PL  H I N * I 
NPRCOL-IPCNAX-IPCHIN*! 


CLCAR  LOCAL  FRCOUCNCY  TaBLC 

00  CSO  1*1 .NL INCH 

00  BOO  K-l .NFRQSZ 
NFRCQfK.  I fO 
BOO  CONTINUC 

BSO  CONTINUC 


INITIALIZC  LOM  ANO  HlOH  LINCS  ANO  SPACING 

CALL  A«»P  ( AOJL  IN.  AOJSAN.  FLOAT  M PLMt  Nl  . I . I 
HL  I OOL  *AOJL I N« I 00 . 

CALL  A4P  ( AOJL IN. AOUSAN.  FL OA T ( 1 PL NAX I . I . ) 

HL  I OOHaAOJL  t N*  t 00 . 

HL  I OOS*HSAOMM( ML  I N . MSP  I 00  > 


OCNCRATC  ANO  PRINT  SAHPLC  SCALE  ANO  BORDER  FOR  LINE  BEFORE  1ST  PR'.nT  LINE 

300  CALL  SAHSCL  I I PRTBF . ( I PLHI N> I > . ( I PCHI N I . ( I PCHAX > l 

IF  ( INBATCH.  EQ.  0 I . ANO  - i NPRL  I N . LE  . 6<*  > . ANO . I NPRCOL*:  LC  - S*«  * > 

I CALL  PROVFI  <6.  *.0.'  • . • • 1 1 I I • • . IPRTBFI 

CALL  PROVFI  no.  • • I I I I I • . IPRTBFI 


RCAO.  NASK.  RCSAHPLE.  SCREEN.  SYHBOLIZC  ANO  PRINT  SCAN  LINCS 
I PL  I N*  I PL  HI  N 


L-B7S 


OAN  FACKAOC  APACNOIX  L 
MAIN  PNOONANS/NOUriNCt 


PMOOII 

OOA 


XIO 

SffO 


3X0 


PlOAft IPL INI .PLOATI IPCHINI I 
riOArilPUNI  .PLOArilPCNAXI  I 


• ALNCAOY  IN  NUrPCNISI 


LAtrLNa-NAXiNr 

00  ISO  ML  1 00 aNL IDOL. ML  I DON. ML  1 000 
NtALIN*NLtOO/IOO 
CALL  A«P  lAOJLlN.AOJSAN. 

NSAtLO*AOJOAN 
CALL  ANP  f AOJLIN. AOJtAN. 

NtAtNI«AOJSAN 

IPINOALIN.eO.LAtUNI  00  TO  XOO 
NUCHN**!  * 

00  XIO  NOOP*l .NOOPNI 

CALL  NCAOONINOrouPd.NOOn  . (NMIOOPI  . ISTAT  , 
NtALIN.LIHCHtNOOn .MSASLO.NSASHI I 
iPdtrAr.ro. *OAON‘ > nuchr**?* 
irdlSrAT.NC.'OAOP’l  .ano. 

dtrAT.NC. ’OPL  ‘ d 00  TO  310 

CALL  NOPArLt  COSHCSdSTAr.  I .*»»  . 

* MNiLC  NCAOiNO  ocrccrioN  riLC*> 

CALL  CNPNrA  (’10  *.0.0. 

’•I/O  CNNON  • lONONC  OUTPUT*’ I 
00  TO  900 


CONTINUC 
LA9TLN*HSAL IN 
CALL  NOKPIX  (NOTOUrd. 
ir  ( INOTtUPCPXeiNT. I I . 
(HOTOUPIPxaiNT . n . 
(NOTOUPIPXOINT . I ) . 
(NOTiuriPXOINT. I I . 
CALL  MOPATLI 


n.  NOTourd.di 

CQ. 'BYT ’ I .OR. 

CQ. 'CHR* I .OR. 

CQ. * INT ■ I .OR. 

CO.  'NUl ' > > 00  TO  330 
’ INVAL 10  BIN  TrPC  ’ 


ir 


CBS*»CS(N0TBUP(PXBINT.  I I . < .31 
00  TO  BOO 

(HOTBUPCPXBINT. I I .CQ. ‘BYT ' I CALL  RCS8YN 


IN  PROOl X’ i 


( l<»RT$r.  > IPL  INI 
NOTBUr. (NHIOBPI . iNOBUPSI .OCTBYTI 
’CHR’ I CALL  RCSSYH  d PR  TOP . (I  PL  I N I 
HOTBUP. (NWIOBPI . INOBUPSI .OCTICCI 
'inT'i  Call  rcssyn  uprtbp.  mplini 

HOTBUP. INHIOBPI . INOBUPSI  .OCTINTI 

‘nul'i  Call  rcssyh  i iprtbp. i ipl ini 
HOTBUP. INHIOBPI  . INOBUPSI .OCTnuL  * 
161.  HSALIN.**. 'O' I 


3S0 


I (IPCHINI  . dPCHAXI  . 

IP  (NOTBUP(PXBINT.| I .CQ. 

I ( IPCHINI  .dPCNAXI  . 

IP  (NOTBUPIPXBINT. I I .CQ. 

I ( IPCNINI  . dPCHAXI  . 

IP  (HOTBUPIPXBINT. I I .CQ. 

I ( IPCHINI  . dPCHAXI  . 

CALL  CSTHIN  (HROLCS.lt  I . 

HRORCS-HROLCS 

IP  ( IHBATCH.CQ.OI  .ANO.  INPRL  IN.LC.  6**l  .ANO.  INPRCOL  .LC  .SH  l I 
i CALL  PROVPI  16.  HROLCS.*.'  ’ . 0 . NTL CHR . ' I • • < • • ’ . I PP TBP I 

CALL  PROVPI  (to.  HR0LCS.**.HR0RCS.<*.NTLCHR.  ' 1000**  ' . tPRTBPi 
IPL  I N>  I PL  IN*  I 
CONTINUC 


c 

c 


OCNCRATC  ANO  PRINT  SAHPLC  SCALC  ANO  BOROCR  POR  LINC  APTCR  LAST  PRINT  l I NC 

CALL  BAHBCL  (IPRTBP.  dPLHAX*t  I .(  IPCHINI  . dPCHAXI  i 
IP  (IHBATCH.CQ.OI  .ANO.  i NPRL  I N .LC  . 6*i  i .ANO.  i NPRCOL  . LC  . B**  > i 

S CALL  PROVPI  IB.  * ’.0.’  

CALL  PROVPI  (10.  ’ ’.!».•  •.•*.’  ’.‘IIIII*’.IPRTBPI 

CALL  PROVPI  (to.  ’.’SIIIM’.IPRTBPI 


L-C76 


. ( 


OOOOOOOO  OOOMOOOOOOOOOOOOOMOMOOO 


OAN  ^ACKAOC  Am  NO  IX  L 
NAIN  MOONAHt/NOUTINCS 


e Novc  data  moH  local  roco  taolc  to  cohhon  taolc  iockacino  tickoi 
e 

KTiLTY-TNCO* 

KTOLNUaNMNOOW 
00  000  I•I.NLINCN 

00  soo  K*i.Nriiosz 

xmCOCK.I  (■NfRCOlK.lt 
900  CONTINUC 

900  CONTINUC 

00  700  1*1. 10 

00  990  K*t.t9 

KFRCROII .Kla'NAXlNT 
090  CONTINUC 

700  CONTINUC 
C 
C 

C NCXT  CALL  IS  TO  NN00I9 
C 

900  CALL  NVIATO  < PR0I09.RN00I 91 
RCTURN 


INTCNNAL 

SUOROUTINC 

0 IRRTOr. 

1 IRLIN. 

I IRCNIN. 

I IRCHAX) 


9AN9CL  ( • OCNCRATC  9AHRLC  SCALC  AND  90R0CR 

a PRINT  ourrCR 
a print  linc 
a hinihun  print  colunn 
a NAxinuK  print  column 


hctnoo 

iNiriALIZC  LOU  ANO  UION  9ANPLC9  AND  SPACINO.  SCT  auP»'CR 
PRCAHOLC.  CNCOOC  SANPLC  NUMBCRS  ANO  PUT  COLON.  STRInO.  AND 
COLON  IN  PRINT  eurrcR. 


nachinc-ocpcnocnt  cooc 

ASSUHCS  6 CHARS  PCR  INTCOCR  OIN 


CXTCRNAL  RCrCRCNCCS 

ARP  a AOJUSTCO  COORD  FOR  PRINT /PLOT  COORO 

PUTCMR  a Put  char  in  char  strino 

cothin  a charactcr  string  for  intcocr 


OLOOAL  OCCLARATIONS 


proois 

009 


L-077 


OAN  f»ACKAOC  AAKHOIX  I 
MAIN  PKOOAAHt/ttOUriNCt 


MODI  I 

0«« 


e INCUIOC  KONOWN.Utr 

e iNCtMM  MiNOcr.uvr 

e tNemoc  Axtocr.usr 

C LOCAL  OCCLAAAnONO 


• ouffnir  Ml  NOON  OACiccrt 

• OCriNC  MINOON  MACKCrs 

• ocriNC  turrcii  srAucruoc 


iNrcocii  iMrorm  a AoeuNCNr 

C OCAL  AOJtAN  • AOJUtrCO  tANMLC 

INICOCN  lAtIN  A ^INTCO  TO  AAINT  OIN 
INtCOCN  NtASAN  A tANm.C  NUHOCA 

iNrCOCR  NtlOOL.ntlOON.NtlOOt  A NtA  OANPLC'IOOt  LOM.HION.SAACINO 


Awoccounc 


c 
c 
c 
c 
c 

e INIMALIZC  LiM  AND  NIOM  SAHALCt  AMO  SAaCINO 

c 


CALL  A<»A  (AOJLIN.AOJSAH.  ALOAT  1 1 AL  I Nt  .TLOAr  1 1 ACNl  Nil 
NSIOOL»AOjtAN«IOO. 

CALL  AAA  (AOJLIN.AOJSAN.  ALOAT I lAL INI .ALOAri I ACNAXI i 
HSIOON«AOJtAN* 100. 

NtlOOt>nSAONN(HSAN.NtAIOOI 


c 

c 

e scr  ANCANiLC  AOlNrCRS  ANO  OIN  AOINTCN 

c 

IANrOA(AXRCCNI»0 
IARrOA(AXLlNOI*IALIN 
IANrOAlAXCHANI*0 
IANrOA(AXQUALI*0 
IAAr|A(AXOINri«* INT * 

IARTOAlAXLOINI«l 
I ANr OA ( AXL COL  I • I ACN I N 
I AOrOA  I AXMO I N I ••  I ACNAX  • I ACN  I N*  I 
lANTtAtAXNCOLl-IACHAX 
lANTOAtAXNOINIaO 
lANTOAlAXNOOAl *0 
lANTOAIAXL jOi > >0 
lANTOAIAXMJOl I *0 
iAOIN*IANTBA(AXLOINl -I 
C 
C 

C CNCOOC  SANAir  NUHBCN  ANO  AuT  COLON.  SrxiNO.  ANO  COLON  IN  BUAACA 
C 

00  100  N«I00*NBI00L .NStOOM.NSIOOS 
NBAtAH»NSI00/ too 

CALL  AurCMN  I lANrOAlAXOlNS*! ABINI . < I I . *:‘l 

CALL  COrAIN  (IAArBAIAXBlNf*IABlNi  .(O' .<*.  Nf  A$AN.«  . *0  * ' 

CALL  AUTChN  IIANrBA(AxOlN$*|ABlNI .(01 . *:*l 

iabin»iaoin*i 
too  CONTINUC 


I 


f 


i; 


L-070 


. « 


c 

c 


AC  TUAN 


0AM  MACKAOC  AMMCNOIX 
MAIN  MOORANI/MOUtlNCt 


MROOll 

007 


INfCRMAL 

OUiOOUTINC  NCttyN  < • WSAnOLC/fCOCCN/COUNT  mCOUCNCY/tTnOOLIZC 

0 iRoror.  A mrint  ourrco 

( lOLIN.  • MRINT  LINC 

1 lOCNiN.  • MINIMUM  MINT  COLUMN 

( lOCNAX.  • MAXIMUM  MM  I NT  COLUMN 

• 

I NOTOUr.  • ARRAT  Of  OCTCCTION  OUfrCRt  «ALL  OANC  OINTyRCt 

( NMICOr.  • NUNOCR  Or  MOROt  IN  ONC  RurrcM 

( Noovro.  • NUNOCR  or  ourrcRt 

I OCTtlNI  • ROUTINC  to  OCT  OIN  VAIUC ••OCTOYT . OCT  ICC . Ot T I NT . 9CTKUL 


NCTHOO 


CONRUTC  LOU  AND  MION  SAMRLCf  AND  SRACINO.  OCT  OurfCN  RNCAHOLC. 
rON  CACH  tAHRLC.  CMCCK  If  OUTflOC  Or  inrut  UINOOU.  CmCCK  ir  OUT' 
Sloe  or  RAOIANCC  LIMITS.  COUNT  rRCOUCNCY.  ANO  SYMOOLIZC. 


CXTCRNAL  RCrCRCNCCS 


AYR  • AOJUSTCO  MSS  COORD  rOR  RRIMT/RLOT  COORO 


OLOOAL  OCCLARATIONS 

INCLUOC  komchu.list  a 

INCLUOC  KOMiRL  LIST  A 

INCLUOC  komkls.list  a 

INCLUOC  RxoOt'r.Lisr  a 

INCLUOC  KOHSYM.LtST  A 

INCLUOC  HINOCr.LlST  A 


COMMON  outrut  uincow  rackcts 
COMMON  rRCQ/TtCK  TaOLC 
COMMON  CLASSir tCATtON  INCO 

ocrtNC  ourrcR  structurc 

COMMON  SVMtOl  TAOLC 

OCriNC  rilNDOH  rackcts 


C LOCAL  OCCLARATIONS 
C 

RARAMCTCR  NUNRrS*C  A NUMRCR  OR  MRX  OUCrCRS 

INTCOCR  MOTOur iNUIOOr.NOOurSt  A AROUMCNT 
INTCOCR  IRRTOrin  A AROUMCNT 

INTCOCR  NOINSO(NUMtrS>  A OiN  NUHOCR  0^'  SAMRLC  0 roR  CaCm  hrk  ourrcR 
INTCOCR  MStOOL.MSIOOH.NSIOeS  A MSA  SAMRLCMOO:  L OU.  H I Oh.  SRAC  < NO 
INTCOCR  KVASAM  A MSA  SAMRlC  NUMSCR 
INTCOCR  iro:n  a rrint  turrcR  oin  rointcr 
RCAL  AOUSAM  A AOJUSTCO  SAMRLC  NUMRCR 

INTCOCR  IRIXLI .IRIXLO  A RIXCL  YALUC  ROR  CACN  OURRCR 
C 

c 


L-OYO 


o o n o n 


OAH  PACKAOe  APPEND tX  L 
MAIN  PNOOPANS/POUriNCS 


PftOOIS 

006 


U 


PAOCeOURC 


INITlALIZe  LOM  AND  HI  ON  SAHPLCS  AND  SPACtNO 

CALL  A<»P  tAOJLIN.AOJSAH.  FLOAT  (I  PL  I Nt . FLOAT  I I PCHI  Nl  > 

NSIOOL-AOJSAN* 100. 

CALL  A<*P  (AOJL  IN.AOJSAH.  FLOAT  M PL  I Nl  . FLOAT ( I PCHAX ) I 

NSiOOH-AOUSAN*  too. 

NSIOOS«NSAOHH(HSAM.HSPtOO> 

C 

C 

C SET  NUNBER  OF  BIN  CONTAININO  SAMPLE  0 FOR  EACH  MPX  BUFFER 
C 

DO  ISO  NUHBUF-t .NOBUFS 

NBI NSO (NUMBUF ) •MOTBUF  C PXLB I H . NUHBUF ) -HOTBUF ( PXL SAM. NUHBUF ) 

ISO  CONTINUE 
C 
C 

C SET  preamble  pointers  AND  BIN  POINTER 
C 

IPRTBFfPXRECNl«NOTBUF(PXRECN. I i 
IPRT6F(PXLlN0)«iPLIN 
tPRTBFCPXCHANI >0 
IPRTBFCPXQUAL I >0 
IPRTBF(PXBINT) •• INT* 

IPRTBF(PXLBIN) >0 
IPRTBF (PXLCOL  > -IPCMIN 
IPRTBFIPXHBIN)«IPCMAX-IPCMlN*B 
IPRTBFIPXHCOL ) •tPCMAX 
IPRTBF(PXN0IN>«0 
IPRTBFI PXNOOAi «0 
IPRTBFCPXL JOI l-O 
IPRTBFfPXHUOl l«0 
IPBIN«IPRTBF(PXLBINI -I 
C 
C 

C RESAMPLE/SCREEN  RADI ance/count  frequency/look  up  symbols 

c 

00  <*00  NS100«NS]  OOL  .MSIOOH.MSIOOS 
MSASAM*M^'I  00/  I 00 
C 

C BUFFER  I 
C 

IF  I (MSASAM.lt . MOTBUF (PXL SAM. I tl . OR. 

A (MSASAM.0T.M0T8UF(PXHSAM. I 1 n CO  TO  350  • SAMPLE  NOT  IN  BUFFER 

CALL  OETBIN  ( IPIXLI . 

> MOTBUF (PXB I NS. tl . (MSASAM«N3INS0( 1)11 

IF  ( IPIXLI .0E.M0TBUF(PXN00A. I ) I CO  TO  350  A NO  OATa 
IF  ( I IPIXLI .LT.LCVLOI ) .OR. 

A ( IPIXLI .OT.LCVHI I I 1 00  TO  3B0  3 OUT  OF  RAO  LIMITS 

IF  (NLIMCH'I .EQ.OI  CO  TO  3B0 
C 

C SUFFER  B 
C 

IF  ( (MSASAM.lt. MOTBUF (PXL SAM. a I ) . OR. 


L-BBO 


OAN  PACKAOC  APPCNOIX  L PPOOI3 

MAIN  PROORAHS/ROUTINCS  OOQ 


« 


« 


A cnsASAH.or.NorBuPepxNSAN.eni  oo  ro  sso  • sahplc  not  in  buffcr 

CALL  0CT8IN  tlPIXLt. 

• NOreUFfPXBIN«.«)  .tNSASAN*NBINSOCSMI 

IF  I (IPIXLB.LT  .LCVLOian  .OR. 

A IIPIXLB.Or.LCVNKSni  OO  TO  360  A OUT  OF  RAO  LIHITS 

C 

C COUNT  FRCQUCNCY  ANO  SYMBOL IZC 
C 

NFRCQC IPIXLa»l .ai-NFRCQI IPIXLa*! .81 *1 
380  NFRCQt IPIXLI tl . II -NFRCQI I P I XL  I * I . I I »l 

IPRTBF(PXBINS*IPBINI -KSYHC IPIXLI»l I 
OO  TO  390 

3S0  IPRTBFIPXBINS*IPBINI ' A NO  OATA  SYMBOL 

00  TO  390 

360  IPRTBFIPX8INS*IP6INI ■*  A OUT  OF  RADIANCE  LIMITS 

390  IPBIN*IPBIN*I 

too  CONTINUE 
C 
C 
C 

900  RETURN 
END 


( 


( 


L -ZBI 


QAH  PACKAOe  APPCNOtX  L PA00I9 

MAIN  PROORAHS/ROUMNCS  Q0I 


C 

C 

C 

e 

c 

e 


tutnouriNC  prooi*  a display  ocrtcrioN  meisi  (phase  si 


history 


c 

e 

H 

SCNLOSSER 

LEC 

10/09/79 

C 

E 

H 

SCHLOSSER 

LEC 

06/B7/7B 

c 

E 

H 

SCHLOSSER 

LEC 

09/01/79 

c 

J 

c 

CRISP 

LEC 

IB/BB/79 

CHECK  OIAONOSTIC  COUNTERS  AND  PREPARE  FOR  NEXT  DISPLAY. 


orioinal  code 

UPORAOE  OOCUHENTATION 
DON'T  INCREHENT  NMNDOU  IF  OIAONOSTIC 
REVISE  CODE  IN  PICTaB  FOR  PRTDET 
C 

C NETHOO 

C 

C 

c 
c 
c 

C NACHINE-OEPENOENT  CODE 
C - 

c 

C NONE . 

C 
C 

C EXTERNAL  REFERENCES 

C 

C 
C 
c 
c 
c 

C EXCEPTIONS 

C 

C 

C NONE . 

C 
C 

C OLOBAL  DECLARATIONS 
C 

c 

INCLUDE  KONXQT.LIST  « COMMON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 

INCLUDE  NULCST.LIST  1 DEFINE  NULL  CHARACTER  STRINO 

EXTERNAL  PROOOO.  NULSUB 
C 
C 
C 

c 
c 


NONOTE 

NOCLRU 


PROCEDURE 


CALL  trace 


C 

C 

C 

C 

c 

c 


ON  RETURN,  CALL  PROOOO  TO  OET  COMMANDS 
CALL  NVIATOI  PROOOO . NUL SUB  I 


9 


9 


DAN  PACKAOC  APPCNOtX  L 
HA IN  PNOORAnS/ROUriNCS 


PR00I9 

ooa 


ANY  OlAONOtriCS??? 


900  irtNOPATL.CQ.OI  00  TO  900 


CALL  HONOrCC  'rATA 
00  TO  990 

900  IPINOHARN.CQ.OI  00  TO  900 
CALL  HONOret  *PRCV 


'FATAL  ERRORS  — NO  DISPLAY  OeNeRATCO*l 


'PREVIOUS  UARNINOS  ••  NO  DISPLAY  OENERATED't 


IPtHSATCH.EQ.Oi  HRITEtO.SOSI 
rORNATIHX. '«*rRV  AOAlNi'l 
CALL  NDCLRHI  NULCSTI 
00  TO  990 


PREPARE  FOR  NEXT  DISPLAY 


900  NHN00H«NMN00H»t 


RETURN  TO  NEXT  STATEMENT  IN  CALLINO  ROUTINE 

990  RETURN 
END 


L-093 


. I 


oooooooooooooooooooooooooooooooooooooooo 


OA.H  PACKAOe  APPCNOIX  L PPOCXI 

MAIN  PROOPANS/ROUTINCS  001 


SUtROUriNC  PROexK  • rCRHINATION  routinc  POR  PRroCr 
U KONOI  0 li  riRSr  3 chars  or  COHRANO  O:  SPACes 
C - - 


HISTORY 


e H SCHLOSSCR  LCC  08/IO/7S  0C8 I ON/COOC^ TEST 

J C CRISP  LCC  18/31/79  PRINT  DISPLAYS  ONSITC 


HCTHOO 


CONFIRN  PROORAH  rERNINATION.  ASK  ABOUT  PRINTER  DISPLAYS.  PRINT 
DISPLAYS  ONSITE.  IF  REQUESTED.  ELSE  DELETE  ALTERNATE  PRINT  FILES. 
TERNINATE  PROORAN. 


NACHINE-DEPENOENT  CODE 


NONE 


EKTEPNAL  REFERENCES 


OLETPR 
READS 
CLOSPR 
PS  TOP 

a DELETE  alternate  PRINT  FILES 
a FILL  BUFFER  FOR  UNIT  5 

a CLOSE  (AND  PRINT)  alternate  PRINT  FILES 
a PROORAN  termination 

EXCEPTIONS 

NONE 

GLOBAL  DECLARATIONS 

INCLUDE 

include 

INCLUDE 

KONXQT.lIST  a COMMON  program  execution  switches 

KOMNCR.LIST  a COMMON  ERTS  scene  PARAME^’ERS 

nulcst.list  a define  null  ciIaracter  string 

LOCAL  declarations 

COUNTERS 


INTEGER  NORY  I 'N‘  OR  *Y*  RESPONSE  TO  PRINT  DISPLAYS  ONSITE 

e 

C 

C PROCEDURE 


L-88R 


OAH  PACKAOC  APPCNOIX  L 
MAIN  PAOOAAHS/ROUriNCS 


MOCXI 

ooe 


c 

c 

CALL  TRACE 
C 
C 

C CONFIRN  PROORAH  TCRniNAriON 

c 

URITE(6.iaS> 

ISS  rORHAT(*»X.  ** •PROORAH  TCRHINAT ION*  > 

C 

c 

C OATCH  RUN  HITH  FATAL  ERRORS  OR  ANT  OEHANO  RUN  --  ASK  AOOUT  PRINTER  OISPLAYCS* 
C 

ISO  IF( IHSATCH.EO. It .AND. (NOFATL.EQ.OI I 00  TO  800  A BATCH  A OK 

ifinofatl.ne.oi  call  NOHARNC 

• 'FATAL  ERRORCSI  ENCOUNTERED  ••  OISPLAVISt  ARE  OEFECTIVE'l 

HRITEfO.ieSI 

IBS  rORHATC  OUTPUT  OISPLAYCSI  ON  LINE  PRINTER?*! 

IFIKOHO.NE.  *EOFS*  I CALL  REAOSaSSTAT . * *1 

NORY«*N* 

CALL  OETSKHCNORY. ( I ) . NULCSTI 
IFINORY.NE. * Y* ) 00  TO  TOO 
C 
C 

C PRINT  OISPLAYtSI  ONSITE 
C 

800  NNNOOH«HAXO ( 0 . NHNOOU* I I 
URITE(6.8HS>  NUNOOH 

8<*S  FORHATI  IX.  14.  ■ OtSPLAYISl  PRINTED*! 

CALL  CLOSPR 
00  TO  900 
C 

c 

C DON'T  PRINT  DISPLAYIS!  ONSITE 
C 

700  CALL  OLETPR 
C 
C 

C TERMINATE  PROGRAM 
C 

900  CALL  PSTOP(  NULCSTI 
C 
C 

C PSTOP  DOES  NOT  RETURN 
C 

END 


( 

L>8B9 


OAN  AACKAOe  APPENDIX  L 
MAIN  PAOOAANS/AOUriNCS 


PROLI8 

001 


OUDROUriNC  PNOLISt  • LIST  OCTCCTION  PILCCOI  (PHASE  01 
U KONOt  a It  FIRST  3 CHARS  OF  CONNANO  Ot  SPACES 


C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HISTORY 


c 

J 

c 

CRISP 

LEC 

OB/BI/79 

RE QUIRE HENTS 

c 

J 

c 

CRISP 

LEC 

10/13/79 

ALOORI THH 

DESIGN 

c 

J 

c 

CRISP 

LEC 

ta/B6/79 

algor 1 thh 

CODING 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

e 


NET HOD 


CHECK/CALIBRATE  SPECS.  OENERATE  LIST  HEADINGS. 
then  name  PR0LI3  TO  GENERATE  BODY  OF  LIST. 


NACHINE -DEPENDENT  CODE 


utilizes  UNIVAC  FORTRAN  V FUNCTION  BOOL. 


EXTERNAL  REFERENCES 


OETSKH 

OETSIN 

NOHARN 

NVI  ATO 

CAL  SPA 

CALHIN 

OPRPRO 

lOERT 

lOCPRO 

HOUNI r 

WARNS 

EXTERNAL 

External 

EXTERNAL 


EXCEPTIONS 


a GET  character  string  data  field  froh  unit  s 

a GET  INTEGER  DATA  FIELD  FROH  UNIT  5 
a PRINT/COUNT/LOO  'WARNING*  DIAGNOSTIC  HESSAOE 
a NAHE  'VIA*  'TO*  subroutines 

a CALIBRATE  transforhation  coefficients  for  spacing 
a CALIBRATE  window  ENVELOPES 
a open  alternate  print  file(s> 
a identify  erts  scene 

a IDENTIFY  CURRENT  COHHANO  SPECS  FOR  PRTOET 

a write  heading  linE(s>  at  top  of  next  pace 
a sueniT  warning  for  nissino/invalio  ficlo  froh  unit  s 
PROOOO.  NULSUB 
PR0IZ9.  PROLIS 
PR03>»S.  PRDLI3 


I.  'LIST'  HAY  NOT  BE  A DEFAULT  COHHANO. 

t.  ANY  WARNING  OR  FATAL  ERROR  PREVENTS  GENERATION  OF  THE  LIST. 

3.  THE  FOLLOWING  EXCEPTION  CONDITIONS  PROOUCl  THE  FOLLOWING  RESULTS: 
CONDITION  ACTION  DIAGNOSTIC 


i-esB 


OAH  PACKAOe  APPCNOIX  L 
HAIN  PPOOKAnS/POUriNCS 


C PR0CCS8IN0  OCPAUir  COHNANOS 
C (NUNOOM*Oi 

C KLSTYP  SPCCiriCATtON  niSSINO 

c cxrPA  specirtCAnoN 

C LI  HIT  CHANNEL  VALUE  RANOE  IS  NULL 
C (LCVLOl >LCVHI II 

C OATA/CMECKOUr  NODE 
C HARNINOtSI  OR  FATAL  ERRORfSI 
C 
C 

C OLOBAL  DECLARATIONS 

C 

C 

INCLUDE  KOHXQT.LIST  8 CON 

INCLUDE  KONALT.LIST  8 CON 

INCLUDE  KOHNER.LtST  8 CON 

include  KONKLS.LIST  8 CON 

INCLUDE  KONTBL.LIST  8 CONI 

INCLUDE  HINDEF.LIST  8 OEF 

INCLUDE  KONOHU.LtST  8 CONI 

INCLUDE  NULCST.LIST  8 OEF 


NONE 

USE  CONNON  KLSTYP 
NONE 


'TO'  routine  is  NULSUe 
'TO'  routine  is  PROLIS 


WARN 1 NO 
NONE 
WARN I NO 

HARNINO 

NONE 

NONE 


8 CONNON  PROORAN  EXECUTION  SWITCHES.  COUNTERS 
8 CONNON  define  FOR  ALTERNATE  PRINT  FILES 
8 CONNON  ERTS  SCENE  PARANETERS 
8 CONNON  CLASSIFICATION  SPECTRAL  UNITS 
8 CONNON  TICK/FREQ'FACTOR  TABLE 

8 define  structure  of  hinooh  packets 

8 CONNON  OUTPUT  UINOOU  PACKETS 

8 define  null  character  string 


C LOCAL  declarations 

c 


INTEGER  KHTENP 
INTEGER  INTENP 
INTEGER  NPRLIN 
INTEGER  NPRCOL 
INTEGER  LUNALT 
INTEGER  NPRCIF 
INTEGER  NOONAX 
INTEOER  NOD 
INTEGER  PPOTOWta.UMO) 


8 TENPORARY 
8 TENPORARY 

8 NUNBER  OF  PRINT  LINES  IN  LIST 
8 NUNBER  OF  LOGICAL  PPO  COLUNNS  IN  LIST 
8 LOGICAL  UNIT  NUNBER  TO  SPOOL  PRINTER  OUTPUT 
8 NUNBER  OF  LOOICAL  PPO  COLUNNS  IN  ONE  FILE 
8 NAXINUN  • OF  NODES  IN  PPOOWM 
8 « OF  node  IN  PPOOHW/PPOTOU 
8 TENPORARY  PPOOHH 


C PROCEDURE 
C 


CALL  trace 


C OET  list  type 
C 

KTBLTY*'  NUL'  I NARK  OLD  FREQ  TABLE  AS  DESTROYED 

IFINHNOOH.EO.OI  CALL  NOMARNi  ‘INVALID  DEFAULT  CONNANO'l 
CALL  OETSKHI KHTENP. ( 31 . NULCST) 

CALL  NVIATOI  PR03HS.PR0L 1 3)  8 NEXT  CALL  IS  TO  PROLIS 


C DRAIN  SPECS  FOR  CURRENT  CONNANO 
C 


300  CALL  OETSINI INTENP. 


>1. ‘Extra  list  specification  --‘i 


L-e07 


OAN  PACKAOe  APPCNOIX  L 
NAIN  P'^OORANS/ROUTINCS 


PROL  I S 
003 


c 

C CHECK  RAOlANCe  L INI  TO 

c 

ipacvLOl.or.LCVHin  call  nomarni  *no  raoiancc  linits‘i 
IPINOArAC.NC.Oi  00  ro  OOO  • OATA/CHCCKOur  Hoor 
C 
C 

C CALISRATC  SPACINO 

e 

CALL  CAL  SPA 
C 
C 

C SAVE  THE  PHYSICAL  PPO  VCRTCX  COLUMNS 
C 

NOONAX>eOOL (PPOOUUIHUSEO.MHEAOI I 
00  3S0  NOO-HVER.NOOMAX 

PPOr OH ( UCOL . NOO I •PPOOHM ( HCOL . NOO I 
350  continue 
C 
C 

C TRANSPORN  TO  LOOICAL  PPO  VERTEX  COLUMNS  FROM  PHYSICAL 
C 

00  375  NOO-WVER.NOOMAX 

PPOOMHf  HCOL . NOO) «PPOOMU  < UCOL . NOO  > / 3 
375  continue 
C 
C 

C CALIBRATE  OUTPUT  HiNOOH  ENVELOPE  USINO  LOOICAL  PPO  VERTEX  COLUMNS 
C 

CALL  CALUINI  0. I 
C 
C 

C RESTORE  the  PHYSICAL  PPO  VERTEX  COLUMNS 
C 

00  VOO  NOO>UVER.NOOMAX 

PPOOUH I HCOL . NOO I -PPO  TOH ( WCCL . NOO ) 

Hoo  continue 


C 

c 

c 

c 

c 

c 

c 

c 


CHECK  FOR  OlAONOSriCS 

tr  (nototl.ne.o)  oo  to  soo 
OPEN  print  riLE(S)  IP  not  open. 


IPCNUNOOH.LT . 01  CALL  OPRPRO 
NUNOOH-I ABS( NHNOOHI 
NPAOE-O 


CLEAR  UlNOOU  number  ( RESET  PACE  NUMBER 

A OPEN  alt  PRT  riLE(S)  BEPORE  1ST  HINOOW 


C 

C 

C COMPUTE  LOOICAL 
C 


SIZE  OP  PRINT  UlNOOU  PROM  LOOICAL  PPO  ENVELOPE 


NPRL  IN-IP  I X( PPOOUH ( UL I N. UMAX  I I • I PI  X I PPOOUUf  UL I N. UMI Nl  I * t 
NPRCOL-IPIXI PPOOHUf  HCOL .UMAX  1 I - I PI  X ( PPOOHUC  HCOL . UMl Nl  > •! 
NPRCIP-IKPAOE-V-ei /3  I NUMBER  OP  LOOICAL  PPO  COLUMNS  PER  PILE 


• ( 


« 


■> 


A 


) 


4 


9 


) 


L-EBB 


u u u o uouu  uuuu 


o 


OAN  ^ACKAOe  APPCNOIX  I 
MAIN  MOOKAnS/AOUMNCS 


MOL  It 
OOA 


c • cxcLuoiMO  LCrr 

c 
c 

C CHCCK  MIOrH  or  PRINT  Ml  NOON 

c 

Nl TNAX*( I *INPRCOL I /(NPRCtfl I 
IPINirHAX.Or.NALTHt  CALL  NOHARNC  *UIN00U 
C 
C 

C CNCCK  POR  OIAONOSTICS 
C 

iriNOrOTL.NC.Ot  00  TO  900 

c 
c 

C PRINT  UINOOH  HCAOINO  POR  UNIT  6 
C 

URITCI6.>*tSI  NUNOOH.HTCRAL 
HIS  PORRATC*  UINOOH  NUHOCR  ’ . J3 . OX . *L I ST  * . OX ,H A6) 
CALL  lOCRTI  0> 

CALL  lOCPRDI  61 


HANOI N I t NEAT  LINES 


TOO  HI  or* I 


PRINT  UINOOH  HCAOINO 


POR  EACH  ALTERNATE  PRINT  PILE  IN  LOOICAL  PPO  ENVELOPE 


LUNALT«I0 

00  H60  N>l .NPRCOL .NPRCIP 

CALL  NOUNITC  H.LUNALT) 
URITEILUNALT .HISi  NHNOOU . NTERAL 
CALL  lOERTI  LUNALTI 
CALL  lOCPROI  LUNALTI 
LUNALT*LUNALT»I 

H60  continue 


ANY  OIAONOSTICS??? 

900  IPINOTOTL .CQ. 0)  00  TO  990 

IPINOATAC.NE.O*  call  NVIATOI  PROOOO . NUL SU9 ■ 0 OATA/CHCCKOUT 

IPINOATAC.EQ. 0)  CALL  NVIATOI  PRO  1 09 . PROL I 9 1 


return  POR  CALL  TO  NAHCO  SUBROUTINE 


990  KONO*' 
RETURN 
CNO 


L-099 


Oooooooooooooooooooooooooooooooooooooooo 


HltrOMY 


J C cmsp  LCC  Ot/tt/71  KCOUlNCNCNTt 

J C CKIt^  LCC  I0/I1/79  ALOOMITNN  OCSION 

J e emsf  lec  aloomithn  cooino 

J C CRISP  LCntCO  OS/lt/RO  use  CHANNCLISI  SPCCIPICO  SV  LIHCN 

J C CRISP  LCNSCO  Ot/l«/tO  AOO  *»  WORDS  TO  PRIwr  SUrPCR 


Ncrwoo 


INITIAL ize  LOW  ANO  HlOH  PRINT  LlNCS  ANO  COLUHNS.  OCNCRATe 
AND  PRINT  TOP  SAHPLt  SCALC  ANO  SOROCR.  INITULIZr  ;.OW  ANO 
NION  AOUUSTCO  LINC.  CALL  RCA09N  TO  RCAO  L I NC . MASK  NON* 
TRIVIAL  WINDOW.  RCSANPLe/SCRCCN/COUNT  PRCOUCNCT. 

OeWCRATC  ANO  PRINT  SOTTON  SANPLC  SCALC  ANO  SOROCR. 

NAHC  PROLIS  AS  *TO*  ROUT  INC  POR  WRAP-UP  OP  LIST 
PROCCSSINO. 


NACNINC-OCPCNOCNT  COOC 


ASSUHCS  S CHARS  TO  AN  INTCOCR  SIN. 


CXTCRNAL  RCPCRCNCCS 


AHP  • AOUUSTCO  COORO  PCR  PRINT/PLOT  COORO 

RCAOCN  • RCAO  SCAN  LINC  PR3N  OCTCCTION  PlLOS) 

OCTCHR  • OCT  CNARaCTCR  porh  charactcr  STRINO 
NSKPtX  • MASK  NON-TRIVIAL  AlNOOU 

PROVPt  a PRINT/OVCRPRINT  r:i.es 

HOPATL  a PRINT/LOO/COUNT  ’fArtL  CRROR’  nCSSAOCS 

NVlATO  a NANC  *VIA‘  ‘TO*  {.RROUTINCS 

CRPRTA  a WRITE  TO  ALTERNA’E  print  piles 
CSTnIN  a CHARACTER  STRInO  <‘3R  INTEGER 

DOUBLE  PRECISION  CSS**CS  a VA«:  ARlE-LENOTH  char  string  POR  PIXEO-LCSOTn 

00U8LC  PRECISION  CSS<»IN  a • ABLE-LENOTh  Char  STPInO  POR  INTEGER 

external  PROIfS.  PROLIS 

EXTERNAL  RCSCRN.  OCTBVT . OCT tZE . OCT  I nT .OE TNUL  | ROUTINE  TO  OET  BIN  VALUE 

c 

c 

C EXCEPTIONS 

C 

C 

C STATUS 
C PRON 

C RCAOCN  NCAT  LINC  CHAR  PRINT  CClL  STNBOLS  DIAGNOSTIC  ACTION 


OAH  fACKAOC  AMCNOIX  I 
HAIN  MOOMAnt/AOUriNCt 


C ‘COf 
C ••AOA* 

C *IAOr*  N/A 

C *0ru*  M/A 

e OkOIAL  OCCLAMATtONt 

INCLUOC  KOHXQT.Utr 
INCLUOC  KOMKIS.UST 
tNCLuoc  uiNOcr.Lisr 
'.NCLUOC  KOMOHU.Lltr 
INCLUOC  KonroL.ufr 
INCLUOC  Axeoer.LisT 
INCLUOC  MOOCr.LIST 
INCLUOC  NAXINT.LlfT 


LCCAL  OCCLANATIONt 


AARANCrCR  Noours>» 

c 

C INTCOCRS  IN  OCT  Our  • *INT«  PRCAnOLC  • l«0INS»3wi*  • •CXTRA  INTS 

AARANCTCR  NHIOtr  • e*(AXflNA>H  » < SS<*i*C*Sl /<*  * 07 

c 

C UOf  RAT  our  •HOC  AACAH*IHAX  flLCt'INAX  COL  S/ RO>NC  ATLN  COLS'HARO  COLfli»<* 

AARANCTCR  NWl  NOr  • I AXOI  Nt  • I I * I HAL  THI  • (KPAOHl*  t . i*  | | * •» 

c 

AARAHCrCA  NrAQSZ>ICi  9 • UOS  RCA  CmannCL  IN  LOCAL  rACQ  TaOLC 

RAAAHCrCA  NrAQCH«S  I * CHANNCLO  IN  LOCAL  TACO  TAOLC 

INTCOCA  NoriuriNuioor.NOiursi  a aaaay  or  octcction  ourrcAs 
iNTcocA  Noor  a octcction  ourrcA  nunoca 

INTCOCA  Noorm  a hiohcot  octcction  eurrcA  nunoca  to  use 

INTCOCA  lAATOr INMlROri  9 AAINT  OUCrCA 

INTCOCA  NrACQiNrAQSZ.NrAQCHl  a local  rACQUCNCV  TAOLC  ( score  INCLUOCS 
0 a INTCANAL  AOUTInC  At’SCRNI 

INTCOCA  IPLIN  a PAINT  L I NC 

INTCOCA  IRCNIN.IACNAX  a NININUN.  NAXINUN  PKInT  COLUNN 

ACAL  AOJL IN. AOJSAH  I AOJUSTCO  L I NC  ANO  SANALC 

INTCOCA  NL I OOL .NL lOOM.HL lOOS  9 NfA  LINC«100:  L OU . H I OH . SPAC I NO 

INTCOCA  NSALIN  9 NSA  L I NC  NUNOCA 

INTCOCA  ISTAT  a I'O  status 

INTCOCA  NTLCHA  S NCAT  L I NC  CMAAACTCA 

INTCOCA  NAOLCS.HAOACS  I LCrr  a AtONT  HAAOIN  CHAP  STAINO 
INTCOCA  IPLNIN. IPLNAX  9 NININUN  ANO  NAXlKUN  PAINT  L I NC 

INTCOCA  NLIOO  a NSA  LINCMOO 

INTCOCA  NSASLO.NSASHI  S LOU  A Ml  ON  NSA  SANPLC  NUNOCA 

INTCOCA  NPAL IN.NRACOL  a • PAINT  LINCS.  COLUMNS 

INTCOCA  LASTLN  a LAST  LiNC  ACAO 

C 

c 

C PAOCCOURC 

C 


MOL  IS 
000 


NO 

NO 


OATA  r 
OATA  I' 
N/A 
N/A 


1 1 1 
1 1 1 


NONC 

fAfAL 

fATAL 


MINT  LINC 
PAINT  LINC 
ACTUAN 
ACruAN 


a COHNON  AAOOAAH  CxCCUTION  SUITCHCS.  COUNTCAO 
a COHNON  CLASSiriCATION  INCO 

a ocriNC  STAucTuAC  or  uinooh  packcts 

a COHNON  OUTPUT  UlNOOU  PACKCTS 
a COMMON  TICK/rACQ  TAOLC 
a ocriNC  ourrcA  stauctuac 
a ocriNC  PATOCT  paaanctcas 

a NAXINUN  INTCOCA  VALUC 


a • or  OCTCCTION  eurrcAS  in  aaaay 


L-ZOI 


o u o u uuuu 


0AM  MACKAOC  AFMCNOIX  L MMOL  IS 

MAIN  MAOOMAHt/MOUrtNCt  OOS 


C 

CALL  TNACC 
C 

C u 

e ocrcMNiNC  now  many  ourrcNt  ro  use  , 

c 

NOOrNl«NINO(NLinCM.NOSUrSI 
iriNLlNCN.Or.NOOUfSI  call  NONOrCl 
• ’TOO  WANT  CNANNCLS  MCQUCSrCO  --  f INST  * .CSSNlNINOOrHl .01 . 

» * CNANNCLS  MNOCCSSCO‘1 

C ^ 

e 

C INiriALIZC  HINIHUN  ANO  NAXINUN  MMINT  LlNCS  ANO  COLUMNS 
C 

IMlNtN«MMOOMMIMLIN.HNlNt 
I ML  HAX«MMOOMH I ML  I N . UMAX  I 
IMCNIN«MMOOHUIMCOL .HNINI 
IMCNAXaMMOOWMIHCOL .NMAXI 


CALCULATC  TNC  NUHSCM  Of  MAINT  LlNCS.  COLUNNS  TO  SC  MMINTCD 

NMML IN>IMLNAX*IMLNlN*l 
NMMCOL«UPCKAX-IMCNlN*n  •! 

i 1 

CLCAM  LOCAL  PMCQUCNCV  TaBLC 

00  tSO  l•t.NLlNCN 
00  COO  K*I.NPMQSZ 

NfACQIK.  n*o 
COO  CONTINUC 

C80  CONTINUC 
C 

c 

C INITIALIZC  low  ANO  NION  LlNCS  ANO  SMACINO 

c 

CALL  AAM  IAOJLIN.AOJSAN.  PL OA T ( I PL N I N I . I . • 

HLIOOL«AOJLIN*tOO.  * 

CALL  AAP  ( AOJL IN. AOJSAN.  PLOA T ( t PLNAX I . I . I 

NLtOON*AOJLlN«100. 

NLtOOS*HSAOWU<MLlN,USPSOO> 

c 

c 

C OCNCMATC  ANO  PPINT  «ANPLC  SCALC  ANO  SOMOCM  POP  L I NC  SCPOPC  t$T  PAINT  U NC  r 

C 

SOO  CALL  SANSCL  I tPATBP. ( IPLNlN't I . MPCNtNI . I IPCNAXI > 

IP  I INBATCN.CQ.  01  . ANO  - INPALIN.LC.SPI  . ANO.  f NPACOL  . LC  . O**  I ) 

I CALL  PAOVPI  IS.*  *.'».•  ’.O.'  • . III  1 • • . IPATSPI 
CALL  PAOVPI  no.*  •.«*.•  •.•*.•  *.*«lllll’.tPATOPl 
C 

c 

C MCAO.  MASK.  ACSANPLC.  SCACCN.  COUNT  PACQUCNCV  ANO  PAINT  SCAN  LlNCS 
C 

1 PL  IN- 1 PLAIN 

LASTLN-'NAXINT  \ 


L-ese 


u o u u 


OAN  PACKAOC  AMCNOIX  I 
MAIN  MQeHAnf/flOUMNCt 


fXOUl 

•0« 


rtOAtl  IMINt  .rLOAtf  I^CHiNt  I 
rioATi  mini  .rLOAri  iknaxi  i 


• ALMAOV  IN  •urrCNtCt 


00  ISO  NUOO*NklOOL.NUOON.NUOO« 

NtALlNvNLIOO/lOO 
CALL  ANN  lAOJUN.AOJtAN. 

NSASLO*AOVSAII 
CALL  A«^  lAOJLlN.AOJtAN. 

NtAtNI«AO«lSAN 

irintALiN.CQ.LAOl.Ni  00  ro  XfO 
NrLCNfl«*i  * 

00  xio  NOor«i.NoofNi 

CALL  MAOtNf  Norowf  1 1 . NOOf  I . < NUI  OOf  I . I Sr  AT . 

NtALlN.LiNCNIMOOri .NtAtLO.NOAtHi I 
Iff  ItrAT.CQ.  *OAOII‘ I NTLCMN**?* 
iriiitrAr.NC.’OAor’i .and. 
h iitTAr.NC.'ori’M  00  ro  no 

CALL  HOrATLI  COOACOM  STAT  . I .«  I . 

’ HNILC  RCAOINO  OCrCCTION  riLC*l 
CALL  CROOrA  (‘10  *.t.O. 

*•1/0  CROON  • iONORC  OUrRur*‘> 

00  ro  000 


no  CONTINUC 

ICO  LAOrUN-NOALIN 

CALL  NOKRix  iRorourt I . I > . 
ir  iiNoriuriRxiiNr.ii.CQ. 
i (Horouf (RXOINT. 1 1 .CO. 

A iHoriuriRxiiNr. 1 1 .CO. 

A (NOriuriRXlINT, 1 1 .CO. 

CALL 


Norouri I . I M 
OYT* I .OR. 

•CMR* I .OR. 

* INT • I .OR. 

‘NUL'ii  00  ro  110 

NOrATL : * INVAL 10  01 N TYRC  *. 

Citi»cs(Horour(RxoiNr.  i t . I .n  . ’ in  rrolix'i 
TO  OOO 

110  ir  (NOrOUr(RXOINr.|I.CQ.‘OYT*l  call  RCOCRN  (IRRTgr.MRllNI 

NoriuP. iNMioori . (NOiurn .otrivr i 
CNR* I Call  RCOCRN  I IRRror. I IRLINI . 
Norour. (NHioori .(Noourn .ocricci 
IN*’ I CALL  RCOCRN  I IRRTOr.  ( IRLI.il  . 
Norour. iNuioon . iNOOuroi .octinti 
(ROrOuriRXOINr.l I .CO. *NUL*I  call  RCOCRN  MRRTOr . < IRLINI . 
A I iRCNiNi . ( iRCNAxi . Norour. (Nuioori . iNOOuroi .octnul > 

CALL  COTHIN  IHROLCO. I I I . <01 . NOAL 1 N.» . * 0 * i 

nrorco-nrolco 

ir  MHOArcM.CQ.oi  .and.  cnrrlin.lc.s**)  .and.  (nrrcol .LC.e**' * 

A CALL  RROvri  (O.NROLCO.'*.  • * . 0 . NTLCMR.  • I • • • • • • . I RRTOfl 

CALL  RROvri  < lO.NROLCO.H.NRORCO.v.NrLCNR. * I 

IRLIN«IRL!N»I 
100  CONTINUC 


If 


If 


ir 


00 

(NorourtRxoiNr.i I .co. 

I IRCHINI . < IRCNAXI . 

iNorouriRKOiNT.i I .co. 

( IRCNINI . (IRCNAXI . 

(HorouriRxoiNr.i I .co. 

( IRCNINI . (IRCNAXI  . 


OCNCRATC  ANO  RRINr  OAHRLC  OCALC  AND  OOROCR  rOR  LINC  AfTCR  LAOT  RRINT  LlNC 

CALL  OANOCL  ( I RRT|r . I I RLNAX • I I . I I RCNI Nl . I I RCMAX i I 
ir  ( (NOaTCN.CO.OI . AND. (NRRL IN.LC.01I .ANO. < NRRCOL . LC . 01 • I 

A CALL  RROvri  (0.*  *.i.*  *.0.*  ‘.‘I* 

CALL  RROvrt  (10.*  *.i.*  *.i.*  * . • • I III • * . IRRTOn 
CALL  RROYfl  ( 10. ••*•• * .1. *•••• * .1. * I * . *11 1 1 I • * . IROron 
C 

c 

C NOVC  OArA  CRON  LOCAL  RRCO  TaOLC  TO  CONNON  TaOLC 


L-ro] 


OOOOOOOUO  OOOOOOOOOOOOOOClOOOOOOOO 


OAK  ^ACKAOe  APPCNOU  L 
NAIN  ppooRAns/nouriNCS 


icrBLrv«‘PRCQ‘ 

XTBLNUaNUNOOH 
00  600  l•I.NLII1CH 

00  860  K«I.MrPQSZ 

KFRCQIK. 1 1 -NFRCQt K. I I 
880  CONTINUt 

600  CONTINUe 

00  700  i-I.IO 

00  680  K«t.tS 

KFRCROf I .KI*-HAXlNr 
680  CONTINUE 

700  CONTINUE 
C 
C 

C NEXT  CALL  IS  TO  PR0LI9 
C 

900  CALL  NVIATO  I PRO  189. PROL 1 91 

RETURN 


INTERNAL 

SUBROUTINE  SAHSCL 

0 IPRTBF. 

( IPLIN. 

1 IPCHIN. 

I IPCHAXI 


( a OENERATE  SAMPLE  SCALE  ANO  BORDER 
a PRINT  buffer 
a PRINT  LINE 

a NINIHUN  PRINT  COLUNN  (LOGICAL! 
a NAXINUN  PRINT  COLUNN  (LOGICAL! 


HISTORY 


J 

c 

CRISP 

LEC 

18/86/79 

REQUIREMENTS 

J 

c 

CRISP 

LEC 

18^86/79 

AL60RI Thm 

DESIGN 

J 

c 

CRISP 

LEC 

18/86/79 

ALOORI thm 

COOINC 

HETHOO 

initialize  LOH  ANO  HICH  samples  ANO  spacing,  set  Bl'^rER 
PREAMBkE.  ENCODE  SAMPLE  NUMBERS  AND  PCT  COLON.  STRING.  ANO 
COLON  IN  PRINT  BUF'ER. 

NOTE.  3 PHYSICAL  ^'PO  BINS  PER  LOGICAL  PPD  COLUMN. 


NACHINE-OEPENDENT  CODE 

ASSUMES  6 CHARS  PER  INTEGER  BIN 


EXTERNAL  REFERENCES 


o 

PROL I 3 
008 


) 
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006 


C 

c A*»p  • Aojusreo  cooro  for  PRiNr/ptor  cooro 

C FUTCHR  > Rur  CHAR  IN  CHAR  STRING 

C CSr*»IN  a CHARACTER  STRING  FOR  INTEGER 

C 

c 

C EXCEPTIONS 
C 

C ASSURES  6 CHARACTERS  PER  INTEGER  BIN. 

C 

C 

C GLOBAL  declarations 
C 

C INCLUDE  KOHOHU.LIST  i COHNON  OUTPUT  UINOOU  PACKETS 

C INCLUDE  HINOEF.LIST  a define  structure  OF  UINOOU  PACKETS 

C INCLUDE  PXBOEF.LIST  a DEFINE  PIXEL  BUFFER  STRUCTURE 

C 
C 

C LOCAL  declarations 
C 

INTEGER  IPRTBFdl  a AROUNENT 

REAL  AOJLIN.AOUSAM  a ADJUSTED  LINE.  SAMPLE 

INTEGER  IPBIN  a POINTER  TO  PRINT  BIN 

INTEGER  MSASAM  a SAMPLE  NUMBER 

INTEGER  MSIGGL.MSIGGH.MSIGGS  a MSA  SANPLEMOG:  L OU . H I GH . SPAC  I NG 
C 
C 

C PROCEDURE 

C 

C 

C initialize  LOU  AND  HIGH  SAMPLES  AND  SPACING 
C 

CALL  A>*P  (AOJLIN.AOJSAM.  FL  OA  T ( I PL  I U > . FLOA  T ( I PCMl  N I 1 

HStOOL>AOJSAM«  100. 

CALL  AfP  (AOJLIN.AOJSAM.  FL OA T ( I PL  I N I . FL OA T ( I PCMAX I ) 

MSIOOH-AOJSAM*  too. 

MSI OOS-MSAOUU( USAM. USPI 00 ) 

C 

C 

C SET  PREAMBLE  POINTERS 
C 

IPRTBF(PXRECN) *0 
IPRTBr(PXLINO»-IPLIN 
IPRTBF(PXCHAN) >0 
IPRTBF(PXQUAL) 

IPRTBFrPXBINTI «• INT  * 

IPRTBFIPXLBI N) 

IPRTBFIPXLCOL I -IPCMIN 
C 

C CONVERT  LOGICAL  PRO  COLUMNS  TO  PHYSICAL  PRO  BINS 
IPRTBFIPXHBIN>>( r IPCMAX-IPCMIN*I 1«3>  *1 

c 

IPRTBFIPXHCOLI >IPCMAX 
IPRTBF(PXNOIN) *0 
IPRTBFIPXNOOAI -0 
IPRTBF(PXLJOn>0 


ooo  ooooooooooooo  oooonoooo 
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iPRrBriPXHJon*o 

IP8IN«IPRTBr(PXI.8IN)>l 

c 

c 

e BUILO  SCALE  ANO  BOROERISi 

C (3  PHYSICAL  PPO  BINS  PER  LOGICAL  PPO  COLUMNI 

C 

00  100  HSIOO-NSIOOL .nSIOOH.HSIOOS 
HSASAH«HSI00/t00 

IPRTBF(PX8INS*^IPBIN«0>**  * • * 

IPRTBPIPXBINS*IPBIN»I )>'  ’ I * 

CALL  PUTCHR  ( IPRTBrcPXBtNS*IPBIN*Bl . ( I > . *:M 

CALL  CSTHIN  ( IPRTBFfPXBINS^IPBlN^Bl  . (81  .•«.  NSASAN . H . ' 0 * I a * : 9999 
CALL  PUTCHR  ( I PRTBP ( PXBI NS» I PB I N*8 I . ( 8 1 . 

IPBIN*IPBIN*3 
100  continue 
C 
C 

C RETURN  TO  CALLING  ROUTINE 
C 

900  RETURN 


INTERNAL 

subroutine 

0 IPRTBF. 

( I PL  I N . 

( IPCNIN. 

( IPCNAX. 


RESCRN  ( a RESANPLE/SCREEN/COUNT  FREQUENCY 
a PRINT  BUFFER 
a PRINT  LINE 

a HININUH  PRINT  COLUMN  (LOOICAD 
a NAXinUN  PRINT  CulUNN  (LOOICAD 


I NOTBUF. 
( NWtOBF. 
( N08UF9. 
I OETBINI 


a ARRAY  OF  OETECTION  buffers  (ALL  OF  SANE  BINTYPE) 
a NUMBER  OF  MOROS  IN  ONE  BUFFER 
a NUMBER  OF  BUFFERS 

a routine  to  get  sin  VALUE*-OETBYT.OETICE.OET|NT.OETNUL 


history 


J 

c 

CRISP 

LEC 

18/88/79 

REQUIREMENTS 

J 

c 

CRISP 

LEC 

18/86/79 

ALOORI THM 

DESIGN 

J 

c 

CRISP 

LEC 

18/88/79 

ALGORI THN 

COOING 

method 

COMPUTE  LOU  ANO  HlOH  SAMPLES  ANO  SPACING.  SET  BUFFER 

preamble,  for  each  sample,  check  if  outside  of  input  uindou. 

CHECK  IF  OUTSIDE  OF  RADIANCE  LIMITS.  AND  COUNT  FREQUENCY. 
NOTE.  3 PHYSICAL  PPO  BINS  PER  LOGICAL  PPO  COLUMN. 


L-896 


ooooooooooooooooooooooooooooooo 


PR0LI3 

ooe 

HACHtNe-oepcNOCNr  cooe 

NONC. 


OAN  PACKAOC  APPCNOtX  L 
MAIN  PROOPAnS/ftOUTINCS 


exrcRNAL  RCPeRCNces 

A4P  a Aojusreo  hss  cooro  for  print/plot  cooro 

CSTHIN  a CHARACTER  STRINO  FOR  iNTeOCR 

oerice  a oer  character  from  character  string 


EXCEPTIONS 

NONE. 


0L08AL  declarations 


INCLUDE 

KOMOUU.L 

1ST 

a 

COMMDN 

1 NCL  UDE 

KOMTBL .L 

1ST 

a 

COMMON 

INCLUDE 

KOMKLS.L 

1ST 

a 

COMMON 

INCLUDE 

PXBOEF.L 

1ST 

a 

define 

INCLUDE 

KOMSTM.L 

1ST 

a 

COMMON 

INCLUDE 

UINDEF.L 

1ST 

a 

define 

OUTPUT  UINOOU  packets 
FREQ/TICK  table 
CLASSIFICATION  INFO 
BUFFER  STRUCTURE 
SYHBOL  table 

STRUCTURE  OF  HINOOH  PACKETS 


LOCAL  declarations 


PARAMETER  NUHBFS-3 

INTEGER  HOTBUFINUIOBF.NDBUFSI  a ARGUMENT 
IPRTBFII)  a ARGUMENT 

IPIXLt . IPIXLB  a VALUE  OF  PIXEL  FOR  EACH  MPX  BUFFER 

NBINSOfNUMBFSI  a SIN  NUMBER  OF  SAMPLE  0 FOR  EACH  HPX  BUFFER 

MSI OOL .MSI OOH.HSIOOS  a MSA  SAMPLE*I00:  L OH . H I OH . SPAC I NO 
MSASAM  a MSA  SAMPLE  NUMBER 

a PRINT  BUFFER  SIN  POINTER 

a ADJUSTED  LINE  AND  SAMPLE 
a MSA  SAMPLE* I 00 

a PIXEL  value  character  string 


INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER  IPBIN 
REAL  ADJLIN.ADJSAM 
INTEGER  MSI  00 
INTEGER  KSTPIX 


C 

C 

C 

C 

c 

c 

e 


PROCEDURE 


initialize  LOU  AND  HIGH  SAMPLES  AND  SPACING 


CALL  A<*P  r ADJL  IN.  ADJSAM. 
HStOOL*AOJSAM*IOO. 

CALL  AVP  (ADJLIN.ADJSAM. 

HSIOOH-ADJSAM«IOO. 

MSIOOS*MSAOUU(MSAM.USPtOO> 


FLOAT ( I PL  IN) .FLOAT! I PCM  IN) ) 


FLOAT  I I PL  IN)  .FLOAT! IPCMAX)  I 


C 

c 
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U 


c 9cr  NunecR  or  sin  containino  sanplc  o por  each  npx  bupfer 
c 

00  ISO  NUNBUP-I .NOeUPS 

N8 1 NSO I NUHBUP I «H0  T SUP  C PXL  BIN. NUHBUP  * -HO  T8UP ( PXL  S AH . NUHBUP  > 

ISO  continue 
c 
c 

C SET  PREAHBLE  POINTERS  ANO  BIN  POINTER 
C 

IPRTBP'PXRECN)>H0TBUP(PXRECN. I I 
I PRTBP I PXL I NO) - 1 PLI N 
IPRTBPCPXCHANI>0 
IPRTBPIPXQUAD-O 
IPRTBPCPXBINT)*’ INT* 

IPRTBP(PXLBINI«B 
IPRTBPIPXLCOLI >IPCHIN 
C 

C CONVERT  logical  PPO  COLUHNS  TO  PHYSICAL  PPO  BINS 
IPRTBP(PXHBIN) «( I IPCHAX-t PCHIN*I ) «3>  »l 


C 


C 

c 

c 

c 


c 

c 

c 


IPRTBPIPXHCOL) -IPCNAX 
IPRTBP(PXNOIN)«0 
IPRTBP(PXN0OA)-0 
IPRTBPIPXLJOI )-0 
IPRTBPIPXHJOI I >0 
IPBIN^IPRTBPIPXLBIN) -I 


RE3AHPLE/SCREEN  RAO  I ANCE/ COUNT  PREQUENCY 


DO  400  HSIOO-HSIOOL.HSIOOH.HSIOOS 
HSASAH«HSIOO/IOO 

RESAHPLE  ANO  SCREEN  BUPPER  I 


A 

A 


A 


IP  ( INSASAH.LT.HOTBUPIPXLSAH. I ) ) .or. 

(HSASAH.OT.HOTBUPfPXHSAH. n ) I 00  TO  350  a SAMPLE  NOT  I 
CALL  OETBIN  (IPIXLl. 

HOTBUPIPXBINS. t 1 . ( MSASAH*NBI NSO ( t ) I I 
IP  ( IPIXLl .OE.HOTBUPtPXNOOA. n ) CO  TO  350  a NO  OaTa 
IP  I I IPIXLl .LT.LCVLOI I .OR. 

(IPIXLl .OT.LCVHI I I I 00  TO  360  a OUT  OP  RAO  LIMITS 
IP  (NLIHCH-I.EQ.OI  00  To  360 


BUPPER  6 


A 

A 

A 


IP  I (MSASAM.LT.MOTBUPrPXLSAM.?) 1 . OR. 

(MSASAM.0T.M0TBUP(PXHSAM.6) I I CO  TO  350 
CALL  OETBIN  IIPIXL6. 

HOTBUPIPXBINS. 6> . I MSASAM*NBI NSO 
IP  (( IPIXL2.lt. LCVLOISI > .OR. 

I IPIXL2. OT.LCVHI (21 n 00  TO  360  a 


C 

C COUNT  PREQUENCY 
C 


NPREQI IRIXL2*! .2l>NPREQl I PI XL2* I . 21  * I 


a SAMPLE  NOT  I 
2111 

OUT  OP  RAO  LlMI 


0 


» 


N BUPPER 


BUPPER 


S 


' ) 
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S20  NfRCQt  IPIXL  I ♦!  . I ) «NrftCQ(  IPIXL  I «^l . M *1 

c 

c 

C INSCRT  RAOIANCe  VALUC  INTO  PRiNf  8UPPCR 
C (3  PHYSICAL  PPO  BINS  PER  LOGICAL  PPO  COLUNNt 
C 

CALL  CSr>»IN(KSrPlX.  ( 1 1 .3. 

- IPiXLt.3. *0*1 

CALL  OerCHRt IPRTBPtPxeiNS^IPBIN^OI . • HUNOREOS  0101 T 

« KsrPlx.mi 

CALL  OETCHRf IPRrerfPXBINS^IPeiN**  a TENS  OlOir 

■ Ksrplx.cBii 

Call  oetchrc iPRrBP(PXBiNS«iPBiN*Bi . a units  oioir 
> KSTPIX.(3n 

irt  IPRTBF(PXB1NS*IPBIN*'0I  .EQ.  *0  * > IPRrBF(PXBINS*tPBIN*OI  • 
00  TO  390 


INSERT  ‘NO  DATA*  SYMBOLS  INTO  PRINT  BUPFER 

3S0  IPRTBF(PXBINS*IPBIN*OI -‘ : * 

IPRTBF(PXBINS*!PBIN«’I  I ‘ 
IPRTBF(PXBINS«IPBIN*?> : ‘ 

00  TO  390 


INiiERT  *N0  INFO*  SYMBOLS  INTO  PRINT  SUFFER 

360  IPRT8F(PXBtNS*IP8IN*0) >' : * 

IPRTBFIPXBINS^IPSIN*! I ■*  ‘ 
IPRTBF(PXBtNS»IP8tN*ei«‘  * 

390  tPBIN«IPBIN*3 

<»oo  continue 


RETURN  TO  CALLING  ROUTINE 

900  RETURN 
ENO 
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010 
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I 


,) 


fURROUriNC  PR0LI9  • DISPLAY  OCTCCrtON  FILCCSI  fPHASC  91 


HISTORY 

9 

E H SCHLOSSER 

LEC 

Oa/ES/79 

ORIOINAL  CODE 

e H SCHLOSSER 

LEC 

09/a*»/79 

UPGRADE  DOCUHEnTaTION 

e H SCHLOSSER 

LEC 

OS/OI/79 

DON'T  increment  nhnoou  if 

01 AONOSTIC 

J C CRISP 

LEC 

ie/06/79 

REVISE  CODE  IN  PICTAB  FOR 

PRTOET  , 

NCTHOO 

CHCCK  OlAONOSrtC  COUNTCRS  ANO  PRCPARC  FOR  NCXT  LIST. 
RACHlNe-OCPtNOCNT  COOC 
NONC. 

exrcRNAL  RcrcRENces 


HONore 

ROCLRU 


EXCEPTIONS 


NONE. 


0L08AL  OECLARATIONS 


4 


INCLUDE  KOMXQT.LISr  I CONNON  PROORAN  EXECUTION  SMITCHES.  COUNTERS 

INCLUDE  NULCST.LIST  i DEFINE  NULL  CHARACTER  STRING 

EXTERNAL  PRDOOO.  NULSUB 

C 

C 

C PROCEDURE 

e 

C 

CALL  trace 
C 
C 

C ON  RETURN.  CALL  PRDOOO  TO  OET  COMNANDS 
C 

CALL  NVIATOI  PRDOOO. NULSUai 
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PN01I9 

ooe 


c 

C ANY 
C 

900 


990 


989 


0IA0N0STIC8777 


iriNorATL.eo.o)  oo  to  9So 

CALL  HONOTCI  'FATAL  ERRORS  ••  NO  LIST  OeNERATCO‘1 
00  TO  990 


iriNONARN.CQ.OI  00  TO  960 

CALL  HONOTEI  ‘PREVIOUS  HARNINOS  •-  NO  LIST  OENERATEO‘1 

IPfN6ATCH.EQ.0i  HAITEC6.98SI 

PORMATIHX. *«*TRV  AOAINl’l 

CALL  HOCLRHf  NULCSTI 

00  TO  990 


prepare  por  next  uinoou 

960  nhnooh*nunooh*i 
c 
c 

C RETURN  TO  NEXT  STATEMENT  IN  CALLING  ROUTINE 
C 

990  RETURN 
END 


oooooooooooooooooooooooooooooooooooooooooooo 


OAH  PACKAOC  APPCNOIX  L 
NAIN  PROORAHS/ROUTINCS 


RRORIC 

001 


OUtROUTINC  RRORICC  ■ RICTuRC  OCTCCTION  riLCfSI  C»NASC  0> 
u KONOi  a I:  riRsr  3 chars  or  cohhano  o<  sraccs 


history 


C H SCHLOSSCR 
e H SCHLOSSCR 
C H SCHLOSSCR 


LCC  OS/ 17/79 
LCC  II/0S/7S 
LCnSCO  06/06/00 


RCOUIRCnCNTS  A OCSION 

STueeco 

INPLCNCNTCO 


ncthoo 


CHCCK/CAL ISRATC  SPCCS.  CLCAR  SCRCCN.  A OCNCRATC  PICTURC  HCAOINOS. 
THCN  NANC  PROP  1 3 TO  OCNCRATC  600 V OF  PICTURC. 


NACHINC-GCPCNOCNT  COOC 


NONC. 


CXTCRNAL  PirCRCNCCS 


OCTSKH 

ocrsiN 

NOUARN 

MONOTC 

NVI ATO 

CALCHA 

CALCOL 

CALSPA 

CALUIN 

CROPOH 

CAPRNT 

OPRPRO 

tOCRT 

10CPR0 

HOUNt  T 

WARNS 

CXTCRNAL 

CXTCRNAL 

CXTCRNAL 


CXCCPTIONS 


a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 

VIA 

PROOOO. 

PRDIC9. 

PR03‘»S. 


OCT  CHARACTCR  STRINO  DATA  FICLO  PRON  UNIT  9 
OCT  INTCOCR  data  PICLO  FRON  UNIT  9 
PRINT/COUNT/LOO  'UARNINO'  DIAGNOSTIC  NCSSAOC 
PRiNT/COUNT/LOO  'NOTC*  OIAONOSTIC  NCSSAOC 


NANC  'VIA*  'TO'  SUBROUTInCS 

CAL ISRATC  CHANNCLS 

CAL ISRATC  COLOR/ INTCNSI TY  SYMBOLS 

CALIBRATC  TRANSrORHAT I ON  COCPFICICNTS  FOR  SPACINC 
CAL ISRATC  WINDOW  CNVCLOPCS 
CROP  OUTPUT  WINDOW 

WPITC  ASCII  IMAOC  TO  PRIMARY  OUTPUT  OCVICC 
OPCN  ALTCRNATC  print  FILC(S) 
lOCNTIFV  CRTS  SCCnC 

iocntify  currcnt  command  spccs  for  prtoct 

WRITC  HCAOING  LINC'SI  AT  TQP  OF  NCXT  PAOC 
SUBMIT  WARNINO  FOR  M I SS I NO / I N VAL I 0 FICLO  FROM  UNIT  5 
TO 

NULSUB 
PROPI  9 
PROPl 3 


I.  'PICTURC*  MAY  NOT  BC  A OCFAULT  COMMAND. 


L>3Q2 


OAH  PACKAOe  APPCNOIX  L MOPIC 
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C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

e 

c 

c 


c 

c 

c 

c 

c 


t.  ANT  HARNINO  OR  FATAL  ERROR  RRCVCNTS  OCNCRATION  Of  THE  RICTURE. 

S.  the  rOLLOHINO  EXCERTION  CONOITIONS  RROOUCE  THE  FOLLOMlNO  REtULTO 


condition 


RROCEStINO  DEFAULT  COHNANOS 
INUNOOU*OI 

KLSTVR  IN  CONHON  UNOEFINED 
KLSTYP  SPECIFICATION  HISSINO 
KLSTVP  SPECIFICATION  INVALID 

extra  specification 

LINIT  CHANNEL  VALUE  RANGE  IS  NULL 
ILCVLOl >LCVHI I I 
COLOR  NODE  SNITCH  NOT  ON 
BATCH  RUN 

oata/checkout  hooc 
HARNINOISI  OR  FATAL  ERRORISi 


GLOBAL  declarations 


ACTION 


NONE 

KLSTYPt«*RAO* 

USE  CONHON  KLSTYP 

NONE 

NONE 


NONE 

NONE 

NONE 

*TO*  routine 
*TO’  routine 


IS  NULSUB 
IS  PR0PI9 


OIAONOBTIC 


HARNINO 

NONE 

NONE 

HARNINO 

HARNINO 

HARNINO 

HARNINO 

HARNINO 

NONE 

NONE 


INCLUDE 

INCLUDE 

Include 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 


KOHXQT.L 1ST 
KONKLS.L 1ST 
KOHFIT.L 1ST 
KONTBL.LIST 
KOHSYN.LIST 
KOHKS.L 1ST 
HINOEF.LIST 
KOHOHH.L 1ST 
NULCST.LIST 


a CONHON  PROORAH  EXECUTION  SNITCHES.  COUNTERS 
a CONHON  CLASSIFICATION  INFO 

a CONHON  aojustnent/reoistrat ION  paraneters 

a CONHON  TICK/FREQ/FACTOR  TABLE 
a CONHON  SYHBOL  TABLE 
a CONHON  COLOR  SCREEN  PARANETERS 
a DEFINE  STRUCTURE  OF  HINOOH  PACKETS 
a CONHON  OUTPUT  HINOOH  PACKETS 
a DEFINE  NULL  character  STRING 


LOCAL  DECLARATIONS 


INTEGER  KHTEHP  a TEHPORARY 

Integer  intenp  a tenporary 

integer  nprl in.nprcol  a nuhber  of  ppo  l ines/columns  in  picture 


PROCEDURE 


CALL  trace 


C 

C 

c CHECK  IF  cohnano  is  LEOAL 
c 

IFCNHNOOH. EQ. 0>  CALL  NQUARNC 
IFlNBATCH.NE.Ot  Call  NOHARNi 

• 'PICTURE  COHNANO  NOT  ALLCHEO 
IFINCCLOR.EQ. 0)  CALL  HOUARNC 

• 'PICTURE  COHNANO  NOT  ALLOHEO 


'INVALID  default  COHNANO') 
IN  BATCH' t 

(COLOR  NODE  NOT  ON) ‘I 
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PROPIC 

OOS 


c ocr  picruRC  typc 
e 

KTRLTY*'  nul*  a hark  old  frcq  tarlc  as  ocstroyco 

CALL  OCrSKMIKHTCHP. (3t . NULCSTl  • ALLOW  CRUT  lOHORO  OPTIONAL  PICT  TYPC 
CALL  NVIATOI  PROSES. PROPI 3*  • NCXT  CALL  IS  TO  PROPI3 

C 

c 

C DRAIN  specs  FOR  CURRENT  COHNANO 
C 

300  CALL  OCTSINI INTCNP.  ♦I.*l. ‘EXTRA  PICTURE  SPECIFICATION  •-*! 

C 

c 

c CHECK  Radiance  limits 
c 

IFILCVLOI . OT.LCVHI I I CALL  NOHARNI  ‘NO  RADIANCE  LINITS‘> 

IFIHOATAC.NE.Oi  00  TO  900  0 OATa/CNECKOUT  HOOE 

C 

c 

C CALIDRATE  COLORS/SPACINO/WINOOW 
C 

CALL  CALCOL 
CALL  CALSPA 
CALL  CALHINI  0.  > 


OPEN  PRINT  FILE(S)  IF  NOT  OPEN.  CLEAR  WINDOW  NUNBER  A RESET  PAOE  NUMBER 


IF(NOTOTL.NE.OI  00  TO  900 
IFINMNOOW.lt. 01  CALL  OPRPRO 
NMNOOM> I ABS  C NWNOOMI 
NPAOE-0 


• OPEN  ALT  PRT  FILCISI  BEFORE  1ST  WtNOOW 


CROP  OUTPUT  WINOOM  TO  FIT  INPUT  WINDOW  A COLOR  SCREEN 

CALL  CROPOHI  KSLINE.KSCOLMI 
IF  (NOTOTL.NE.OI  00  TO  900 


COMPUTE  SIZE  OF  PRINT/PLOT  DEVICE  (COLOR  SCREEN)  WINDOW 

NPRL IN«IFI X(PPOOHW( WL IN. WMAXI I • I F I X ( PPOOWW ( WL I N. WMI N>  > *1 
NPRCOL*tFIX(PPOOWW(WCOL.WMAXI I • I F I X ( PPOOWW ( WCOL . WM| N I i *1 


C CHECK  FOR  OIAONOSTICS 
C 

IF(NOTOTL.NE.O)  00  TO  900 
C 
C 

C CLEAR  SCREENS  AND  PRINT  WINDOW  hEaOINO 
C 

CALL  EAPRNTIO. I .KSONI  • ROUTE  UNIT  S OUTPUT  TO  COLOR  SCREEN 

CALL  EAPRNTIO. I .KSCIERI  A CLEAR  COLON  SCREEN 


L*30N 


! 

) I 


c 


OAN  PACKAOC  AMCNOIX  L 
NAIN  MOOKANt/MOUriNCS 


MO»IC 

00« 


( 


NMNOOH.NrCIIAL 

•»I9  rOffnAM'*  HiNOOW  NUN9C9  * . J1.9X. ‘^ICTUMC*  .9X.HA9I 

CALL  CA^RNnO.I.KtOm  • NOUTC  UNI  t 9 OUfNur  TO  9AM  tCNCCN 

HNirCC9.'»l9l  NMNOOM.nrCRAL 
CAU  lOCRTf  9> 

CALL  lOCMOt  9i 


C 

e 

c 

c 


ANT  01 A0N09TIC87TT 


C 

C 

c 

c 


900  ircNorori.CQ.oi  oo  ro  ooo 

irtNOATAC.NC.OI  CALL  NViATOl 

iriNOArAC.eo.oi  call  nviatoi 


NCruNN  rOR  CALL  TO  NANCO  SUOROUTINC 


RROOOO.NUL8U9I 

PR0I99.RR0RI9> 


t OATA/CHCCKOUr 


990 


KOHO-’ 

RCruRN 

CNO 
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MOPI  S 

aoi 


tuMouriNC  PAOPii  • PieruM  ocrccnoN  mctsi  (phau  it 


c 

e 

c 

e 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

e 

c 

e 

c 

c 

c 

e 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NItrOPT 


C N tCNLOmn 
r N tCHLOStCA 
C N tCNLOttCM 


LCe  09/l7/7t 
Lrc  tl/09/7t 
LCHtCO  Qt/Ot/90 


PCouiPCNCNrs 

sruMCo 

INPLCnCNtCO 


A OttlON 


ncthoo 


INiruUZC  LOH  AND  h:ON  PPO  LINCt  AND  COLUHNt.  INiTIALlZC  LOM  AND 
Ml  ON  AOJUSreO  LINC.  call  ACAOIN  to  ACAO  LINC.  NASK  NON*rPtvlAL 
HiNOOU.  ACSA*‘PLC/SCACCN/COUNT  rACQUCNCV/SYNOOL  IZC  L t NC  . OurPUT 
LiNC.  NANC  PAOPIO  At  *70*  AOUMnC  POA  MAAP'UP  OP  PICTuAC 
PAOCCtSINO. 


NACNINC'OCPCNOCNr  COOC 


NONC. 


exrCANAL  ACPCACNCCS 


^ I 


AHP 

ACAOZN 
NtKPIX 
N0PA7L 
tJVl  A70 
CAPANT 


• AOJUOTCO  COOAO  POA  PAINT/PLOT  COOAO 

• PCAO  SCAN  LINC  PrON  OCTCCnON  PiLCiSi 
a NASK  N0N>7PIVIAL  WINDOW 

a PAlNT/LOO/COUNr  'PATAL  caaoa*  NCSSAOCS 


a NANC  'VIA* 
a wAirc  ASCII 


TO*  SUiAOUriNCS 

INAOC  70  PPINAAV  OUTPUT  OCVICC 


INTCOCA  NUNO  a NUNOCA  OP  INTCOCAS  POA  NUMSCP  OP  OrTCS 


OOUtLC  PACCISION  CSS4CS 
OOUOLC  PACCISION  COS'*  IN 
VI A TO 

CxTCANAL  PAOIZS.  PA0PI6 

CxTCANAL  ACSCOL.  OCTOvT.OCTICC.OCTINT.OCTNUL 


a VAPI AOLC-LCNOTN  CNAP  STPINO  POA  P l XCO-LCNOTH 
a VAN! ablC'LCNCTh  Char  STRIno  POA  INTCOCA 


a aoutinc  to  oct  oin  valuc 


CXCCPTIONS 


status 

PAON 

ACAOCN 

*COP* 

*BAOA* 

*tAOP* 

*OPL* 


PPO  CCLL  SYNtOLS 


NO 

NO 


data  (0PAY> 
OATa  (0AAY> 
N/ A 
N/A 


01 AONOSTIC 

NONC 

NO>'C 

PA-.AL 

PATAL 


action 

WAITC  LINC 
WAITC  LINC 
AC  Tuan 
AC Tuan 


L-SOO 


I 


NOIX  L MO^Il 

luriNCf  oot 


e 

c 

e OLOBAC  OCCLAllAnONt 

c — 

e 

iNCLuoc  Konxor.Litr 
IMCLUOC  KONKLt.Lltr 
INCLUOC  KONtrn.Litr 
INCLUOC  KOHKS.LISr 
INCLUOC  HiNOcr.Lifr 
INCLUOC  KONOMM.LItr 
INCLUOC  KonroL.Litr 
INCLUOC  NROOCr.Lltr 
INCLUOC  NXOOCr.Lltr 
INCLUOC  HAXINr.Lttr 

C LOCAL  OCCL ANA r IONS 


• CONNON  NNOONAN  CXCCUTION  ONirCNCS.  COUNTCNf 

• CONNON  CLAStiriCAnON  INrO 

• CONNON  tYNOOL  YAOLC 

• CONNON  COLON  8CNCCN  NANANCTCNS 

• ocriNC  fYNucruNC  or  winoom  nackcys 

• CONNON  OUYNUY  HI  NOON  NACKCYf 
A CONNON  YICX/rNCQ  YaOLC 

a OCriNC  NNOOCY  nanahcycno 
a ocriNC  NixCL  ourrcN  itnuctunc 

a NAXINUN  INYCOCN  VALUC 


nanancycn  NOOurs*o  a • or  ocyccyion  ourrcNO  in  annav 

C iNYCOCNf  IN  OCY  fur  • •INYO  NNCANILC  * l••INS*SI/H  • «CXYNA  INTf 

nanancycn  NHioor  • a*(NxiiNi-n  • (]9<*o*3i/i»  • a? 

C *H09  COLON/INYCNtirr  Our^UOS  NNCAH^CSO 

nanancycn  NUtKBr«(NXilNt>l t * 096 

nanancycn  NNNOCNaf  a • H09  NCN  CNANNCL  IN  LOCAL  YNCQ  YAOLC 

nanancycn  NrN09Z>tto  a • channclx  in  local  rxco  yaolc 

INYCOCN  NOYturiNHIOtr.NOOUrOI  a ANNAY  or  OCYCCYION  OurrCNf 
INYCOCN  Noor  a ocyccyion  ourrcN  nuhocn 

INYCOCN  NOtrNI  a NI0HC9Y  OCYCCYION  NurrCN  NUN6CN  YO  USC 

INYCOCN  KliuriNUIKiri  a COLON/ INYCN9IYY  iurrcN 

INYCOCN  NrNCQINrNQOZ.NrNQCHI  a LOCAL  NNCOUCNCY  YaOLC  ISCONC  INCLUOCS 

c a inycnnal  nouyinc  ncicod 

INYCOCN  NrNCNOI 10. 191  a LOCAL  CNOtS  rNCQUCNCY  YA6LC 

INYCOCN  INLIN  a NNO  L I NC 

INYCOCN  INCNIN. INCNAX  a NININUN  aNO  NAXIHWH  NNO  COLUHN 

INYCOCN  INLNIN. INLHAX  a NININUH  ANO  NAXINUN  NNO  L I Nf 

NCAL  AOJL IN.A0J9AN  A AOJUfYCO  L I NC  ANO  SANNLC 

INYCOCN  NLIOOL.NLtOOH.NLIOOa  a NjA  LINC*tOO;  . CU. Hi  OH. SNAC I NO 

INYCOCN  N9ALIN  I N9A  L I NC  NUHOCN 

INYCOCN  N9A9L0.HSA9HI  | LOH  ANO  HIGH  NSA  SAN>',  A* 

INYCOCN  I9YAY  a I/O  SYATuS 

INYCOCN  NNAL IN.NNNCOL  I NUN6CN  Or  NNO  LINC9  AVr  C0LUNN9 

INYCOCN  LASYLN  a LA9Y  SCAN  L I NC  NCaO 

C 
C 

C NNOCCOUNC 
C 

c 


CALL  YNACC 

c 

c 

C OCYCNNINC  NOW  NANY  BurrCNS  YO  U9C 

c 


Noirwi *N I NO • NL  t NCN . Noeur  s • 
iriNLIHCH.OY.NOiUrO'  CALL  HONOYCl 


L-J07 


0AM  MACKAOe  AMMCNOtX  L 
MAIN  MROORAHS/ROUrtNCS 


RR0R13 

003 


• *T00  MANY  CHANNCLO  RCQUCSTCO  --  f iRST  ’ .C8S*»tN(N00rMt .«»  . 

0 • CHANNCLO  RROCeOSCOM 

e 

c 

e INtriALIZC  HINIHUH  AND  NAXINUH  PRO  LINCS  ANO  COLUMNS 
C 

IPLHIN«PP00MH(NLIN.MN1NI 
I PLHAX*PPOOHU ( ML  t N . UMAX  t 
I PCH I N^PPOOMH ( HC OL . HN I N I 
I PCHAX«PPDOHHI HCOL . HNAX I 
C 
C 

e coNPurc  nunocr  op  pro  lincs  ano  columns 
c 

NPRLIN>IPLHAX>IPLNlN«t 
NPRCOL • I PCNAX • I PCM I N« I 
C 
C 

C CLEAR  LOCAL  PREQUENCV  TaOLES 
C 

00  OSO  t-t.NLIHCN 

00  000  K-I.NPROSZ 
NPREOIK. I i«0 

000  continue 

OSO  CONTINUE 

00  000  l-t.lO 

00  070  K-I.IS 

NPRCROII.K»«0 
070  continue 

080  continue 

C 

C 

c initialize  lom  ano  hioh  lines  ano  spacino 
c 

CALL  ANP  lAOJLIN.AOJSAH.  PLOAH  I PLHI  Nl  . I . I 
NLIOOL>AOJLIN«IOO. 

CALL  A<*P  lAOJLIN.AOJSAH.  PLOAT 1 1 PLNAX I . I . ) 
HLIOOH>AOJLIN*IOO. 

HLIOOS-HSAOHUIML IN.U8P100I 
C 
C 

C TURN  ON  COLOR  SCREEN 
C 

CALL  EAPRNTIO. t .KSONt 
C 
C 

C REAO.  MASK.  RESAMPLE.  SCREEN.  SYMBOL tZE  ANO  HRITE  SCAN  LINES 
C 

IPLIN>IPLNIN 

LASTLN>-MAXINT 

00  3S0  MLIOO-NLIOOL.MLIOOH.MLIOOS 
NSALIN*MLIOO/tOO 

CALL  A*»P  lAOJLIN.AOJSAH.  PLOAT  I I PL  I N I . PLOAT  I I PCMI  N)t 

HSASLO>AOJSAH 

CALL  A*»P  lAOJLIN.AOJSAH.  PLOAT  I IPL  INI  .PLOATI  IPCMAXI  > 
HSASHt*AOJSAH 


L-308 


N 


SAN  PACKAOe  APNCNOIX  L 
HAIN  PROONAHS/ftOUrtNCS 


PNOPIS 

00* 


IPtNSALIN.eQ.LASTLNt  00  TO  S80  0 ALNCAOV  IN  OUPPENISt 

00  310  Noer«i.NoerHi 

CALL  NC AOON ( Norour I t.NOOPt .(NU I oor I . istat. 

• NSALIN.LINCNINOOri .NSASLO.NSASHI I 

trmsTAr.NC.  *baop*  i .ano. 

A (tOTAr.NC.*OFL*n  00  ro  310 

CALL  NOrAUI  C8S*CS(ISTAr.  I .*1  . 

A ’ UHILC  RCAOINO  OCTCCrtON  PILE* I 

00  TO  900 

310  CONTINUE 

LASTLN«NSALIN 

380  CALL  NSKPIX  (HOTBUFt  I . t » . HOTBUFM.tn 

IF  C INOreUFIPXBINT.il .EQ. *BYT *1  .OR. 

A INOTBUFIPXBINT.  1 1 .EQ.  ‘CHRM  .OR. 

A INOTBUFIPXeiNT . 1 1 . EQ. * INT * I . OR. 

A INOreUFIPXBlNT. n .EQ. ‘NUL * I I 00  TO  330 

CALL  NOFATL I * INVALID  BIN  TYPE  *. 

A C8S*CSCN0TBUF(PXBINT . 1 1 . 1 . 31  . * INPR0PI3M 

00  TO  900 

330  IF  (NOroUFfPXeiNT, I I .EQ. ’BYT  * I CALL  RESCOL  (KIOUF. ( IPL IN) . 

A CtPCHINI.dPCNAXI.  HOTBUF.  (NUIOBFI  . (NOBUFSI  .OETOYTI 

IF  INOTBUFIPXBINT. I I .EQ. *CHR' ) CALL  RESCOL  IKIBUF. I IPL INI  . 
A I IPCNINt . I IPCNAXI . NOTBUF. INHIOBFI . INOBUFSI .GETICEI 

IF  INOTBUFIPXBINT. I ) .EQ. * INT* ) CALL  RESCOL  ( K I BUF . I I PL  I N I . 
A I IPCHINI . I IPCNAXI . NOTBUF. (NMIOBF) . (NOBUFSI .OETINTI 

IF  INOTBUFIPXBINT. I I .EQ. *NUL ’ I CALL  RESCOL  (KIBUF. ( IPL INI . 
A I IPCNINI . I IPCNAXI . NOTBUF. (NUIXBFI . (NOBUFSI .OETNUL 1 

CALL  EAPRNTI I . Nl *NB IK  I BUF I PXHBI Nl I . K I BUF I PXB I NSI I 
IPLIN«IPLIN*I 
3S0  continue 
C 
C 

C NOVE  DATA  FRON  LOCAL  FREQ  TABLES  TO  CONNON  TABLE  (REPLACING  TICKSI 
C 

XTBLTY»*FREQ* 

KTBLNU-NHNOOH 
00  600  l>l .NLINLH 

00  SSO  K-I.NFRQSZ 

KFREOIK. I l■NrREQ(K. I I 

SSO  continue 

600  CONTINUE 

00  700  l-l. to 

00  6S0  K-l . IS 

KFRCROI I .Kl *NFRCRO( I .Kl 
690  continue 

700  continue 
C 
C 

C TURN  OFF  COLOR  SCREEN  ANO  RETURN  NEXT  CALL  IS  TO  PR0PI9 
C 

900  CALL  EAPRNTIO. I .KSOFFI 

CALL  NVIATO  I PR0I89.PR0PI 91 
RETURN 
C 
C 
C 


L*309 


n n n n n n 


OAH  MCKAOe  AP^CNOIX  L 
HAtN  PMOeilAHS/ROUMNCS 


PMOPIS 

008 


INfCRNAL 

SUBROUriNC  RC8C0L( 


• ResAnPLe/scReCN/couNr  prcqucncv/color 


0 KiBur. 

t IPLIN. 

( IPCNIN. 
( IPCRAX. 

• 

1 NorBur. 
« NUIOBF. 
I NOBUPS. 
I OCTBINi 


• COLOR/ INTCNSirr  BUPPCR 
A PPO  LINE 

• NINtNUn  PPO  COLUHN 

• HAXINUH  PPO  COLUHN 

• ARRAY  or  H8S  PIXEL  BUPPERS 

• NUMBER  OP  UOROS  IN  ONE  PIXEL  BUPPER 
a NUMBER  OP  PIXEL  BUPPER8 

a routine  to  oet  sin  vALuE<-ocr6rr.oEricE.oEriNr.oETNUL 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


nethoo 


COMPUTE  LOU  ANO  HI  OH  SAMPLES  AMO  SPACINO.  SET  BUPPER  PREAMBLE. 

POR  each  sample,  check  ip  outside  op  input  UINOOU.  check  IP  OUT- 
SIDE OP  RAOIANCE  limits,  count  PREQUENCr.  ANO  SYMBOLIZE.  INSERT 
TICKS. 


EXTERNAL  REFERENCES 

A«»P  a ADJUSTED  MSS  COORO  POR  PR  I NT /PLOT  COORD 

OETICE  a OET  INTEOER-CHARACTER-EQUt VALENT  PROM  CHARACTER  STRING 

PUTBYT  a PUT  BYTE  INTO  BYTE  STRING 

NOVBST  a MOVE  BYTE  STRING 


GLOBAL  DECLARATIONS 

INCLUDE  KOMOUH.LIST 
INCLUDE  KOMTBL.LIST 
INCLUDE  KONKLS.LIST 

include  pxboep.list 

INCLUDE  KOMSyM.LlST 
INCLUDE  KOMKS.L 1ST 
INCLUDE  UINOEP.LIST 
INCLUDE  MAXINT.LIST 


a COMMON  OUTPUT  MINOOU  PACKETS 
a COMMON  PREQ/rtCK  TABLE 
a COMMON  CLASSIFICATION  INFO 

a oepine  pixel  bupper  structure 

a COMMON  SYMBOL  table 
a COMMON  COLOR  SCREEN  PARAMETERS 
a OEPINE  MINOOU  PACKETS 
a OEPINE  MAXIMUM  INTEGER 


LOCAL  declarations 


a NUMBER  OP  MPX  BUFFERS 
a ARGUMENT 


parameter  NUMBPS«B 
INTEGER  MOTBUPINHIOBP.NOBUPSI 
INTEGER  KlBUPdi  a ARGUMENT 

INTEGER  NBINSOINUMBPS*  a BIN  NUMBER  OP  SAMPLE 

INTEGER  MSIOOL.MStOOH.MSIOOS  a MSA  SAMPLE«I00! 


INTEGER  NSASAN 
INTEGER  KIBIN 
REAL  AOJSAM 


0 FOR  EACH  MPX  BUPPER 
LOU. HIGH. SPACING 


a MSA  sample  number 
a color/intensity  buffer  bin  pointer 

a ADJUSTED  SAMPLE  NUMBER 


L-3I0 


c 


OAH  PACKAOe  APPCNOIX  I 
MAIN  ^ROORANS/ROUriNCS 


RRORI3 

f>06 


» 


V 


« 


e 


INTCOCR  IRiXU.iRiXLt.lRIXLS. 

A IPiXLA.IRIXLS.IRiXLe  • RtXCL  VALUC  POR  CACH  SUrPCR 


INTCOCR  IKCNU 

INTCOrR  KIKC.KIKCNU 

iNrcocR  lie.  iiCNu 
iNreocR  XI le 


a INreOCR-COLOR^eQUlVALCNT  INCHI 

a cooeo  iNrtoeR*coi.oR>eQuivALeNr  icuRRCNn  .ncui 
a iNreoeR-iNrcNsirY'CQuivALCNr  (CURRCNr.NCHi 

a cooeo  iNreoeR'iNreNsirY-eouivAieNr  tcuRReNn 


c PRoceouRe 

c 

c 

C INiriALIZe  LOU  AND  HIGH  SARPteS  ANO  SPACING 

c 


CALL  A<»P  lAOJLIN.AOJSAN.  PLOAY  1 1 PL  I Nl  .FLOAT  ( I PC»t  I N M 
NSIOOL>AOJ8AN«IOO. 

CALL  A**P  lAOJLIN.AOJSAN.  FLOAT  M PL  I N > . PLOA  T I I PCNAX I > 

NSIOOH«AOJSAN«tOO. 

NSt  OOS-NSAOUMI USAH . MSPI 00  > 


seT 


NUHOeR  OF  eiN  CONTaININO  SANPLe  0 FOR  eACN  NPX  BUFFeR 


00  ISO  NUNBUF>I .N0SUF8 

NB I N80 ( NUNBUF I -NO TBUF I PX'. B I N . NUNBUF 1-N0TBUFIPXL8AN. NUNBUF I 
ISO  CONTINue 
C 
C 

C INITlALIZe  PRCANBLe  FOR  COLOR* I NTCNB I Ty  BUFFCR 

c 


KIBUFIPXReCNI-NOTBUFIPXReCN. I > 

KIBUFIPXL INO) -IPL IN 
KIBUFIPXCHANi*0 
KIBUF(PXQUALI*0 
KIBUFCPXBINTI>‘BYT‘ 

KIBUFIPXLBINI-I 
KIBUFIPXLCOL  > -IPCNIN 
KIBUFIPXHCOL I -tPCNAX 
KIBUF(PXNOINI>0 
KIBUFIPXNOOA) -0 
KIBUFIPXL JO  I I ’0 
KIBUFIPXHJOl I >0 
C 
C 

C INITlALIZe  BIN  POINTCR  A FIRST  BIN  OF  C0L0R-INTeN8l TY  BuFFCR 
C 


KIBIN>KIBUF(PXLBIN> 

CALL  PUTBYT IKI BUFIPXBINSI . (KIBINi . 33>  a ASCII;  I 

C ’I'  TURNS  ON  PICTURINO  IN  NORTHST AR/ I SC 

C <CR>  <LF>  AT  eNO  OF  CACH  L I NC  TURN  OFF  PICTURING 

C 

c 

C INITlALIZe  CURReNT  I NTeoeR* I NTCNSI TY*eOUI V a cooeo  iNTeoeR-COLOR-eoulV 

c 

I ie>HAXlNT 
KlKe>NAXlNT 

c 


L*31 1 


0*N  l»ACKAOC  APPCNOIX  L 
MAIN  MOOKAHt/IIOUriNCt 


C 

C RCtAN^LC/SeilCeN  RAOIANCC/COUnr  rnCQUCNCY/LOOK  UR  SYNtOLt 

e 

00  •lOO  HStOO«HtlOOI..NtlOOH.It«IOOS 
ntAOAN«N«IOO/IOO 

c 

e ourrcR  i 

c 

ir  I INSASAN.Lr.NOrOUrfPXLSAN. I n .OR. 

A (nSASAn.or.NorBUFiPXHSAN.ini  oo  ro  390  a sahplc  not  in  surrcR 

CALL  OerOIN  MPIXLt. 

• NoreuptPxeiNS. t > . (hsasan^noinsoi t n i 
IPtXLB-IPIXLI  a SeCONO  channel  value  SAHE  as  first  IP  unoepineo 
IP  IIPlXLl.OE.HOroUPfPXNOOA.in  00  TO  390  A NO  OATA 

IP  1 MPIXLt  .LT.LCVLOI  ) .OR. 

A IIPIXLl.OT.LCVHlIlt  00  TO  390  A OUT  OP  RAO  LIMITS 

IP  (NLlnCH*! .EQ.O)  00  TO  3E0 
C 

c auppER  ^ 
c 

IP  I (HSASAH.lt. NOTBUPfPXLSAN.Et I .OR. 

A (HSASAH.Or.HOTBUFIPXHSAH.ei n 00  TO  390  A SAHPLE  NOT  IN  BUPPER 

CALL  OETBIN  (IPIXLE. 

■ HOTBUPCPXBINS.Bt . (HSI 3AH*NBI NSO ( B I > I 

IP  I ( ipixlb.lt. LCvLOtan .OR. 

A IIPlXLB.OT.LCVHKBnt  00  TO  360  A OUT  OP  RAO  LIMITS 

IP  (NLIMCH-8.E0.0I  00  TO  BSD 
C 

C BUPPER  3 
C 

IP  ( (MSASAH.LT.M0TBUPIPXLSAM.3I > .OR. 

A (H8ASAM.0T.MDT8UP(PXHSAM.3I n 00  TO  390  A SAMPLE  NOT  IN  BUPPER 

CALL  OETBIN  MPIXL3. 

• NOTBUPIPXBINS.3>.(NSASAH*NeiNSOI3ltt 
IP  l(IPIXL3.LT.LCVL0(3n.0R. 

A (IPIXL3.0T.LCVHM3ni  00  TO  360  A OUT  OP  RAO  LIMITS 

IP  (NLIMCH-3.EQ.0l  00  TO  B60 
C 

C BUPPER  <» 

C 

IP  ( (HSASAM.LT.M0TBUP(PXL$AM.>*<  ).0R. 

A (HSASAM.OT.MDTBUPIPXHSAM.VI I)  00  TO  3S0  a sample  not  in  BUPPER 

CALL  OETBIN  MPIXLV. 

- M0TBUP(PXBINS.HI . (MSASAN*NBINSO'hi I ) 

IP  ( (IPIXLV.LT.LCVLOO*)  I .OR. 

A ( IPIXLV.OT.LCVHI mil  I OO  to  360  a OUT  OP  RAO  LIMITS 

IP  (NLIMCH-V.EQ.OI  00  TO  B30 
C 

C BUPPER  9 
C 

IP  (( MSASAM.lt. M0TBUP(PXLSAM. 9 1 I .OR. 

A (MSASAM.0T.M0TBUPIPXHSAM.9I  1 1 00  TO  390  S SAMPLE  NOT  IN  BUPPER 

CALL  OETBIN  (IPIXLS. 

• MOTBUPIPXBINS.St . ( MSASAM*NBI NSO I 9* • 1 
IP  (( IPIXLS. LT.LCVLOOn  .OR. 

A (IPIXLS. OT.LCVHIISIII  00  TO  360  A OUT  OP  RAO  LIMITS 


PR0PI3 

007 


L-3IB 


OAH  MCKA3C  AMCNOIX  L 
NAtN  MOOMAHS/KOuriNCt 


MOPtl 

009 


ir  tNLINCN-B.eQ.Ol  00  TO  tOO 

e 

e ourrcR  e 
c 

ir  I iNtAOAn.ir.NorouFtmSAH.o) i .or. 

A tnoAOAN.or.NorourcRXHSAN.em  oo  ro  soo  a sanrlc  not  in  ourrcR 

CALL  OCrsiN  IIRIXLO. 

• Norour  c pxai NO . o > . i nsasan^noi nso i e i i i 

ir  (IIRIXLO.LT.LCVLOIOn.OR. 

A iiRixLO.or.LCVHKom  00  ro  soo  a our  op  rao  tiNiro 


c 

C COUNr  PRCQUCNCV 

c 


<00 

<30 

<00 

<00 

3<0 

c 

c 

C INPO 

c 


NPRCOI IPIXLO»l .ei>NPRCQI tRIXLO»l .01 » I 
NPRCQI IPIXLO*! .0)>NPRCQ( IPIXLS*I .01 *t 
NPRCQI IPIXL«»t .HI •NPRCQI I PI XLH * I . H I * I 
NPRCQI I PI  XL  3*1 .31 •NPRCQI IPIXL3*! .31 *1 
NPRCQI IPIXLO *1 .<1 •NPRCQI IPI XL<*I .91 *1 
NPRCQI I PI  XL  1*1 .l)*NPRCQI IPI XL  I * I . I I * I 


LOOK  UP  NCM  INrCOCR'lNrCNSt rY'CQUl V A iNrCOCR-COLOR'CQUi V 

CALL  ocricci I ICNU. 

KSVHI IPIXLI  *n  . isi  I 
CALL  oeriCCI IKCNU. 

K8YNI IP1XL8*I I ,1611 


00  ro  370 


c 

c 

C NO  OArA 

c 


ASSIGN  NCu  iNreocR’iNrcNsirY'CQuiv  a intcocr-color-cquiv 


300  CALL  OCriCCI I ICNU. 

• K8YHI ISYHNO*! I . 101  I 

CALL  ocricci IKCNU. 


c 

c 

C NO  INPO 

c 


KSYNI lOYNNO*! I . 1 61  I 
00  ro  370 


••  ASSIGN  NCM  INrcoeR-lNTCNSITY-eQUlV  A INTCOCR-COLOR-CQUI V 


360  CALL  ocricci I ICNU. 

• KSYNI I SYNNI *1  I . I 0> 1 
CALL  ocr ICC  I IKCNU. 

• KSYNI ISVHNI »l I . 1611 

c 

c 

c COUNr  iNTCNSirv  x color  cross  prcqucncy 
c 


370  NPRCROI I ICNU* I . IKCNU* I I «NPRCROI I ICNU* I . IKCNU* I < *1 

C 
C 

c IP  nch  cooco  i-k-c.  Pur  cooco  i*k-c  a cooco  I'I^c  in  suppcr 
c 

KIKCNU-KSKIKCI IKCNU*I I 
IPIKIKCNU.CQ.KIKCl  00  ro  300 


L-313 


OAN  MCKAOC  AWNOIX  L 
HAIN  AftOOKANS/AOUriNC* 


KUC*KIKCNU 

ICiaill*KltlN«l 

CALL  PUrtYTCKlIUrfPXBINSI .IKI8INI . KIXCI 

IIC«IICNU 

KllC>ltC»87 

KIBIN«KIBIN*I 

CALL  AUrivriKlBUriPXBiNSI . (KIBINI . Klirt 
00  TO  •»00 
C 
C 

e SAHC  COLOM  --  IP  SANC  INTCNSirv  A OIN.  UPOAfC  COOCO  MC  IN  OUPPCR 

e 

300  ipiiiCNu.NC. no  00  ro  soo 

iPiKi le.or. I i6>  00  ro  soo 
Kiie*Ki ie*io 

CALL  PUrorTKKiBUPIPXBINSI  .KieiNi  . KlIO 

00  ro  *»oo 
c 
c 

e BANC  COLOR  UirH  NCU  INrCNSirr  OR  NCH  BIN 
C 

380  lie«IICNU 

Ktie*IIC»S7 

KIBIN-KIBIN^I 

CALL  PUrBYTIKIBUPtPXBINSi . (KIBIN) . KIIO 
C 

c 

C LOOP  TO  PROCESS  NCXr  PIXEL 

c 

POO  CONriNUE 

c 

c 

c sroRE  PoiNrER  ro  LAsr  bin  in  preanble  a pad  buffer  wirH  b nul*s 
c 

KIBUF(PXNBIN1«<IBIN 

CALL  HOVBSr IKIBUFIPXBINSI .(KIBIN*II.I8I. 

• 0. ( 1 1 . n t .01 

c 

c 

900  return 

ENO 


u 

mo^ll 

009 


9 


9 

9 


() 


L-3IP 


ououuoououuouuuuuuuuuoooouuuooouuuo 


OAN  ^ACKAOe  AMCNOIX  L 
itAlN  l»MOORAnS/ROUriNes 


tUMOUnNC  M0PI9 


c 

c 

c 

e Misrowv 


• 9ierunc  ocreerioN  riLCtst  c^hasc  91 


E 

N 

SCHLOSSER 

LEC 

09/17/79 

REOUIRENENTS  A OESION 

E 

H 

SCHLOSSER 

LEC 

It/00/79 

STUOOEO 

E 

N 

SCHLOSSER 

LEHSCO 

00/09/90 

INPLEHENTEO 

ncthoo 


CMCCK  OlAONOSriC  COUNrCftS  AND  PRCPAftC  FOR  NEXT  PICruRC. 


NACNtNC'OepeNoeNT  cooe 


NONE. 


external  references 


NONOTE 

HOCIRN 


EXCEPTIONS 


NONE. 


OLO0AL  DECLARATIONS 


INCLUDE  KOMXQT.LIST  I COKNON  PRQORAN  EXECUTION  SWITCHES. 

include  konouw.list  a cdnnon  output  window  packets 

INCLUDE  WINDEF.LIST  1 DEFINE  STRUCTURE  OF  WINDOW  PACKETS 

INCLUDE  NULCST.LIST  • DEFINE  NULL  CHARACTER  STRING 

C VIA  TO 

EXTERNAL  PROOOO.  NULSU9 
C 
C 

C PROCEDURE 

C 

C 

CALL  trace 
C 
C 

C ON  RETURN.  CALL  PROOOO  TO  OET  COHNANOS 
C 


PR0PI9 

001 


COUNTERS 


L-SIS 


n o «> 


«0C  AMCNOIX  L 

aiiAiis/iiouriNes 


piiorit 

oot 


ALL  NVUrOIMOOOO.NULtUti 


lUONOtrtCtYY? 


iriNOfATL.CQ.Ol  00  TO  OtO 

CALL  nONOrCI  'TATAL  CRROMt  — NO  NterURC  OCNCRArCO’l 
00  TO  900 


iriNOUARN.CQ.OI  00  TO  900 

CALL  NONOrCI  *MCVI0U9  UARNIN09  ••  NO  OICTUNC  OCNCRAreO*! 
iriNOATCH.CQ.Oi  URITEIO.OtS) 

} rORNAT(i»X.  ***TflV  AOAINIM 

CALL  HOCLRHI  NULCOTI 
00  TO  990 


RliAT  HtA  OUTPUT  HI  NOON  COOROtNATCO  ANO  PRCPARC  FOR  NEXT  HI  NOON 

too  NRITEtS.OOSI  NOAOHHIHL IN.HHiNt 
169  rORHATdX.tlX.’LlNE  ’.!•») 

NRITE(6.97St  NOAOHHCHSAH.HHINi .HOAOHHtHOAH.HHAXI 
979  rORHATl IX. 'SAMPLE  *. U.9X. ‘SAMPLE  '.IMI 
HRITEI6.969I  MSAOUUIHL IN.HMAXI 
HRITE(S.90SI 
999  FORMAT (IXI 

NHNOOU«NHNOOH*I 


RETURN  TO  NEXT  STATEMENT  IN  CALL  I NO  ROUTINE 

090  RETURN 
END 


L-sie 


UUUUUOUUOOOUUUUOUUUOUUUUUUUUOUOUO  OOOOOUOOUOO 


OAN  MCKAOC  AMCNOIX  L 
NAIN  MOOMANt/nOUriNCt 


^IIOXOT 

•01 


•umouriNC  Moxor  a iNiriALiZAriON  Rourmc  roR  oorocr 


NitroRv 


C N tCNLOtSCA 
C N tCNLOSteX 

j c cm  to 

J C CAISO 


LCC  It/OO/YS 
LCC  0t/«3/79 
ICC  l•/•l/7• 
LCntCO  09/ 10/00 


omoiNAL  cooe 

ALLOH  OerAULT  C0HHANO9  rOON  NACOAN 
iNiriALize  NLiNCH  I ocLCTc  hin;: 
LinCHIII-l.  CHO  ORTOCNS  TO  PurOCT 


hctnod 


INiriAUZC  MOORAN.  ORCN  TILCS.  lOCNTirr  SCCNC . QUCUC  OCrAULT  COHMANOS. 


HACMINC'OCPCNOCNr  COOC 


UNIVAC  CXCC'O  PROORAN  PILC  NAHlNO  CONVCNriONO. 


CxrCANAL  RCrCRCNCCS 


NVIATO  A NANC  NCXT  'VIA*  A ’TO*  ROUMNCS 

POTARr  A PROORAH  START  INITIALIZATION 

SYOAOO  A AOO  DISK  tVHOOLIC  riLC  OR  CL T TO  tVSlN  RUNSTRCAH 

OPNIAN  A OPCN  INPUT  OCTCCTION  PILZS  (Al.  AA I 

CLOHOO  A PRINT  CLASSIPICATION  HCAOINO 

NOPATL  A SUONIT  PATaL  OIAONOSTIC  NCSSAOC 

exTCRNAL  PROOOO.  NULSUO 


CXCCPTIONO 


I.  NISSINO  9CPAULT  CONNANOS  OCNCRATC  A PATAL  OIAONOSTIC. 


OLOOAL  OeCLARATIONS 


INCLUOC  XOHXOT.LIST  A CONNON  PROORAN  CXCCUTION  SWITChCS.  COUNTCRS 

INCLUOC  KONKLS.LIST  A CONNON  CLASSIPICATION  INPQ 


C LOCAL  OCCLARATIONS 

C 

C 

INTCOCR  LOCPIL  A LOCATION  UITNIN  OISK  STNOOLIC  PILC  ( IP  > 0 I 

C 
C 


L-117 


o n o o 


IAN  NACKAOC  ANNCNOU  L 
IAIN  NNOONANt/NOUTINCt 

NNOCCOUNC 


lOCNrifY  NNOONAH 

CALL  MTANn  *OAM  ANTOCTlMOft  *t 

ON  NCruNN,  CALL  NAOCOO  TQ  OCT  OCrAULT/UtCN  COHHANOt 
CALL  NVUrOi  NNOOOO.NULtUNI 

ONCN  ocrecrioN  rues  and  loeNrirv  cats  scene 

CALL  OANICN 
CALL  CLSHOOl  SI 

iNiriALize  LiNir  cnanncl  ro  riAsr  oerecrioN  channcl 

NLINCH«I 

IINCHI|I«I 


oueuc  oerAULT  cohaanos  taoh  MivAre  aaooaan  rue  oa  oan  aaooaan  rue 

CALL  svsAOOtLOcru.  'aacoan*  . 'oer*AAToer ‘ ' *i 
iruocru.Le.oi  call  SYSAOOiLOcru.  *OAn‘.*ocr*rAroer*.'  *i 
irtLOcrtL.Le.oi  call  NorAru  'no  oerAULr  connanos*i 


AeruAN  TO  nexr  trAreneNT  in  callino  aouhnc 

AC TUAN 
CNO 


L-XIS 


c 


OAN  ^ACKAOC  A^KNOm  L 

NAIN  MOORAnf/AOUTIIlCt 


toemo 

oti 


•uMOuriNC  locMO  I • loCNTirv  euiMCNT  eofmANO  «Mct  roil  mirocr 


t lUNin  I OUT^r  UNIT 


NitrONV 


« 


» 


J 

c 

CNISN 

kce 

lt/88/78 

NC0UINCMNT8 

J 

e 

CNISN 

kCC 

l8/tir7f 

AkOONITMN  OCSION 

u 

c 

CNISN 

kCC 

18/88/78 

aloonithn  cool  no 

J 

c 

CNISN 

LCNSCO 

08/88/80 

CHANNCk  TVNC  18 

nCTNOO 


CNCOOC  rue  NAMC  fAOn  UNIT  NUnUCN.  CNCCK  IWNir  rOA  • ON  LCOAL 
ALTCNNATC  NNINT  fUC.  tUUO  CNANACTCN  lUfrCN  CONTAININO 
CNAHNCL  NUNICN.  NAOUNCC  UNIT  VALUCt  AND  StHOOkS.  SNACINO. 
AND  ONIOIN.  OUTNUT  iurfCN. 


( 


nachinc-ocncnocnt  cooc 


Ur Ik izet  UNI  VAC  exec  ■ CN  NNINTS  and  CN  NNNTAt 


CxrCNNAk  NCrCNCNCCI 


eilNir  • iNITlAkIZC  CNANACTCN  lurrcN 

ClACSr  • CNANACTCN  iurrCN  rON  CNANACTCN  stnino 

CtNiN  • CNANACTCN  OUrfCN  rON  INTCOCN 

CfNNk  • cnanactcr  lurrcN  ton  NCAk 

CSTVIN  • CNANACTCN  STNINO  TON  INTCOCN 

CNNNNT  • NNINT  INAOC  ON  TTV  ON  LI NC  NNINTCN 

CNNNTA  • HNITC  INAOC  TO  ALTCNNATC  NNINT  riLC 

OOUtLC  NNCCISION  COSVIN  • VANIaOLC  LCNQTh  CHAN  fTNiNO  rON  INTCOCN 


CXCCNTIONS 


I-  OUTNUT  NILL  tC  TNunCATCOT  TO  NIT  TMC  LCNOTH  ON  TNC  OUTNUT  NUrrCN. 
t.  ir  lUNIT  IS  NOT  8 ON  A LCOAL  ALTCNNATC  NNINT  riLC  c I Q .NaL TN- 1 I . 

tncn  a natal  CNNON  is  OCNCNATCO. 


OkOIAk  OCCLANATIONS 


^ INCkUOC  KOnXOT.klST  • connon  nnoonan  SUITC»«S.C0UNTCNS 

( 


k-SIO 


OMI  PACKAOC  APACNeU  i 

NAiN  raoMAnc/AOunnct 


ineLMK  Komat.Litr 
IMtllOC  KONfVII.LItr 
INCtUM  MINOCf .LIST 

INCLUOC  KOHOlW.kltr 
iNCtuK  leturi.iitr 


• CMNON  CkAttiriCAriON  turo 

• ceimeN  triiaoL  takc 

• ecriM  TMO’OltfCNtlOMAi  rtNOOW 

• OCfINC  OUtAwr  NIMIOM  AAk'ACT 

A occkAW  eNAAAcrcN  •urrcR 


LOCAL  OCCLARAriONt 


INrCOCR  NAHTIL  (ft 


• ALrcRNArc  RRiNr  riLC  nakc 


MOeCOURC 


CALL  rOACC 


iMiruLizc  rue  t ano  CHARAcrcR  iurrcR 

CALL  CtTAIN  tNANrU.lll.tCtl.  lUNIT.tt 


C CMCCK  rOA  VALID  euTAuT  UNIT/AAINT  fUC 

c 

ir  muNir.ro. 01  .OR. 

A muMir.oc.iO).ANO.MWNtr.LC.iie*NALrN-nni  oo  to  *o 

CALL  NOTAfL  < COCNiNf tUNt T . ( t M . * *.*lt  OAO  UNIT  IN 

00  ro  too 

e 

C 

e lOCNTirr  CNANNCL  NUHOCRri 

c 

NOO  CALL  coiNir  cieourti 

Call  eo«ctr  Mcouri.  'rcNAN,ocr*i 

00  NSO  NLCal.NLIHCH 

CALL  co«*ctr  1 1 court.  *.*> 

CALL  CRNIN  lieouri.  LlMCNfNLCl .11 
•*90  CONTINUC 

c 

c 

C lOfNTirv  RAOUNCe  UNIT  VALUCS  ANO  ITNiOLS  rOR  flRtt  CmaNN^L 
C 


CALL 

co<*c«r 

( tCRurt . 

*...•! 

CALL 

co»*c«r 

( I court . 

KLtrrR. < 1 1 . 1 SI 

CALL 

eo«*C9T 

1 1 court . 

*.*i 

CALL 

CO*»IN 

( I court . 

LCVLOI . 1 1 

CALL 

eoNCtr 

< leourt . 

• • I 

CALL 

coNCor 

neouri. 

KSVNILCVLOt  *1  > 

CALL 

eoNCsr 

(teoun . 

•.•1 

CALL 

CO«*IN 

iicoun. 

LCVNI 1 . t 1 

CALL 

eoNCir 

Mcoun. 

• • » 

CALL 

eoNCsr 

(teoun. 

KSVNILCVNII.  *11 

w 

tOCMO*  t 


o n o o nono  o o n o 


OAH  PACKAOe  APPCNOtX  L 
HAIM  PHOOHAHS/MOUTINES 


c 

c 


c 

c 

c 

c 


lOENrirv  RAOiANce  Lintr  values  poh  anv  otncr  channcls 


tP  INL1MCH.lt. At  00  TO  soo 
00  SSO  NlCoS.NLlNCN 

CALL  CSACST  fICP’Ti. 
CALL  C8AIN  ( ' 

CALL  COACST  (U...UPt. 
CALL  CBAIN  flCBUPt. 

SSO  continue 


•.*) 

LCVLOINLCl.n 

•••I 

LCVHltNLCt.il 


tOEMTIFY  SPACING 

600  CALL  CBACST  tICBUFI.  ’...SPA’ I 
00  SSO  NAXtS«l.a 

CALL  C8AC8T  (IC8UPI. 

SPA>FL OAT fHSAOHHCNAXtS.USPI 00)1/ 100. 

IF  I SPA.EQ.AlNTtSPAII  CALL  CBAIN  (ICOUFI.  IPtXfSPAl 

IF  tSPA.NE. AlNTtSPAI)  CALL  CBHRL  (ICBUFI.  SPA.I.A) 

SSO  continue 


1 1 


IDENTIFY  OIIIOIN 


CALL  CBACST  I ICBUFI. 
CALL  CBAIN  (ICBUFI. 
CALL  CBACST  (ICBUFI. 
CALL  CBHIN  (ICBUFI. 
CALL  CBACST  (ICBUFI. 


’ . . .ORIO.SCAN.  ’) 
NSAOHM(HLIN.HORIO) . I I 
’ . ’ ) 

NSAOUH ( USAH . HOR 1 0 ) . I ) 
• I ’ ) 


OUTPUT  CHANNEL/RAOlANCE/SPtCING/OfitOlN  INFO 

IF  (lUNIT.eO.Bt  CALL  ERPRNT  ( I .BB. ICBUFI > 

IF  (lUNIT.NE.B)  Call  ERPRTa  (NAHFIL. I .BB. ICBUFI) 


NORMAL  RETURN 

900  RETURN 
ENO 


lOCPRO 
‘ 003 


L'3BI 


o 

OAH  l»ACKAOe  APPCNOIX  I 
NAIN  PROOPAMS/POUriNCS 


OPMPftO 

001 


outoourtNe  (nmipao  • opcn  ALTcmurc  paint  rites  ron  PAroer 

c 

c 

e 

C Ml STOAT 

e 

e 

e e H scHLOsscR  tec  os/ss/ts  oaioinal  cooe 

c j c CRISP  tec  18/01/70  PROOcr  roR  kpaohi  and  nalthi 

c 
c 

c ncthoo 

c 

c 

C A HAXINUH  op  NALThI  (FRON  PROOCFI  AtrCRNATe  PRINT  FILES  ARE 
C OPENED  AND  INITIALIZED. 

C 

c 

C HACN I NE -DEPENDENT  COOE 

C 

C 

C NONE . 

C 

c 

C EXTERNAL  REFERENCES 

C - 

C 

C OPENPR  OPEN  ALTERNATE  PRINT  FILES 

C 

C 


C EXCEPTIONS 

C 

C 


c 

1 . 

ONE  PRINT  FILE  IS  ALMAYS 

opened. 

UNLESS  IN  OATA/CHECKOUT 

NODE 

Sp 

c 

», 

IF  nalth  is  greater 

than 

NALTHI 

(FRON 

PROOEFI . 

1 T 

HILL 

BE 

SET 

c 

TO  nalthi . 

V 

c 

3. 

IF  KPAOE  *13  GREATER 

than 

KPAOHI 

(FRON 

PROOEF* . 

1 T 

MILL 

BE 

SET 

c 

c 

TO  KPAOHI . 

c 

c 

GLOBAL 

declarations 

c 

c 


INCLUDE  KONXQT.LIST  • COHHON  PROGRAM  EXECUTtON  SM I TChES . COUNTERS 

INCLUDE  PROOEF.LIST  1 PARAMETERS  FOR  PRTOET 

C 
C 

C LOCAL  OCCLARATIONS*' 

C 

C 

C NONE 

C 

C 

C PROCEOURE 


V 


» 


« 


L-388 


noon  o o o o 


OAN  PACKAOe  APPCNOtX  L 
MAIN  PROORANS/ROUTINCS 


ORRMO 

OOP 


C — 

c 

c 

e 

C NO 

c 


c 

c 

C NO 

c 


CALL  TRACE 


NORE  THAN  HALTMI  ALTERNATE  PRINT  FILES  FOR  PRTOET 

NALTH*HAXOfNALTN. 1 1 
NALTH*NINOINALTH.nALTHI I 


NORE  THAN  KPAOHI  COLUHNS  PER  PAOE  FOR  PRTOET 

KPAOE*NAXO ( KPAOE . I » 

KPAOE>NlNO(KPAOE.KPAOHt I 


OPEN  FILECSI 

IFfNOATAC.NE.Ol  00  TO  900  A OATA/CHECKOUT  HOOE 

CALL  OPENPR 


IDENTIFY  CRTS  SCENE 


uritei lo.aes) 

pes  roRNATuxi  a skip  line 
CALL  CLSHOOdOt 

c 

c 

900  RETURN 
ENO 


L-3P3 


oooooooooooooooooo  oooonoooooooooooooooooonooooooo 


u 


OAN  PACKAOe  APPCNOIX  L 
MAIN  PROGRAMS /ROUT I NCS 


PRTCLASS 

001 


PROORAN  PRTCLASS 


HISTORY 


e H SCHLOSSCR 
NARY  TOMPKINS 


07/0R/73  ORIOINAL  COOt 
01/05/00  UPORAOe  OOCUMCNTATION 


MCTHOO 


this  PROORAN  PROOUCCS  NAPS  OP  CLASSIPtCO  CRTS  MSS  OATA  ON  A COMPUTCR 
LINC  PRINTER.  THE  USER  SPECtPIES  THE  SCALE.  UlNOOU  DIMENSIONS. 
LOCATION. ETC.  OF  EACH  NAP  EACH  NAP. 


MACHINE -DEPENDENT  CODE 


NONE. 


EXTERNAL  REFERENCES 


NVIATO  a NAME  ’VIA*  ’TO*  ROUTINES 

VlATO  a CALL  ’VIA*  ’TO’  ROUTINES 

VIA  TO 

EXTERNAL  PRCOOO.  PRCXQT 


EXCEPTIONS 


I.  THIS  PROGRAM  IS  UNITED  TO  THAT  PART  OF  THE  MORLO  COVERED 
BY  the  CLARKE  1 806  SPHEROID  (NORTH  AMERICA). 

8.  THE  PROORAN  CLASSIFY  MUST  8E  EXECUTED  8EF0RE  THIS  PROGRAM. 
PREFERA8LV  IN  THE  SAME  RUN. 

3.  IF  PRCXQT  DOES  NOT  CALL  NVIATO  TO  CHANOE  THE  ’VIA’  ANO/OR  ’TO’ 
routines,  then  PRTCLASS  HILL  CALL  TO  PRCXQT  IN  AN  ENDLESS  LOOP! 


0L08AL  declarations 


INCLUDE  KONXQT.LIST  a common  PROORAN  EXECUTION  SWITCHES.  COUNTERS 

INCLUDE  KONLOO.LIST  a COMMON  LOO  FILE  8UPFER.  I/O  PkT.  POINTERS 

INCLUDE  KONLUS.LIST  a COMMON  POINTERS/FLAOS/80E<FER  FQR  UNIT  S 

INCLUDE  KOMLON.LIST  a COMMON  I/O  PKTS  FOR  DEFECTION  FILES  (UNITS  ON 

INCLUDE  KOMIHW.LIST  a COMMON  INPUT  HINOOH  PACKETS 

INCLUDE  KOMOHH.LIST  a COMMON  OUTPUT  WINDOW  PACKETS 


s’) 


L-30H 


OAN  ^ACKAOe  APPCNOIX  L 
HAIN  PROORAHS/MOUriNCS 


PPrCLASS 

ooe 


tNCLUOC  KONNCR.LIST 
INCLUOC  KONKLS.LISr 
tNCLUOC  KONPir.Ltsr 
INCLUOC  KOHrOL.LISr 
INCLUOC  KONOCr.LISr 
INCLUOC  KONSYN.LtSr 
INCLUOC  KONALT.LISr 


• CONNON  CNTO  SCCNC  PARANCTCNS 
A CONNON  CLASSinCAttON  INPO 

• CONNON  AOJUSTNCNT/RCOI STRATI  ON  PARANCTCRS 

• CONNON  SLOCKS  ANO  OCPINC  PROCCOURCS 

• CONNON  OCTCCTION  riLC  HINOOU  PACKCTS  A OATCS 

• CONNON  SYNOOL  TABLC 

• CONNON  ALTCRNATC  PRINT  riLC  COUNTCRS.  POINTCRS 


C 

c 

C PROCCOURC 

C 

C 

CALL  NVlATOt  PRCOOO .PRCXQT)  • FIRST  CALL  IS  VIA  PRCOOO  TO  PRCXQT 

100  CONTINUC 

CALL  VIATO 
00  TO  100 

CNO  • (STOP  IS  PCRPORNCO  BY  APPROPRIATE  *T0*  ROUTINE! 


DAN  PACKAOe  APPENDIX  L 
MAIN  PROONANS/NOUTINCS 


PlirCLASS-HIA 

eol 


PnrCLAM  HICRAIICHV 


pnrcLAts 

t 

I 

i 

NVtATO 

VIATO 

t 

I 

t 

PRCOOO 

t 

1 


t 

1 

$ 

1 

X 

t 

t 

: 

t 

X 

t 

: 

: 

: 

X 

PRCXOT 

KNO. . . 

PRCHAP 

KHOXXX 

PRCEXI 

t 

1 

X 

: 

t 

1 

t 

t 

X 

: 

t 

t 

t 

X 

X 

: 

: 

t 

: 

: 

t 

t 

t 

t 

t 

! 

X 

PSTART 

OPNIBN 

SYSADO 

t 

OLETBN 

CLOSPR 

1 

: 

t 

: 

t 

: 

Oer-PRTCLASS 


I 

s 

t 


X 

X 

: 

X 

X 

* 

X 

X 

X 

X 

X 

OPRPPC 

CALSYM 

CALSCA 

CALUtN 

sueui N 

X 

OPCNPR 

HAPRNT 

MAPRNT 

PSTOP 

PABORT 


RE ADEN 


REAOBN 


OAN  ^ACKAOC  APKNOIX  L 
HAIN  MOOKANS/ROuriNCS 


MrCLASS/VlRrUAL 

001 


MOORAH  MrCLAtO/VIOrUAL 


NIOrORY 


e H 8CHL0SSCR  LCC  OR/OO^YH  ORIOINAL  CODE 

e H SCHLOSSER  LEG  11/00/79  OHAP.rZCNIt  NO  *N*  IN  OCHANOI 


HETNOO 


CONSTRUCr  ANAP  EXEC  COHNANO  TO  LINK  REAL  ABSOLUTE  IN  TPP$. 
CONSTRUCT  axOT  CONHANO  TO  EXECUTE  REAL  ASSOLUTE  IN  TPPS. 
HRITE  ONAP  A IXOT  C0HNAN08  TO  TEMPORARY  FILE  CO. 

•AOO  temporary  PILE  SO.  TO  RUNSTREAM. 


MACHINE -OEPENOENT  COOE 


HRITTEN  in  ASSEMBLER  FOR  THE  UNI  VAC  1100  SERIES  COMPUTERS  UNDER  THE 
EXEC-a  operating  system  using  6-bit  fieloata  characters. 

INPLEMENTINO  COOE  MUST  BE  REWRITTEN  FOR  DIFFERENT  CHARACTER  COOES. 
DIFFERENT  OPERATING  SYSTEMS.  ANO  DIFFERENT  MACHINES. 


EXTERNAL  REFERENCES 


ER  CSFS  a FUNCTION  TO  SUBMIT  EXEC-B  CONTROL  STATEMENT 

ER  IONS  a initiate  I/O  ANO  WAIT  FOR  COMPLETION 

ER  EXITS  a TERMINATE  PROORAH  EXECUTION 

OAN. PRTCL ASS-MAP  a SYMBOLIC  MAP  DIRECTIVES  TO  LINK  EDIT  REAL  ABSOLUTE 
0AM. SYS-MAPOPT  a standard  nap  OPTIONS  WHEN  LINK  EDITING 


EXCEPTIONS 


I.  RESULTS  ARE  UNDEFINED  UNLESS  THE  FILE  DAM.  IS  AASO-O  I aPREP-O. 


GLOBAL  DECLARATIONS 


(PROORAM  Type  is  pre-loaded  by  exec  into  reoister  an  as  FOLLOHS: 
I i • real  time 

I S • LOW  EXEC 

I N • demand 

( s - deadline  batch  ^ 

r 6 ■ BATCH 

laXQT  options  are  preloaoeo  by  exec  into  reoister  as  in 


L-SE7 


OAN  PACKAOe  APPCNOIX  L 
MAIN  PPOOPAnS/POUriNCS 


PPreiAtS/ VIRTUAL 
00> 


(NAtreR  BIT  NOTATION. 


LOCAL  OeCLARATIONS 


AXRt 

tIOOt  . O'BANK 

SSSH  TORN  e. 6.0. IS 

1 1 1 1 1 1 6666ee333333««Vi»i»«6BS6SS666666777777e00ee8999O99 
LABOOr  SSSH  0S0.l.*P*.0  . LABCL.  I NO.  FORTRAN.  FICLOATA 

LABinO  •«SOFF«* 

NAPSOF  SSSH  000.9.0.0  . OATA.  9 NOS.  . FICLOATA 

NAPIHO  ‘IXOTSi  NAP.F3N  OAH.PRTCLASS-NAP.PRTCLASS  . tiXQTS* 

AOOSOF  SSSH  000.9.0.0 


AOOINO 

• 

•XQTSi  AOO 

OAN. SYS 

XQTSOF 

SSSH 

000.9.0.0 

XQTINO 

• 

•XQTSi  XQT.I 

eOFSOF 

- 

0 

• 

PF 

FORH 

18.6.18 

CSFASO 

’•A80.T  80 

• 

• • 

CSFAOC 

’■AOO  80. 

• 

SAVRCO 

RCS 

1 

lOPKT 

ISOO 

•80 ’.HS  33 

.LABSOF 

PROCeOURC 


• 

6(011  . 1 

•SANK 

PRTCLASS* 

LA.U 

AO.’  • 

TNC.U 

AH.X 

8A.88 

AO.NAPIHO*8 

LA 

AO.ICSFASOI 

CR 

CSFS 

. 

SA 

AO. SAVRCO 

• 

PSRINT 

(PF  8.1 .SAVRCOI  . 

OCTOPT 

PUTOPT 

OS 

A8.XQTIN0»8 

SA 

AX.XQTINO*x 

WRITC 

LA 

AO.dOPKTl 

CR 

IONS 

AOO 

LA 

AO.(CSFAOO> 

CR 

CSFS 

CR 

exiTs 

CNO 

PRTCLASS 

HAPOPT  . tlXQTS* 

PRTCLASS  . tOXQTS* 
CNO-OF-FILC  STOP  NORO 


•O’  0 


AO  «•  • 

SKIP  NCXT  INST  IF  A«<>*»  (NOT  OCNANOI 
OCNANOi  BLANK  OUT  N OPTION 
AOORCSS  OF  lASO  INAOC 
00  IT 
STORC  A 

PRINT  AASO  status 

LOAD  OPT  LTRS  into  A6.A3.AX 

STORC  OPTION  LCTrCRS  INTO  iXQT  IMAOC 
13  WORDS  ->  MAX  18  OPT  LCTTCRS) 

AOORCSS  OF  I/O  PACKCT 
HRITC  SOF  INAOCS  TO  80. 

AOORCSS  OF  lAOO  INAOC 
00  IT 


L-38B 


. r 


OAN  MCKAOC  APKNOIX  L 
HAIN  PMOORAHS/MOUnNCS 


PKrClASt'NAP 

001 


PlirCLAOt  OVCOLAY  OTRUCTUIIC 


Misroov 


e N SCNL088C0 
C N SCNL088CR 
e M 8CHL0S8CR 
NARY  T0HPKIN8 
NARY  T0NPKIN8 


LCC  OS/07/78 
ICC  07/t*/70 
LCC  01/31/70 
LCN8C0  01/10/00 
LCN8CJ  08/10/00 


ORIOINAL  COOe 

CNANOe  OVCRLAYS  TO  RCOUCC  TNRASHINO 
NACRO  CONNAN08  A TInC  CONNANO 
PCCK.POKC. tr.pi  A opriNize  ovcrlays 
CHANNCL  CONNANO 


LIO  OAN. 


SCO  8-NAIN 
IN  OAN.PRTCLASS/ 
IN  OAN.NVIAro 
IN  0AN.NUL8U8 
IN  OAN.SYS'OLOCK 


. NAIN  PROORAN 
. NANC/CALL  *VIA*  AND  *T0* 
. 30  NOYMINO 

. OLOCK  data  suoroutinc 


SUOROUr INC8 


. NONirOR  rOR  PHASE  0 COHNANOS  

IN  OAN.PRCOOO  . CALL  USER-SPEC  I F t EO  PHASE  0 ROUTINE 

IN  OAN.NTAeS/OAH  . OAN  UNIT  * TABLE  GOES  IN  SANE  SEO  H/  FORTRAN  I/O 


. UTILITIES  FOR  PHASE  0 COHKANOS - 

SEO  S-REAOS* . (S-NAIN) 

IN  OAN.REAOS  ‘REAO*  INTO  UNIT  S BUFFER 

IN  OAN.OETS  ‘OET*  FREE-FORNAT  FIELO  FRON  UNIT  S SUFFER 

IN  OAN. WARNS  . PROCESS  HARNINO  DIAONOSTIC  FOR  UNIT  S FICLO 

SEO  S-OPNCLPR* . (S-NAINI 
IN  OAN.OPRPRC  . OPEN  ALT  PRT  FILE 
IN  OAN.CLOSPR  . CLOSE  ALT  PRT  FILE 

SEO  S-OUHP* . IS-NAINI 
IN  OAH.ONPTIC  . OUHP  TIC  TABLE 
IN  OAN.ONPHIN  . OUNP  MINOOM  PACKETS 


. phase  0 COHNANOS  (FORTRAN  I/O  ALLOUEO>  

SEO  start-stop*. ( S-REAOS.S-OPNCLPR.S-OUNP) 

IN  OAN.PRCXQT  . PRTCLASS  INITIALIZATION  ROUTINE 
IN  OAN.PRCEXI  . PRTCLASS  TERHINATION  ROUTINE 


SCO  specify* .start-stop 


IN  OAN.OCTCHA 
IN  OAN.KNOCLE 
IN  OAN.KNOCOP 
IN  OAN.KNOCOU 


oet/chcck  octcction  channel  nunberis* 
CLEAR  UARNINOS/CRRORS 
oet/chcck  NUNBCR  of  output  copies 
oct/check  count  per  pixel 


L-3ES 


r 


OAN  l>*CKAOC  A^fCNOU  L 
MAIN  MOORAHS/ROUriNCt 


^WrCLAM'HAP 

OOC 


IN  OAN.KNOOCN 
IN  OAN.KNOCXN 
IN  OAN.KNOri 
IN  OAN.KNONCA 
IN  OAN.KNOir 
IN  OAN.KNOnCN 
IN  OAN.KNONCN 
IN  OAN.KNONCX 
IN  OAN.KNOOrr 
IN  OAN.KNOON 
IN  OAN.KNOON I 
IN  OAN.KNOPAO 
IN  OAN.KNOPCC 
IN  OAN.KNOPOK 
IN  OAN.KNOPNI 
IN  OAN.KNORAO 
IN  OAN.KNONCN 
IN  0AN.KN08CA 
IN  OAN.KNOSYH 
IN  OAN.KNOriC 
IN  OAN.KNOriN 
IN  OAN.KNOMIN 
IN  OAN.KNOXXX 
IN  OAN.KNOZON 
IN  OAN.KNOOAO 
IN  OAN.KHOOAS 
IN  OAN.KNOOBN 
IN  OAN.KNOOrN 
IN  OAN.KNOOLO 


. OCT/CNCCK  OCNSirv  UNirO 
. CXPLAIN  PNOONAN/eONNANO 
. CNO  IP... PI  OCOCK 
. OCT/CNCCK  PAOC  NCAOINOtfl 
. OCOIN  IP... PI  BLOCK 

. OCT/CNCCK  TNANBVCRSC  NCRCATON  CCNTRAL  NCRIOIAN 
. POINT  NCHB 

. CONOITIONALLV  PCHPONN  NCXT  CONNANO 
. TUNN  OPP  NOOC  BNITCHtCS) 

. TUNN  ON  NOOC  tHITCNtCS* 

. OCT/CNCCK  HINOOH  ONIOIN 
. SKIP  TO  TOP  OP  NCXT  PAOC 
. PCCK 
. POKC 

. OCT/CNCCK  PNINTCN  SPCCtPICAriONS 
. OCT/CNCCK  NAOIANCC  LINITS 

. NCNUNBCN  I OCT/CNCCK  NCU  UINOOU  SCQUCNCC  NUNBCNI 
. OCT/CNCCK  HINOOH  SCALC 
. OCT/CNCCK  SYHBOLS 
. OCT/CNCCK  TICK  UNI TS/ I NTCNVALS 
. POINT  CLOCK  TINC  A CNANOC  TINC 
. OCT/CNCCK  HINOOH  CNVCLOPC/ VCRTICCS 
. NACRO  CONNANOS 
. OCT/CNCCK  UTN  PROJCCTION  ZONC 
. OYNAHIC  AAOO 
. OYNAHIC  AASO 
. OYNAHIC  ABNKPT 
. OYNAHIC  APRCC 
. OYNAHIC  ILOO 


SCO  HAPOUT*. start -STOP 

IN  OAN.PRCNAP  . NAP  RAOl ANCC/ OCNSI T Y /CL ASS  IPNASC  01 


L-S30 


MTCL  Att -HAf  / V I R TUAL 
OQI 


OAN  PACKAOe  ARPCNOIX  I. 
RAIN  RROORAnt/ROUriNCS 

IN  OAN.MirCLASt/VIRrUAL 


L-SSI 


I 


u 

MN  PACKAOC  AMCNOIX  L 
MAIN  MIOOIIArlt/IIOUriNCt 


ARCOtO 

OtI 


tUMMUTINff  MieOOOt  • CALL  RNAtC  0 tUtROUTIIICt  fOR  RRTCLAtt 
I RARtURt  a NARC  Of  tMRROUriRC  TO  CALL  (OR  NULSURI 


Ml  STORY 


C N SCNLOSSCR 
C N SCNLOSSCR 
C K SCNLOSSCR 
J C CRISR 
NARY  rOHRKtNS 


LCC  0S/O7/7Y 
LCC  00/C7/7S 
LCC  0IA3I/7S 
LCNSCO  OI/OH/00 
LCNSCO  OSAIO/SO 


ORIOINAL  COOC 

OCLCTC  RCTN  k*s  a nuncric  ortions 
NACRO  CONHANOS  A COUNT/RAOI ANCC/TIHC 
RCCK.  ROKC.  ir.  ri  CONHANOS 
CNANNCL  COHHANO 


♦ 


I 


hctnoo 


RCTRICYC  NCXr  COHHANO.  VALlOA'f  IT.  AHO  CALL  ITS  SUOROUTIHC. 


NACNIHC-OCRCNOCNT  COOC 


NONC. 


C 

C CxrCRNAL  RCrCRCNCCS 


RCA08  a RCAO  RUNCHCO  CARO  OR  TCRHINAL  INRUT 

OCrSAL  a OCT  ALRAAOCTIC  COHHANO 

INTCOCR  ICC  A INTCOCR'CHAR'CQUI V YOH  CHARACTCR 

HARMS  a RRINT/LOO  UARNINO  HCSSAOC 

RRC...  a OCOICATCO  fURROUriNC  rOR  COHHANO  ...  I see  SCLOHI 

KNO...  a COHHON  SUOROUriNC  rOR  COHHANO  ...  (tee  SCLOHt 


CXCCRMONS 


I.  A SLANK  COHHANO  IS  lONORCO. 

t.  AN  INVALIO  COHHANO  OCNCRATCS  A OIAONOSTIC. 

s.  AN  CNO>or>riLC  on  unit  s is  rRCAreo  tmc  sahc  as  thc  cxit  cohnano- 


OLOOAL  OCCLARATI 


INCLUOC  NULCSr.LISr  A OCriNC  NM.L  CNARACrCR  STRINO 


LOCAL  OCCLARATIONS 


L-SSO 


. % 


o r»  o o oonn 


OAM  MCKAOC  AM>CM0IK  L 
NAIN  ^ROONANf/IIOUTIIICt 


C 

INTCOCn  KONO 
tNrcocR  LstrAf 
INTCOCN  KAtC 

c 

e 

e NNOCfRU^it 
C 

c 
c 

e CALL  NNCVIOUSLY  NANCO  tUNNOUTINC 

e 

CALL  TNACC 

CALL  NANtUi  0 CALL  TO  NULSUi  OOCS  NOTnINO 
C 

e 

e NCAO  CONNANO  rOON  UNIT  0 I CANO  NCADCN  ON  TCNNINAL* 

C 

KONO**  *NIL*  0 IHNOSSIOLC  iNNUT  INOT  LCFT  JUtTIflCOi 
CALL  NCAOSILOOTaT.  * *t  • TILL  OUfrCN.  OLANK  CUC  NCtSAOC 

iriLSfTAr.NC. * *»  KONO**cors* 

iriKONO.NC. ‘C0rs*t  call  OCTSALIKONO. I S< . NULCSTI  a OCT  s ALANA  CHANt 

c 

c 

C CONVCNT  riRST  CMANACTCN  Of  CONNANO  TO  INTCOCR'CHANACTeR.eQUl VALCNT 
C 

KASC*ICCIKOHOt>ICC( *A‘l»l  • A TO  T • I TO  00 


NNCOOO 

OOC 


0 riNtT  S CNANt  or  UOCN  CONNAW  lOLANK  AfTCN  OONC 
0 NCAOO  tTATin  l*COf*  NCANt  CNO-OT-riLCI 
0 Nooirico  1-C‘C  or  riNOT  chan  or  connano 


CAtc  statcncnt  on  Nootrieo  t>c-e  or  connano’s  mnst  cnanactcn 

irifKAOC.LT.ll.ON.IKAtC.OT.OOil  KAtC*07  A NOT  ALANA 
00  TOI 

0 fOI  .•»00.*»03.<*0'».«09.<*00.<*07.<»00.'»09.<»l0. 

1 <*tl  .•ilO.'ill.'ilV.HIO.OtS.viT.tilO.'ilO.'iOO. 

0 <*0t  .**00.<i01.«*0'*.*»09.**06.<*07l 

A .KASC 


OCTCNNINC  connano.  ACRrOKN  CONNANO.  CMANOC  KONO  TO  OLANK 


•*01  CONTINUC  ••••  A 
•*00  CONTINUC  a***  A 
00  TO  000 
C 

•*0S  CONTINUC  a**«  C 
iriKOND.CO. 'CHA* I 
iriKONO.CQ. ’CLC* • 
irCKONO.CQ. ‘COA* I 
iriKONO.CQ. ‘COU* I 
00  TO  000 

c 

•*0*i  CONTINUC  A***  0 
iriKONO.co. *ocn* I 
00  TO  000 


CALL  oci:h*.kono> 
CALL  KNOCL4'KONOI 
CALL  KN0C0A«K0N0* 
CALL  KNOCOUfKONOl 


CALL  KHOOCNIKONOI 


a channcl  )OCTccTioNt 
a CLCAR 
a coAirt 
a COUNT 


a ocNtiTv 


. ( 


L*SSI 


DAN  PACKAOC  AAACNOIK  L AMCOOO 

•Mm  raooRAntmowrmct  ooi 


*0t  CONTINM  C 

irmoMO.CQ.*cor«*i  call  rrccxihcmoi 

irncO»l9.ffO.*CKI*l  CALL  Miecxtntoiioi 
irtKOMO.CO.  *CXR*I  CALL  RHOCRRtKOIIOt 
OQ  TO  ROe 

AQt  eoNriNgc  ••••  f 

iriROMO.CQ.  *ri  *•  CALL  Kfiori  iRonoi 
00  ro  000 

A07  eONTlNUC  i«*«  0 

00  ro  ooo 

<»00  eONTlNUC  ••••  H 

iriNONO.CO. ‘MCA* t CAIL  KNOMCAIKOnOI 

00  ro  000 

AOO  eoNriNut  o*«*  i 

irCKONO.CQ. * ir  *1  CALL  KNOir  IKOIMI 

00  ro  000 

Aio  eoNrmuc  %•••  j 
All  eoNriNwc  ••••  K 
Alt  coortNuc  ••••  L 
00  ro  000 

Ais  eoNriNuc  ••••  n 

irtKONO.CQ. ‘HAA’ I CALL  AACNAAIK0H0> 
iriKOno.CO. ‘MCR* I CALI  KnoHCAiKOno* 

00  ro  000 

AiA  eoNriMuc  t***  N 

If (KONO.CQ. ‘NCH* I CALL  KNONCUIKOHO' 
iriKOHO.CO. *MCX* I CALL  KHONCXIKONOI 

00  ro  ooo 

Ats  coNriNuc  •*••  0 

If IKONO-CO. ‘Off  * I CALL  KNOOff(KONO> 

If mONO.ca. *0N  *<  call  knoon  (kono< 

If IKOnO-CO- ‘OAI ‘ I call  KMOOAl'KOnOi 
00  TO  ooo 

A.IO  CONTINUC  A 

If (KOND.CQ. ‘AAO’ > CALL  KN0AA0IK0N0> 

If IKONO.CO. ‘ACC* I CALL  XMOACCIXOHOI 
If IKONO.CO. ‘AOK‘ i CALL  KNOAOKIKOMO' 

If IKONO.CO. ‘AAI ’ I CALL  KNOAAilKOHOt 
00  TO  OOO 

AI7  coNriNuc  a*««  o 
00  ro  ooo 

Aii  cooriNuc  A 

IfIKONO.CO. ‘AA0‘ • CALL  KNOAaOIKONO> 

If IKONO.CO. ‘ACN* I CALL  KNOACNIKONO* 

00  ro  ooo 


0 CNO*or-fuc  CAuort  cxir 
0 cxir 

0 CXALAIN 


0 fl  iCNOIfi 


0 MCAOINO 


0 If 


0 NAA 

0 NCAIOIAM 


0 NCUt 
0 Ncxr 


• Off 

• ON 

• OAIOIN 


• aaoc 

• ACCK 

• AOKC 

0 aaint 


0 AAOIANCC 
0 ACNUHOCA 


» 


a 


( ) 

V*  - 


c 


OAH  PACKAGE  APPEND tX  L 
MAIN  PNODRANS/ROUriNES 


«19  CONTINUE  •«••  8 

IPtKOHO.EQ. *SCA*I  CALL  KNOSCACKOHOi 
IPCKONO.EQ. *SYH* t CALL  KNOSYNCKONO* 

DO  TO  aoo 

NSO  continue  «•••  T 

tPIKOHO.EQ. ‘TIC* » CALL  KNOTICIKONOl 
iriKOHO.EQ. *TIN* I CALL  KHOTIHIKONOi 
00  TO  800 


0 SCALE 
0 SYN0OLS 


a TICKS 

a tine 


•»8i  continue  a««*  u 
•»es  continue  a««*  v 
00  TO  000 

<»83  continue  a««<  u 

irtKOHO.EQ. ‘MIN* > CALL  KNOUINIKONOI 
00  TO  800 

•»pi»  continue  a«<«  X 
«8S  continue  a«*«  v 
. 00  TO  800 

<»8S  continue  a***  z 

IPCKONO.EQ. ’ZON* I CALL  KHOZONCKOMOl 
00  TO  000 


a Ml  NOON 


a ZONE 


•»87  continue  a««*  NOT  ALPHAOETIC 

IPCKONO.EQ. *aAO* I CALL  KNOOAOCKONOi  a aAOO 

IPCKONO.EQ. 'SAO* ) CALL  KNOOAOCKONOI  a SAOO 

IPCKONO.EQ. *SAS* I CALL  KNOOASCKONOI  a SASO 

IPCKONO.EQ. *SOR‘ I CALL  KNOOORCKONOI  a S6RKPT 

IPCKONO.EQ. *SPR* I CALL  KNOOPRCKONOI  a SPREE 

IPCKONO.EQ. *SLO* I CALL  KHOOLOCKOHOI  a SLOO 


IP  CONNANO  MAS  NOT  POUNO.  TRY  NACRO'CONNANO 

800  ipckono.ne.’  *i  kono«'prc-*  a tst  3 chars  op  proo  name  plus 

IPCKONO.NE.*  *1  CALL  KNOXXXCKONOI  i MACRO  COMMAND  HANDLER 

CONNANO  IS  INVALID  IP  STILL  NOT  POUNO 

IPCKONO.NE.'  'I  CALL  HARNSC  'INVALID  CONNANO  •-') 

PORCE  ALL  PORTRAN  I/O  ROUTINES  INTO  SANE  SEO  AS  PRCOOO  (NEVER  PERPORNEO) 

IPCKONO.EQ. 'JUNK' I REAOC 899.8991  KOMO 
899  PORNATCtXI 

RETURN  TO  NAIN  POR  CALL  VlA/TQ  NANEO  SUBROUTINE  IN  ANY  OVERLAY 


RETURN 


L-339 


ouuo  oooo  ouo 


c te  H scHLossem 

c 

e 

iNCLuoe  KOHxor.Lisr 

iNCLuoe  Nuucsr.Lisr  a oeriNC  null  cHARAcrcR  strino 
CALL  TRACE 
C 

HRITEtS.IESi 

les  roRnArci»x. *«*PROORAn  ternination' i 

lrinOATAC.EQ.OI  CALL  CLOSPR 
irtNorATL.NE.oi  Call  paoortc  nulcsti. 

MRITEtS. 165) 

165  FORHATC*  00  YOU  WANT  DETECTION  FILES  SAVED?*) 

CALL  REA05CL5STAT.  * *i 
irSAVE>*N* 

CALL  OETSKHC IPSAVE. ( I > . NULCST) 


delete  detection  files 

IFMFSAVE.NE.  * Y’ ) CALL  0LET8N 


TERNINATE  PROORAN 

900  CALL  PSTOPC  NULCST) 


PSTOP  DOES  NOT  RETURN 


ououowuwouuuuuouuuuouuouuoouuuuoouuuuu  uoouuoouuuooo 


oot 


tUMOUriNC  PlieNAPt  • INITUre  MIINTIMO  or  CLAStlV^ICAnON  HAOISI 
u KONOi  • It  rmsT  3 CNAOt  or  connano  Ot  spaccs 


OAN  OACKAOC  ArrCNOIX  L 
MAIN  rnoonAHS/ROUTiNrs 


Ni.srooY 


E 

H 

SCNLOSSrR 

LEC 

Q7/9B/73 

E 

N 

8CNL0SSER 

LEC 

OOFBO/7B 

E 

H 

SCNL08SER 

LEC 

03/10/70 

E 

H 

SCHLOSSER 

LENSCO 

OS/te/BO 

ORieiNAI.  CODE 

OCLETE  RETN  K A AOO  OPRPRC 

CHO  SUOMI N TROn  iNtERNAL  TO  EXTERNAL 

CHECK  NUMBER  Or  CHANNELS  REQUESTED 


HETHOO 


OET/CHECK/CALISRATE  SPECS.  OPEN  PRINT  PILEfSl  ir  NOT  ALREADY  OPEN.  THEN 
GENERATE  Ml  NOON  OR  SUBHINOOH  HAPS. 


MACHINE -dependent  CODE 


NONE. 


EXTERNAL  REFERENCES 


0ET5IN 

MARNS 

HOUARN 

CALSTN 

CALSCA 

CALHIN 

OPRPRC 

SUBUIN 

NAPRNT 

NOCLRH 

external 


• OET  INTEOER  data  riELO  FROM  UNIT  S 

• OENERATE  UARNINO  FOR  I NVAL I O/M I SS I NO  FIELD  FROM  UNIT  5 
a PRINT/COUNT/LOO  'HARNINO*  OIAONOSTIC  MESSAGE 

a CALIBRATE  SYMBOL  TABLE  FOR  OVERPRINT INO 

a Calibrate  transformation  coefficients  for  scale 

a CALIBRATE  HINOOH  ENVELOPES 
a OPEN  alternate  print  FILE(S)  for  prtclass 

a OENERATE  SUBHINOOM  MAPS 
a OENERATE  Ml  NOON  MAPS 
a CLEAR  COUNT  OF  'UARNINO*  DIAGNOSTICS 
MAPRNT 


EXCEPTIONS 


I.  ‘NAP*  MAY  NOT  BE  A DEFAULT  COMMAND. 

B.  ANY  UARNINO  OR  FATAL  ERROR  PREVENTS  GENERATION  OF  THE  MAP. 

GLOBAL  DECLARATIONS 

INCLUDE  KOMXQT.LIST  a COMMON  PROGRAM  EXECUTION  SNITCHES.  COUNTERS 

INCLUDE  KOMKLS.LIST  a COMMON  CLASSIFICATION  INFO 


L-S3B 


ouuou  ooouu  uoou  oouo 


0*n  PACKAOe  APPCNOtX  L 
HA IN  PROOPAHS/ROUriNeS 


PRCHAP 

ooe 


IMCLUOC  UINOCP.LISr 
INCLUOe  KOHIUM.LtSr 
INCLUOe  KOHOUU.LISr 
iNCLuoe  NULCsr.iisr 


• OCPINC  STRUCrUNC  OP  UINOOM  PACKETS 

• COHHON  INPUT  HI NOON  PACKETS 

• COHNON  OUTPUT  UINOOU  PACKETS 
S OEPINE  NULL  CHARACTER  STRINO 


LOCAL  DECLARATIONS 


INTEOER  NSL3H  • NUMOER  OP  SUB-UINOONS  REQUESTED 

INTEGER  INTEHP  • TEHPORARY 


PROCEDURE 


CALL  TRACE 


OET/CHECK  NUHOER  OP  SUB-UINOOUS 
NSUBH«0 

CALL  OETSINCNSUBU.  I.SOO.'BAO  number  OP  SUB-HINOOUS  >•*> 
tPIHCPIRH.NE.O)  MRtTECe.tlSt  NSUBU 
IIS  PORMATC  hap.  ’.13.*  SUB-UINOOHS* ) 


CALIBRATE/CHECK  SPECIPICAT IONS 

IP(NHNOOH.EQ.C)  CALL  UARNSi  'INVALID  OEPAULT  CONHANO  --*1 
CALL  GCTSINf INTEHP.  « t . - 1 . ’ EXTRA  MAP  SPEC  I P I CAT  I ON  --*> 
IPCNLIHCH.OT.il  CALL  HONOTEC 

« 'MORE  than  I channel  requested  ••  ONLY  PIRST  CHANNEL  PROCESSED*) 

CALL  CALSYH 

CALL  CALSCAf  PLOAT t L I NCH) . PLOAT ( Kl NCH) I 
CALL  CALUINC  3. I 
IPCHCHECK.NE.OI  00  TO  900 
C 

c 

C CHECK  IP  ANY  data  LIES  MITHIN  OUTPUT  MINOOU 
C 

IPI (HSAOHU(HLtN.HMIN)  . GE . MSA t MU( HL t N . UMAX  I ) .OR. 

A CHSAOUWIHL IN.UMAXI  . LE . MSA  1 WU ( ML  I N . UH I N I I .OR. 

A IMSAOHHCMSAM.UMIN) . GE . MSA  I UU C USAM . UMAX  I I . OR . 

A (MSAOHH(HSAH.HHAX) .LE.MSAIUH(HSAM.UMIN) ) ) CALL  MDUARNC 
• *N0  NSS  data  UITHIN  UINOOU*) 

C 

C 

C OPEN  PRINT  PILE(S)  ip  NOT  OPEN.  CLEAR  UINOOU  NUMBER  A RESET  PAGE  NUMBER 
C 

IPINOTOTL .NE.OI  GO  TO  900 

tPCNUNOOU.LT.O)  CALL  OPRPRC  A OPEN  ALT  PRT  PILCCS)  BEPORE  1ST  UINOOU 

NHNOOU* I ABS I NUNOOU ) 

NPA0E*0 

C 

C 
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RRCRAR 

003 


e oeiffRAre  mi  noon  mar 
c 

iriNSU8M.NC.0t  00  TO  tOO 
CALL  HAPRNT 
00  TO  900 
C 
C 

C OCNCRATC  OeoORAPHIC  SUOMI  NOON  NAPS 
C 

1*00  IP(  f KSYOHMtHriCt  .NC.  *0C0‘>  . aNO. 

A (KSYOHMIHTICI .NC. *NIN* n 00  TO  000  • NOT  OCOORAPHIC 

CALL  SUBHINI  OCOOUM.NSUOH. NAPRNY I 
00  TO  900 
C 
C 

C OCNCRAre  UTN  subninooh  naps 
C 

BOO  in (KSYOHHIuriCI .NC. *KN  *I.ANO. 

A (KSYOHHIMTICI .NC. ’NCr * n 00  TO  BOO  I NOT  UTN 

CALL  SUBHINI  urNONU.NSUBU.NAPRNr I 

00  ro  900 


INVALID  TICK  INTERVAL  POR  OENCRATINO  SUBNINOOU  NAPS 

800  CALL  NOHARNI  ‘SUBUINOOHS  NOT  ALLOMEO  FOR  CURRENT  PRIHARY  TICKS’*  ) 


ANY  OIAONOSTICS??? 

900  irCNOPATL.EQ.O*  00  TO  9B0 

CALL  NONOTEI  ’FATAL  ERRORS  ••  NO  NAP  OENERATEO’ * 

00  TO  990 

980  iriNONARN.EQ.O*  00  TO  990 

CALL  NONOTEC  ’PREVIOUS  HARNINOS  --  NO  NAP  OENERATEO** 
irCHBATCH.EQ.O*  UR|TE(6.98S* 

989  FORMAT  I <»X. ’««TRY  AOAiNi** 

CALL  NOCLRNI  NULCSTI 

990  MRITE(6.99S* 

§95  FORMAT! '0  * I 

KOMO-’ 

RETURN 

END 
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TOCXOr 

001 


tUBROUriNC  PRCXOr  A tNiriALIZATION  ROUrtNC  FOR  PRTCLASS 


history 


e H SCNLOSSCR 
e H SCNLOSSCR 
e H SCNLOSSCR 


LCC  0B/I6/7H 
LCC  01/31/79 
LCNSCO  OS/I6/SO 


ORIGINAL  COOC 

ALLOH  OCFAULT  COHHANOS  FRON  NACOAH 
LINCNC I t*t 


NCTNOO 


INITIAL IZe  PROORAN.  OPCN  FILCS.  lOCNTIFY  SCCNC.  QUCUC  OCFAULT  COHNANOS. 


HACNINC-OCPCNOCNT  COOC 


UNIVAC  CXCC-S  PROORAN  FILC  NANINO  CONVCNTIONS. 


CXTCRNAL  RCFCRCNCeS 


NVIATO 
PSTART 
OPNICN 
CL SHOO 
SYSAOO 
NOFATL 


a NAHC  NCXT  *VIA*  t ’TO’  SUBROUTINCS 
a PROORAN  START  INITIALIZATION 

a OPCN  INPUT  OCTCCTION  FILCS  IZI.  ZZ I 

a PRINT  CLASSIFICATION  HCAOINO 

a AOO  DISK  SVNBOLIC  FILC  OR  CLT  TO  SYSIN  RUNSTRCAN 
a SUSNIT  FATAL  OIAONOSTIC  HCSSAOC 


CXCCPTIONS 


I.  NISSINO  OCFAULT  CONHANOS  OCNCRATC  A FATAL  OIAONOSTIC. 


GLOBAL  OCCLARATIONS 


INCLUOC  KONXOT.LIST  I CONHON  PROORAN  CXCCUTION  SUITChCS.  COUNTERS 

iNCLuoe  konkls.list  a connon  classification  info 

EXTERNAL  PRCOOO.NULSUB 

c 

c 

C LOCAL  OCCLARATIONS 

C 

C 

INTCOCR  LOCFIL  a LOCATION  WITHIN  OISK  SYNBOLIC  FILE  f IF  > 0 ) 

C 

C 

C PROCCOURC 


L-3HI 


0AM  MACKAOC  APPCNOIX  L 
NAIM  PROORAMS/MOuriNCS 


e 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


lOCNTtPY  PROORaH 

CALL  PSTARTt  ‘DAN  PRTCLASSt ROORI * ) 

ON  RCruRN.  CALL  PRCOOO  TO  OCT  OrPAULT/USCR  COHHANOS 
CALL  NVIATOI  PRCOOO . NULSURi 

OPCN  oerecrtoN  pilccsi  and  locNrirv  crts  scene 

CALL  0PNI8N 
CALL  CL SHOO  I 6> 

initialize  LINIT  CHANNEL  TO  FIRST  OETECTION  CHANNEL 

NLINCH*! 

LIHCHf 1 1*1 


C 

c 

C QUEUE  default  COHHANOS  FROM  PRIVATE  PROORAN  FILE  OR  OAN  PROCRAM  FILE 
C 


CALL  SYSAOOfLOCFIL.  ‘HACOAM ’ . ’ OEF-PRTCL ASS ’ . ’ '» 
IFILOCFIL.LE.OI  CALL  SYSAOOfLOCFIL . ’OAM* . ‘OEF-PRYCLASS* . * •» 
IFILOCFIL.LE.O)  CALL  HOFATLt  *N0  DEFAULT  CONNANOS*! 

C 

c 


C RETURN  TO  NEXT  STATEMENT  IN  CALLINO  ROUTINE 
C 


RETURN 

ENO 


o 

MCXQ? 

OOff 


4 


i ) 

•V 


L>3*»8 
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tUIROUrtNC  HARRNr  • NAR  oerCCriON  riLC  data  rOR  RRTCLAtt 


HISTORY 

e N 

SCHLOSSCR 

LCC 

07/BB/7S 

e H 

SCHLOSSCR 

Lee 

03/I8/7B 

0 A 

eecK 

Lee 

IB/SO/78 

J C 

CRISP 

LeHSCO 

OS/IB/BO 

J C 

CRISP 

LCHSCO 

08/18/80 

NCTHOO 


ORIOtNAL  cooe 

*OCN*/*RAO*/*CI.A’  OCTCCnON  riLCS 
Revise  roR  pxsoer  roRNAr  eurress 
RCAO  CNANNei  LlNCNI.  iNSTeAO  OP  I 
AOO  •»  UOROS  TO  PRINT  BUfFCR 


OeNtRA'e  TICK  TaBLC  in  HenORV  and  tabular  data  on  hap  unit  0. 

BReAK  THe  PRINT  MINOOU  INTO  SCCTIQNISI  NALTH  UNITISI  BY 
(KPAoe>6>  COLUMNS  Hioe.  PROcess  A secTioN  or  uinooh  at  a tins. 

HITHIN  eACH  SeCTION.  ReAD/MASK/SCReCN/ReSAMPLe  OeTPCTION  SCAN  LINCtSI 
TO  PRINT  LINCS  ANO  SYMBOL  I Ze/ T I CK/OUTPUT  PRINT  LlNCS. 


MACHiNe-oepeNoeNT  cooe 


Assunes  6 chars  pcr  iNTeoeR  bin. 

AROUneNTS  IN  CALLS  TO  ROUTINCS  UTILIZING  exeC'S  CR  ROUTiNeS  MAY 
Be  MACH  INC  oepeNoeNT. 


exTCRNAL  RCPeReNCCS 


AVP 

PVA 

Nl  TNOO 
PRSYML 
OCNTIC 
RCAOBN 
MSKPI X 
RCSPRC 
PROvri 
MOPATL 
MOUARN 
CRPRTA 
DOUBie 

CXTCRNAL 


excePTiONs 


• AOJUSTCO  PROM  PPO  COORO 

• PPO  COORO  PROM  AOJUSTCO 

• print  NAP  UNIT  HCAOINC 

• PRINT  SYMBOL  LCGCNO 
A OCNCRATC  TICK  TABLC 

a RCAO  OCTCCTION  PILC<$l 
a MASK  PixCLS  cxrcRtoR  ro  ninoow 
a RCSAMPLC  OCTCCTION  PIXCLS 
a PRINT/OVCRPRINT  PILC(S) 

a print/count/loo  'patal  crror*  mcssaocs 
a print/count/loo  'marnino*  mcssaocs 

a PRINT  NCSSAOC  ON  ALTCPNATC  print  PIlC 
PRCCISION  CBSVCS  » VARIABLC  LCNQTH  CST  POR  PIXCO  LCNCTH  CST 
VIA  TO 

RCSPRC.  OCTInT.OCTBYT.OCTICC.OCTNUL 


I.  IP  TNC  NUMBCR  OP  COLUMNS  TO  BC  PRINTCO  IS  ORCaTCR  Than 
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NAPWNr 

OOf 


e 

e 

e 

c 

e 

e 

e 

e 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

e 

c 


TNC  Numicii  or  coluhno  pcr  paoc  riHCs  haitni  tncn 

OCNCflAre  A MANNINO. 

t.  ir  THC  COUNTS  Ptn  riXCL  is  < zcno  or  > so  tncn 
OCNCRATC  A MARNINO. 


S.  ir  THE  ORIOIN  TYRC  IS  NOT  *SCA*  OR  *DCO*  OR 
’KN*  OR  *NCr*  TNCN  OCNERATC  A TATaL  ERROR. 


‘HIN’  OR 


•».  ir  THE  OIN  TYRE  OR  TNE  OETECTION  SUEPER  IS  NOT 
OR  *CMR*  then  OENERATE  A PATAL  ERROR. 


INT*  OR  ‘OYT* 


5. 

6. 


ANY  HARNINO  OR  PATAL  ERROR  PREVENTS  OENERATION  OP  TNE  HAP. 
the  POLLOHINO  values  op  ISTAT  PRODUCE  THE  POLLOHINO  RESULTS 


CONDITION 


•EOP* 

‘BAOR* 

’lAOP* 

•OPL* 


NEAT  LINE 
CHAR 

N/A 
N/A 


PRINT  CELL 
SYNOOL 

NO  DATA! *i M 
NO  OATA(*i’l 
N/A 
N/A 


OIAONOSTIC 


NONE 

NONE 

PATAL 

PATAL 


ACTION 


PRINT  LINE 
PRINT  LINE 
RETURN 
RETURN 


OLOOAL  DECLARATIONS 


INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 


KONXQT.LIST 
KONKLS.LIST 
MINDEP.LIST 
KONDET.LIST 
KONONN.L 1ST 

konalt.list 

K0NSYN.LI8T 

K0HT8L.LIST 

nitas.list 

PXBDEP.LI8T 

PRC0EP.LI8T 


a CONHON  proorah  execution  snitches. 

a CONHON  CLASS  I PI  CAT  I ON  INPO 
a OEPINE  STRUCTURE  OP  HINOOH  PACKETS 
a COHHON  DETECTION  PILE  NINOOHS 
a CONHON  OUTPUT  HI  NOON  PACKETS 

a COHHON  alternate  print  parameters 
a CONHON  SYNOOL  TABLE 
a COHHON  TICK/PREQ  TABLE 
a OEPINE  PROCEDURE  TO  COMPUTE  ALT  PRT 
a OEPINE  PIXEL  SUPPER  STRUCTURE 
a OEPINE  PRINT  CLASS  PARAMETERS 


COUNTERS 


UNIT  numbers 


c 

c 

c 

c 

c 

c 

c 

c 


LOCAL  declarations 


INTEOERS  IN  OET  BUP  • *INTS  PREAMBLE  • (•BINS»SI/h  • aEKTRA  I NTS 
parameter  NUIOBP  - B*(PXBINS*I>  * (3SHB*B*3>/V  * f7 

NOS  PRT  BUP«UOS  PREAH*tMAX  PILES*<MAX  COL S/ PO-NE A TLN  COLS-HARO  COLS)**** 
parameter  NHIPBP«IPXBINS*I I *IMALTnI  • IKPAOHI*  8 . m i * u 


INTEOER  IDETBPtNUIOBPi 
INTEOER  IPRTBPCNUIPBPi 
INTEOER  IPLMIN. IPLNAX 
INTEOER  IPCMIN. IPCHAX 
INTEGER  IPCLO.IPCHI 


a DETECTION  PILE  SUPPER  (PXBDEP  PORHATI 
a PRINT  pile  supper  IPXSOEP  PORHAT) 
a NININUN.  MAXIMUM  PRINT  LINES  IN  MlNOOH 
a MINIMUM.  MAXIMUM  PRINT  COLUMNS  IN  WINDOW 
a LOU.  HlOH  PRINT  COLUMNS  IN  SECTION 


INTEOER  I PC INC 


a NUMBER  OP  PRINT  COLUMNS  PER  SECTION  OP  UINOOW 


« 


» 


t 


L-INN 
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NAMINr 

OOS 


INTCOCR  NUNir  • UNIT  NUNMIl  Of  ALTCIINArC  MINT  riLC 

tNTCOCR  NtALIN  • CUlMCNr  NtA  LINC  NUHUII 

INTCOCR  IRLtN  • CUMICNr  MINT  LINC  NUNWR 

INTCOCR  HtASLO.NSASMl  • LON.  NION  NSA  OAHRLC  NUNOCR  IN  SCCTION 

INTCOCR  ISTAT  $ I/O  OTATUt  RCTURN  NORO 

INTCOCR  IRLNXS  • RRINT  LINC  NUHiCR  COR  NCXT  SCAN  LINC 

RCAL  AOJLIN.AOJSAH  • AOJUfTCO  LINC.  SANRLC 

RCAL  RROLIN.RROCOL  • RRO  LINC.  COLUHN 

INTCOCR  NTLCNR  A NCAT  LINC  CHARACTCR 

INTCOCR  HROLCf .NRORCS  • HAROIN  LCfT.  RIONT  CHAR  STRINO 

c 

c 

C OCCLARATIONt  NHICH  ARC  OLOOAL  TO  NARRNT'S  INTCRNAL  SUOROUTINCS 
C 

RARAHCTCR  NSAVHX«60  • NAXINUN  * OC  SAVC  LOCATIONS  IN  ISAVSY 

INTCOCR  iSAvsviNSAvnx.et  • SAVC  roL  or  siN*/svneoLS  rcrlacco  or  ticks/halo 
INTCOCR  NSAVCD  • * Or  SYNOOLHI  RCRLACCD  BY  TICKCSt  % SAVCO 

INTCOCR  IRLTIC.irCTIC. JSYTIC  • TICK  LINC.  COLUHN.  AND  SYH80L 
INTCOCR  jrSPCC  • PRINT  SPCC  FOR  PROVfl 

c 

c 

C PROCeOURC 

c 

c 

CALL  TRACC 

c 

c 

C initialize  NININUH  ANO  NAXINUN  PRINT  LINES  ANO  COLUNNS  IN  NINOOU 
C 

I PLN I N>PPOOUU I NL I N . HN I N I 
I PLNAX*PPOOUN ( NL I N . UNAX  I 
I PCNI NaPPOOUU ( HCOL . UN I N I 
I PCNAX«PPOOUU( HCOL . UNAX  I 

c 

c 

C BRCAK  NINOOU  INTO  UNITS.  EACH  NOT  NORC  THAN  XPAOE-S  COLUNNS  UlOE 
C 

NITNAX>C I •( IPCNAX'IPCNINI / (KPAOE'Si I 

iriNITHAX.Or.NALTHI t CALL  HOHARNI  'UlNOOU  TOO  UlOE' I 
C 
C 

C CHECK  POR  valid  NAXINUN  COUNT  PER  PIXEL 
C 

irt (KTtPIX.LT.OI .OR. IXTlPtX.OT.EOn  CALL  NDUARN( 

> ‘INVALID  COUNT  PER  PIXEL ‘I 

C 
C 

C CHECK  rOR  DIAONOSTICS 

c 

iriNOTOTL.NE.OI  00  TO  SOO 

c 

c 

C CHECK  POR  valid  ORIOIN  TYPE 

c 

iriKSYOUUIUORIOt .EQ. *SCA*l  00  TO  100 

in (KSYOUUIUORIOI .EQ. ‘DCO* * .OR. IKSYOUUlUORIOl .EQ. *NIN* M 00  TO  ICO 
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irilRtYPMHHIOfllOi.CQ.  *KN*t.OM.  IKtVOHMtMOAIOl.CQ.  **fCT*n  00  TO  l*»0 
CAU  NOrATLI  MNVALtO  ORIOIN  TYOC  IN  NAAONTM 
00  TO  000 

e 

c 

C MINT  MINOOM  NUNOCO  ANO  OOIOIN 
C 

100  Mil rC(0. 1001  NtmOOH.nOAOMWIULIN.MOAIOl.ntAOHUtMOAN.HOAIOI 
100  rOANATlOX. ’MINOOM  •’.IS.*  fORIOlN  ’.IH.’  LINC.  SANAiCI’i 

00  TO  100 

1*0  MAirCtO.lfO*  NMNOOM.OCOOMMIMLAT.MORIOI .OCOOMMtMLON.MOAIOt 
Its  rONHATlOX. ’MINOOM  •’.IS.’  lOAIOlN  ’.FO.H.’  LAT,  *.rO.H.’  LONI’I 
00  TO  ISO 

l*»0  MAirC«e.t**SI  NMNOOM.UTHOMMIHCA.UONIOt  .UrNOHUlHNO.HORIOl 
l«S  rORHATt ox. ’MINOOM  •’.IS. 

A ’ lORioiN  ’.'St.ro.s.’  KN  e.  *.ro.s.’  kn  ni’i 
c 
c 

C OCNCRATC  TAOULAN  OATA  (UNIT  01 
0 

ISO  NUNIT-0 

iriNLCONO.CO.OI  00  TO  tOO  • NO  UNIT  0 UNLCtS  LCOCNO  NOOC  SMI  TON  It  ON 
NlTLO-0 
NITNI*0 

INCLUOC  NITAOr.LISr 

Nir*o 


NUNITaNTAOtNiri 

CALL  NITHOOI  NUNITI  • AXINT  UNIT  MCAOINO 

CALL  ARtVHLI  NUNITI  • AAINT  SYHtOl  LCOCNO 

irilKTIAlX.OC. 1 1 .ANO. IKTIAlX.LC.Oi I 
A MRITCINUNIT.I7SI  KTIAIX 

I7S  rORNATi’Olt  COUNT  • |/*.||.‘  AIXCLl’/l 

iriKTlAlX.OC. 10’ 

A MNITCtNUNiT.tOSI  KTIAIX 


ISO  rORHATt’OH  COUNT  • l/'.lt.'  AlXCLi’/l 

too  CALL  OCNTICI  NUNITI  0 OCNCAATC  TICK  TAOLC  ANO  AAINT  ON  NUNIT  ir  NOT  0 


INITULISe  LOH/MIOM  ANINT  COLUMNS  AON  riAlT  SCCTtON  Of  MINOOM 

lACINC-IKAAOC'OI *nALTN 
IACL0«IACMIN 

lACNlaNINOI I IACLO*IAClNC>l • . lACHAXI 
C 

c 

C AROCCtS  MINOOM  IN  tCCTIONS.  CaCM  NOT  NONC  Than  HALTm  ARInT  UNITS  ulOC 

c 

00  000  NITL0*I .Nl TNAX.NALTN  0 LOM  UNIT  AQR  CACM  SCCTION  Of  MINOOM 
NITNI-HINOI (N|TL0»NALTN«I I .NITMAXI  A HlOH  UNIT 

INCLUOC  NITNOT.LIST  0 ROTATC  ThC  assign  or  LOOICAL  UNITS  TO  NAA  UNITS 

c 

c 

C INITIALISC  riNST  TICK.  CXACT  flRST  AMO  LINC^.  AAAROXINATC  flRST  SCAN  LINC* 

c 

CALL  INITICI IALTIC. lACTie. JSTTICl 
IALIN»IALNIN 
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CAU  AAPtAOJilN.AOtltAH.  • INtUtlC  THAT  NtALIN 

• riOAriim.iiiN-ii.0.1  • <•  rmtr  wan  linc 

NtAUN*AQJUN  • MNICN  NANf  TO  inNIN 

e 

c 

e NNINT  UNIT  NCAOINOfti 
C 

00  100  Nir«Nirio.NirHi 

NUNir*NrAOcNiri  • coNOurc  looical  unit  roR  nar  unit 
CALL  NITHOOI  NUNITt 
BOO  CONTINUC 


OCNCRATC  ANO  RRINT  TOR  COLUMN  fCALC/OONOCR  RON  UNITfSt  IN  CURNCNT  OCCTION 

CALL  OAHOCLI IRNTOr . I IRLMINI . I IRCLOI . I IRCNI t I 

NUNiraNTAtlNirLOt 

I RNT Of  I RXRCC  N I •NUNOOH  *1000 

CALL  RROvri (NUNir.  • ‘.A.'  *.‘«imi*.iRRron 


RROeCSO  ALL  RRINT  LiNCO  IN  CURRCNT  fCCTION  Of  HINOOU 
NOO  CONTINUC  • 00  S*»0  UNTIL  IRLIN  > IRLNAX 


COHRUTC  LOU  ANO  HION  OCTCCTION  SAHRlCS  fOR  CURRCNT  RRInT  lINC 

CALL  A«R(A0ULIN.A0J*AN.  RLOAT ( IRL INI .RLOAT r IRCLOi I 
NCAOLO«AOUSAH  • HURT  OC  < • NBA  tANRLC  HMtCM  HARf  TO  IRCLO 
CALL  AHRIAOJLIN.AOJCAN.  RLOAT ( IRL INI .RLOAT ( IRCNI *1 II 

NOAfNI>AOJfAN*t .0  • must  RC  >■  N«A  SANRLC  MMICM  NARt  TO  IRCNI 

CALL  RRilNI I IRRTOR. (IRLINI .1 IRCLOI . I IRCNI 1 1 


RCAO/NAtK/fCRCCN/RCSAHRLC  ANT  WAN  LlNCtSI  HHICN  NAR  TO  CuRRCNT  RRInT  LINC 


RIO 


C --RCAO 


A 

» 

A 


RIO 

C ••MASK 


CONTINUC  A 00  ROO  MMILC  IRLNXS  <•  IRLiN 
CALL  RRAIRROLIN.RROCOL.rLOATiNfALlNl .0. i 
IRLNX$«RROL IN 

in  IRLNXS. OT.  IRLINI  00  TO  SOO  A NO  NORC  MSA  LINCS  TOR  ! R*. N 
in  IRLNXS  .Lt . IRL  INI  00  TO  <*S0  A NOT  VCT  N|A  LINCS  TON  IRLIN 

A OCT  hSA  LINC  TOR  IRLIN 
CALL  RCAOtNI lOCTOr . (NUIOOn . istat. 

NSALIN.LINCNI .NSASL9.MSASHI I 
in  MSTAT  .NC  . ‘OAOT*  I . ANO. 

I ISTAT.NC. ‘OTL* I I 00  TO  WJO 

CALL  NOTATLICOSRCSI  ISTaT.I  .•»)  . 

*UHILC  RCAOINO  OCTCCTION  TILC*> 

CALL  CRRRTAI‘10  * .A.S. 

‘•I/O  CRROR  lONONC  OUTRUT**! 

00  TO  000 
NTLCNRv* I ‘ 

iniSTAT.CO.  *OAOR‘ I NTLCMRa'T* 

CALL  NSKRIXI lOCTOr.  lOCTORl 
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nAraur 

oot 


e — tCRCCN  I RCtANXtC 

Iff tecTirfmiiiNn.NC.*iNr*i  oo  to 

CALL  ACtONC floor or. 

• looTir.iDcror.ocTiNTi 

00  TO  AOO 

Iff lecrorioxoiNTi.NC.’ovrM  oo  to  «oo 
CAik  ottoocf tooror. 

• looTtP.iKTor.ecrtYTi 

00  TO  AOO 

<»«o  iriiorTortoxoiNn.NC. ‘CNiri  oo  to  yoo 

CALL  OCtOOCMOOTtr. 

• loortr.iocTtr.ocTieci 

00  TO  990 

•too  irilOCTtriOXOlNTI.Nff.’NUl’l  00  TO  YTO 

CALL  OCtOACf lOOTOr. 

• loorir.ioKTir.ocrNULi 

00  TO  «00 

Y70  CALL  NorAnteocYCSfioersroxoiNTi.i.i). 

X * It  invalid  tiN  rvoc  roo  locrof  in  nAOONr*i 

00  TO  too 

e — LOOO  TO  OCT  NCXT  tCAN  LINC  rOO  euAACNT  OAINT  LINC 
VOO  NtAL :N*ntALlN*l 

00  rfo  vie 


tVNOOLUe  AAO  CCLLt  IN  CUOACNT  AAINT  OurrCN 
too  CALL  tTNOACflNATiri 


OUTOUT  MINT  LINCt  fOON  CUANCNT  tVNtOLITCO  MINT  tUfrCA  UNTIL  tCAN  Ll*«>C 
TOO  l«H  AAINT  LINC  It  AVAlLAtLC 

too  eONTINUC  0 00  until  IALIN  >•  irLNAf 

CALL  TICKIIAATOri  • INUNT  TICKt  rOA  lALIN 

CALL  CtTVININAOLCt.  < 1 1 .V.  lALlN.V.’OM 

NAOACt«NNOLCt 

NUNIT*NTa|INITLOI 

lANTiriAUNCCNIalMrori  AKACCNI  *1 

CALL  AAOvn  INUNI  r. 

• HAOLCt.V.NAOACt.V .NTLCMN. jAtACC. l»AT|f i 

CALL  riXtVHI lAATtri  • ACNOVC  TICKS  rOA  lALlN 

IALIN*IALIN»I 

Iff lALlN.OC. lALNKtl  00  TO  SVQ 
00  TO  SCO  0 LOOA  TO  OUTAUT  ANOThCA  AAINT  lINC 


LOOA  TO  OCT  NCXT  SCAN  LINC  AQA  NCM  AAINT  LINC 
tVO  irilALlN.OT.IALNAIl  00  TO  000 

00  TO  veo 
c 
e 

C OCNCAATC  ANO  AAINT  OOTTOn  tCALCTtOAOCA  TON  UNI  Tit*  IN  CUAACNT  tCCTION 
C 

too  CALL  CANtCLllMTOT.IIALNAXl.llACLOl.llACMin 
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NAPRNT 

007 


NWNtr*NrAR(NIUOI 

CALL  PROVPIfNUNtr.  • *.«.•  *.«».*  * . * 1 1 1 1 1 « * . IPATBPI 

c 

c 

C SKIP  0 LINES  ON  UNIMSI 
C 

07  700  Nir«NITLO.NirHl 
NUNir>NrAB(Nin 
HRiretNUNir.osoi 
S90  rORHATfOM 

700  CONTINUC 

c 

c 

C LOOP  POR  PRINi  COLCHNS  IN  NCXT  SCCriON  OP  CURRCNT  UINOOH 
C 

iPCLO-lPCHI»l 

IPCHI*NINO( ( IPCLO*IPCINC*l I . IPCNAX) 

000  continue 

C 

C 

C PRINT  PC JTNOTE  on  LAST  UNIT  OP  Ml  NOON 
C 

NUNIT>NTABINITHI I 
URlTEINUNIT.OSOi 

BSO  PORHATI *0*/8X. * ♦•SEE  UNIT  0 POR  LEOENO***/) 

C 

C 

c increment  the  hinooh  • 
c 

NMNOOH-NUNOOH*! 

C 

C 

C RETURN  TO  CALL  I NO  ROUTINE 
C 

900  RETURN 
C 
C 

c 

c 

c 

c 

C INTERNAL 

subroutine  iNirici  a initialize  tick  pointer  and  oet  first  tick 
0 IPLTIC.  a PRINT  LINE  POR  TICK 
0 ipcric.  a print  column  por  tick 

0 JSYTICI  a tick  SYMBOL:  ‘••-PRIMARY.  ‘ ‘ -SECONDARY 

c 

C HISTORY 

c 

C EH  SCHLOSSER 

C EH  SCHLOSSER 

C 0 A BECK 

C 

c 

C METHOD 


LEC  07/EB/73  ORIOINAL  CODE 

LEC  03/I9T7S  *OEN‘/ ‘RAO*/ *CLA‘  DETECTION  PILES 

LEC  IE/30/79  REVISE  POR  PXBOEP  FORMAT  BUPPERS 


c 


L-3H9 
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e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 


iNirict  iNtriALizc  TICK  pomren  ano  oarAiN  Piasr  tick. 
oenct  oetAiN  next  ricK. 

NACHiNr-oepeNOCNT  cooe 

NONC. 

exrcRNAi.  RCPEReNces 
NONE. 

exceptions 

I.  INI  TIC  Nusr  8E  CALLED  BErORE  ANY  CALL  TO  OETIC. 

GLOBAL  DECLARATIONS 

INCLUDE  KOHTBL.LIST  A CONHON  TICK  TABLE  ANO  PUNCTIONS 

LOCAL  DECLARATIONS 


integer  jsyoi(S>/*«*.*»*/  a tick  synbols  roR  tick  levels  o 

INTEGER  NTICK  8 TICK  POINTER 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


PROCEDURE 

initialize  tick  pointer,  then  OET  riRST  TICK 

NTICK'O 


Entry  oet:c(  a oet  next  tick 
0 IPLTIC.  a INTEGER  PRINT  LINE  rOR  TICK 

0 IPCriC.  a INTEGER  PRINT  COLUMN  TOR  TICK 

0 JSYTICI  a tick  SYNSOL : 


•‘•-PRIMARY.  •♦• -SECONDARY 


INCREMENT  TICK  POINTER 
NTICK-NTICK*I 

OET  TICK  LINE.  COLUMN.  ANO  LEVEL 
IPLTIC>LINTICINTICK* 
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008 


a I 
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HAPHNT 

0»« 


IPCriC«COLTIC(NrtCKI 

LVLnc>LCvrictNrtCKi 

c 

c 

C TRANSFORH  rtCK  LCVCL  TO  SYN80L 

c 

JSYriC*JSYQt  aVLTIC^I  t 


RCrURN  TO  CALLING  ROUTINE 
900  RETURN 


INTERNAL 
SUBROUT  I NE 
0 IPRTBr. 

( IPLIN. 

( IPCHIN. 

C IPCHAXI 


SAHSCLt  • OENERATE  SAMPLE  SCALE  AND  BORDER 
a PRINT  BUFFER 
a PRINT  LINE 
a NINIHUN  PRINT  COLUMN 
a MAXIMUM  PRINT  COLUMN 


history 


E 

h 

SCHLOSSER 

LEC 

07/B8/73 

E 

H 

SCHLOSSER 

LEC 

03/19^79 

0 

A 

BECK 

LEC 

18/30/79 

method 


ORIOINAL  CODE 

•0EN‘/ 'RAO*/ *CLA*  detection  FILES 
REVISE  FOR  PXBOEF  FORMAT  BUFFERS 


SET  OUTPUT  BUFFER  PREAMBLE.  ENCODE  COLUMN  NUMBERS  AND 
INSERT  COLON,  string.  AND  COLON  INTO  PRINT  BUFFER. 


MACHi ne-oepenoent  code 

ASSUMES  6 CHARS  PER  INTEGER  BIN. 


EXTERNAL  REFERENCES 

PUTCHR  a PUT  CHAR  IN  CHAR  STRING 

CST<*IN  a CHARACTER  STRING  FOR  INTEGER 


EXCEPTION 

I.  ASSUMES  6 characters  PER  INTEGER  BIN. 


GLOBAL  declarations 


L-3SI 


0AH  PACKAOe  APPCNOtX  L 
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HAPilNr 

010 


e 

INCLUOe  PXBOCP.LtSr  • OCPtNC  PIXEL  BUPPER  STRUCTURE 

e 

e 

e LOCAL  DECLARATIONS 
C 

INTEGER  IPRTBPCtl  0 AROUHENT 

INTEGER  IPCOL  0 PRINT  COLUMN  NUMBER 

INTEGER  IPBIN  0 PRINT  SUPPER  BIN  NUMBER 

C 

c 

C PROCEDURE 

C 

C 

C SET  PREAMBLE  POINTERS 
C 

IPRTBP(PXLINO>>IPLIN 
IPRTBP(PXCHANI«0 
IPRTBP(PXQUALI-0 
IPRTBP(PX8INTI>‘ INT* 

IPRTBP(PXLBINI«e 
I PRTBP ( PXLCOL  > • I PCM I N 
I PRTBP ( PXHB I Nl • 1 PCMAX • I PCM I N^E 
I PRTBP  C PXHCOL  > > I PCMAX 
IPRTBPfPXNOINI -0 
IPRTBP(PXN00AI-0 
I PRTBP (PXL JO 1 1-0 
IPRTBP(PXHJOn-0 
C 

c 

C INSERT  COLON.  ENCODED  COLUMN  NUMBER.  AND  COLON  INTO  BUPPER 
C 

IPBIN- I PRTBP CPXLBIN) 

DO  100  tPCOL-IPCHIN. IPCMAX 

CALL  PUTCHR  ( IPRTBPCPXBINS'I *tPBtN) . ( n . ':*> 

CALL  CST<*IN  CtPRTBPtPXBINS-I^IPBIN)  . (El  .H.  i PCOL  . >*  . * 0 ' I 
CALL  PUTCHR  ( I PRTBP ( PXBI NS- 1 * I PBI Nl . ( 6 1 . *:*l 

IPBIN-IPBlN-t 

100  continue 
C 
C 

C RETURN  TO  CALLING  ROUTINE 
C 

900  RETURN 
C 
C 
C 
C 

c 

c 

c 

c 

C INTERNAL 

subroutine  symprci  a symbolize  print  bupper 

U IPRTBPI  a PRINT  BUPPER 
C 


t 
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HAPRNT 

on 


( 


o 


C HiSrORY 

c 


c 

E H SCHLOSSER 

LEC 

07/BB/7S 

ORIGINAL  CODE 

C 

E H SCHLOSSER 

LEC 

03/19/79 

•OCN*/*RAO*/*CLA* 

DETECTION  FILES 

c 

0 A BECK 

LEC 

ie/30/79 

REVISE  FOR  PXBOEF 

format  buffers 

LOOK  UP  SYH80L>  ANO  SYNSOLIZC  YHC  PRINT  OurrCR. 


C 

c 

C HCTNOO 
C 

c 
c 
c 

c exrcRNAL  RcrtRCNces 
c 

C NONE . 

c 

c 

C EXCEPTIONS 
C 

C NONE . 

C 

c 

C GLOBAL  OECLARATIONS 

c 

INCLUDE  PXBOEF.LIST 
INCLUDE  KONSYN.LtST 
C 
C 

C LOCAL  DECLARATIONS 
C 

INTEGER  IPRTBPdl 


a DEFINE  PIXEL  BUFFER  STRUCTURE 
a COMMON  SYMBOL  TABLE 


a ARGUMENT 


INTEGER  IPBIN. IPLBIN. IPHBIN 


a BIN  «.  LOW.  ANO  HIGH 


C 

C 

C PROCEDURE 

C 

C 

C SET  BIN  POINTERS 
C 

IPLBIN-IPRTBFIPXLBINI 

IPHBIN-IPRTBFIPXHBINI 

C 

C 

C LOOK  UP  SYMBOLS  FOR  SYMBOLIZATION  OF  BUFFER 
C 

00  ISO  I PB I N> I PL  BIN. IPHBIN. I 

IPIXEL«MINO( IPRTBF(PXBINS-I *IPBIN> . tKSYMSZ-1 > > 
IPRTBFIPXBINS-I *IPBINI«KSYMC IPIXEL*! > 

ISO  continue 
C 

c 

C SET  print  spec  TO  ALLOW  OVERPRINTINO 
C 

JPSPEC«‘tOOO*«' 

C 


L*3S3 
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HAPRNT 

oia 


e 

C IICrURN  TO  CALLING  ROUT  INC 
C 


900  RCTURN 
C 

c 

c 

c 

c 

c 

e intcrnal 

suiRouriNC 

U IPRTBP. 

( IPLIN. 

I IPCNIN. 

( IPCNAXt 


PRBINK  a INiriALIZe  PRINT  BUPFCR 
a PRINT  BUPFCR 
a PRINT  LINC 
a HININUN  PRINT  COLUMN 
a NAXINUN  PRINT  COLUMN 


history 


c 

M 

SCHLOSSCR 

LCC 

07/83/73 

ORIGINAL  COOC 

c 

H 

SCHLOSSCR 

LCC 

03/19/79 

*OCN* / *RAO* / *CLA  * 

OCTCCTION  FILCS 

0 

A 

BCCK 

LCC 

18/30/79 

Revise  FOR  PXBOCF 

FORMAT  BUFFCR8 

MCTHOO 

SCT  *N0  INFO*  FLAO  A *N0  DATA*  THRCSHOLO  VALUCS  OCPCNOINO  ON  RCSAMPLINO 
algorithm.  SCT  THC  PRINT  BUFFCR  PRCAMBLC  ANO  INITIALIZC  THC  BINS 
TO  *N0  INFO*. 


MACHINC-OCPCNOCNT  COOC 
NONC. 


CXTCRNAL  RCFCRCNCCS 
NONC. 


CXCCPTIONS 

NONC. 


GLOBAL  OCCLARATIONS 

INCLUOC  PXBOCF.UST  a OCFINC  PIXCL  BUFFCR  STRUCTURC 

INCLUOC  KOMSYM.LIST  a COMMON  SYMBOL  TABLC 

c 

c 

C LOCAL  OCCLARATIONS 
C 

INTCOCR  IPBIN. IPLBIN. IPNBIN  a BIN  •.  LOU.  ANO  HlOH 
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INrCOeK  NOOAPP.NOINPr  • *N0  data*.  *no  info* 

iNreocR  ipnriptt)  • ARounCNr 

e 

c 

c PRoceouPC 

c 

c 

C ser  *N0  OATA’/'NO  inpo*  valucs  ocpcnoino  on  typc  of  rcsahpuno 

c 

N00APP«»9999 

NOINPP-O 

IF(KriPIX.CO.O)  NOlNPP>tSYNHI *1 

c 

c 

c ser  PRCANBLe  pointcrs 
c 

IPRTBFCPXLtNOi-IPLlN 
IPRTBFtPXCHANI-O 
IPRTBFfPXQUALl-O 
IPRT8FIPX8INri>*  INT* 

IPRT8F(PXLBIN)-8  • TICK  HALO  ALOORITHN  CHECKS  TICK  BIN  -I 

IPRTBFIPXLCOLI-IPCNIN 

I PRTBF ( PXHB 1 N I « t PCHAX • I PCH I N*8 

IPRTBF(PXHC0L)*IPCNAX 

IPRTBFCPXNOINI «NOINPP 

IPRTBFCPXNOOA) -NOOAPP 

IPRTBFCPXLJOI I >0 

IPRTBF(PXHJOn>0 


initialize  sins  to  *no  INFO’  value 

IPL8IN>IPRTBF(PXLBIN> 
IPHBIN*IPRTBF(PXHBINI 
DO  800  IPBIN-IPL8IN. IPHBIN. I 

IPRTBFtPXBINS-l ttPBINI -NOINPP 

800  continue 


RETURN  TO  CALLING  ROUTINE 
900  RETURN 


INTERNAL 

subroutine  ticki  • insert  ticks 

U IPRTBFI  a PRINT  BUFFER 
C 

c 

c history 
c 

C EH  SCHLOSSER  LEC  07/88/73  ORIOINAL  CODE 


NAPRNT 

ots 
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NAMNr 

0I*» 


t H tCHLOSSCA  LCC  Ot/ 19/79 

0 A 9CCK  LCC  19/30/79 


*ocn'/*rao*/*cla*  oercerioN  rtLC9 
RCVI9C  roR  Rxsoer  roRNAt  aurreoR 


INSCRT  riCK(S)  rOR  A LINC  Of  PRINT  AND  SAVE  SYN90lC9i 
RCPLACeO  9Y  riCKtSI. 


• INTeOCR-CHARACTeR-eQUIVALeNT  or  1ST  CHAR  IN  STRINO 


e 
c 
e 
e 

e NCTHOO 

c 
c 
c 
e 
c 

c NACHiNe-ocpeNOCNr  cooe 
c 

e NONE . 

c 
c 

C EXTERNAL  REFERENCES 
C 

INTEGER  ICE 
C 
C 

C EXCEPTIONS 
C 

C I.  INiriC  HUST  9E  CALLED  9EF0RE  FIRST  CALL  TO  TICK  ROUTINE. 

C 

C 

c 0L09AL  declarations 
c 

INCLUDE  PXBOEF.LIST 
C 
C 

C LOCAL  declarations 
C 

INTEGER  IPRYOFMI 
INTEGER  IP8TIC 
integer  ICESPA 
INTEGER  N9INC0 
C 
C 

C PROCEDURE 
C 
C 
C 
C 


• OEFINE  PIXEL  SUFFER  STRUCTURE 


a AROUNENT 
a SIN  # OF  TICK 
a l-C-E  OF  • • 
a SIN  * OF  COLUMN  ZERO 


initialize  POINTER  FOR  SAVE  TABLE  OF  SYMBOLS  REPLACED  BY  TICKS 

NBINCO-IPRTBFIPXLBINI -IPRTBFtPXLCOL I a FOR  INSERTINO  TICKS 

NSAVEO-0 

ICESPA-ICEI’  ') 

C 

C 

C OET  AND  INSERT  TICKS 
C 

soo  iparic*iPCTic*NBiNCo 

IF  MPLTIC.OT.  IPLINI  00  TO  900 
IF  I 

a I IPLTIC.lt. IPLINI .OR. 

A I IP9TIC.LT. IPRTBFIPXLBINI I .OR. 

a I IPBTIC.OT, IPRT9FIPXH9INI n 


a SAVE  TICK  FOR  SUBSEQUENT  LINE 
a TICK  ABOVE  PRINT  LINE 

a tick  left  or  loh  bin 

a TICK  RIGHT  OF  HlOH  BIN 


L 


398 


ooooooouooooooooooo 
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NANNNT 

010 


A 00  TO  900  0 TNCN  tONORC  IT 

tr  (JOYTIC.CQ. *•*!  00  TO  910  0 ALHAY9  IN9CRT  MINARY  TICK 

If  lteCltMTRr{PXtlN9>l*IM^*Cn.Cu.  ICC9RAI  00  TO  9t0  0 NUT  9CC  TICK 
IP  (|NRTtriNXRIN9>l*INRT|Ct.NC.*i*l  00  TO  990  0 NUT  9CC  TICK  IN  NOOAT 
010  CONTINUE  • IN9CRT  LEFT  NALO  IN  *N0  OATA’  NNO  CELL 

IP  (INRTRPINXtlN9«l*IN9Tie*II.NE.*t*l  00  TO  9>0 
N9AVE0«NIN0IN9AVE0*I .NSAVNXt 
ISAVSYIN9AVE0. I t •INRTIC*! 

l9AV9Y(N9AVE0.0l«INNT8P(NxeiNS-l*INRTIC-ll 
INRT9P(NXBIN9*UINiTIC*l  i>*  ' 

SfO  continue  • IN9ENT  TICK  IN  NNO  CELL 

N9AVE0«NI NO  < NBAVEO* I . N9A VNX  > 
lOAVSYtNSAVEO.I I'tNOriC 

l9AV9YCN9AVEO.O>>INNTBPCPXBIN8-l*INBTICi 

INRTBP(NXBINB-t*INBTIC>«JSVTIC 

030  continue  • INOERT  RtOHT  HALO  IN  *N0  DATA*  NNO  CELL 

IP  (INRTBP(NXBINS-ltlNBTIC»n .NE. *> ’ I 00  TO  990 
N9AVE0*NIN0(N9AVE0»I .NSAVNXI 
lOAVSYf N8AVE0. I i•IN8TIC*l 

I8AV8T(N8AVC0.0I«INRTBP(NXBIN8-I*INBTIC*I ) 
INRTBP(NXBIN9«I»IPBTIC«I l>*  • RIONT  NALO 

990  CALL  OETIC  ( IPLTIC. INCTIC. JSYTICt 
00  TO  900 
C 
C 

C RETURN  TO  CALL! NO  ROUTINE 
C 

900  RETURN 
C 

c 

c 

c 

c 

c 

C INTERNAL 

fUBROUriNE  PtXSYHC  • UNTICK  AND  PIX  SVHBOLS  IN  PPO  SUPPER 
U IPRTBP)  • PRINT  BUPPER 


HISTORY 


E 

H 

SCHLOSSER 

LEC 

07/ee/73 

ORIOINAL  CODE 

E 

H 

SCHLOSSER 

LEG 

03/19/79 

•OEN* / 'RAO*  > 'CLA* 

detection  piles 

0 

A 

beck 

LEC 

IS/30/7S 

REVISE  POR  PXBOEP 

PORHAT  SUPPERS 

NETHOO 

this  routine  is  called  when  lOuE  TO  resahplino)  no  scan  line  is 

AVAILABLE  TO  OENERATE  THE  NEXT  PRINT  LINE.  PIXSYH  TAKES  THE 
PPO  SUPPER  JUST  OUTPUT  POR  THE  CURRENT  PRINT  LINE.  REMOVES  THE 
TICKS.  ANO  'PIXES  IT  UP'  SO  IT  CAN  BE  USED  POR  THE  NEXT  PRINT 
LINE. 

REPLACE  TICKfSl  WITH  ORIOINAL  SYNBOLISt. 

IP  COUNTINO.  SET  NON'BLANK  CELLS  TO  * : ’ < NO  DATA!  ANO  SET  PRINT 


L-197 


OAN  ^ACKAOC  AMCNOIX  L 
NAtN  MOONAHt/WOUriNCt 


NAPUNT 

Olt 


me  ro  tuMCtt  ovcmwintino. 

HACHlNC-OCKNOCNr  cooc 

AttUHCt  • CMAMS  KR  INTCOCII  II N. 


cxrcRNAL  RcreiieNect 

iNrcocR  ICC  • iNrcoen-CNAiiAcrcR'CQuivALeNr  or  isr  chan  in  stnino 


rxCCNTIONS 

nonc. 


OLOtAL  oeCL ANA r IONS 

iNCiuoc  Nxiocr.Litr  • ocriNC  nixcl  ourrcN  stnuctunc 

INCLUOC  KONKLS.LISr  A CONKON  CLASSiriCAT ION  INfO 


C LOCAL  oeCLANAMONS 

c 

INTCOCN  irNTOmi  I ANOUHCNT 

INTCOCN  teesNA  a I'C'C  or  * * 

INTCOCN  IPBIN. INLOIN. IPHOIN  I BIN  •.  LOW.  ANO  HIGH 

c 

c 

C PNOCCOUNC 

C 

C 

C NCPLACC  riCKtSi  A TICK  HALOCS*.  ir  ANY.  HITH  ONIOINAL  fVHBOLISI 

c 

eoo  irtNSAVCO.LC.O)  OO  to  soo 

IPBIN>ISAVSY(NSAVCO. I I 

I PNTBr ( PXB I NS - 1 • I PB I N I ■ I SA VST  t N8A  VCO . C I 
NSAVCO-NSAtfCC*! 

OO  TO  COO 

c 

c 

C ir  COUNTINO.  SCT  NON>BLANK  PPO  CCLLS  TO  ‘ * I NO  OATAI  A SUPNCSS  OVCNPRInTInO 
C 

SOO  irCKTIPlX.CQ.OI  OO  TO  900 
IPLBlN«IPNTSr IPXLBIN) 

IPHBlN-IPNTBriPXNBINl 

ICCSPA*ICC(*  ‘I 

OO  TOO  IPBIN*IPLBIN. IPMBIN 

ir(ICe«IPNTBriPXBINS*l*IPBINl > .NC. ICCSPAI 
A IPNTBrrPXBINS*l*IPBINi«* ; ■ 

TOO  CONTINUC 

a NO  ncco  to  cvcn  attchpt  ovcnpnintino 

c 

c 


L'SSB 


TS^SOB 
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nitnoo 

001 


oumouriNC  nitnooi  a ^int  na^  unit  ncaoimo 
I NUNiTi  a ourour  paint  unit 


MtOTONY 


C N OCNLOOtCA 
C N OCHLOOtCA 
C N OCNlOOfCA 


LCC  OY/tO/71 

iCNoeo  ot/fo/00 

LCnOCO  00/10/00 


OniOINAk  coot 

CALL  PAONUN  INOTCAO  Of  PATNUH 
NCOATIVC  NAP  NUNOCA  A UtC  OCTICC 


NCTHOO 


MAirC  OOX  MCAOINO. 
HAP  HI  NOON  lOCNTlri 


OCCNC  lOCNTIPICATION.  CLAOOIMCAT ION  SUNHAAY. 
CATION.  ANO  CONTAOL  SUNHAAY  ON  NUNIT. 


NACNINC'OCPCNOCNT  COOC 


NONE. 


CXTCANAL  ACrCACNCCS 


NOUNI r 
OCT  ICC 
PAONUH 
CL SHOO 
NAPHOO 
INTCOCA 


ICC 


PAOC  CJCCT  a PAINT  PAOC  MCAOINO  L INCS 
OCT  INTCOCA'CHAAACTCA'CQUI VALCNT  PRON 
PAINT  OOX  NUMOCAS  ON  SPEC  I PICO  UNIT 

paint  classipication  hcaoino  on  spcci 

PAINT  HAP  HINOOH  MCAOINO  INPORHATION 
a INTCOCA'CMAAACTCA'CQUI VALCNT  PROH 


ON  SPCCIPICO  UNIT 
CHAA  IN  STRINO 

PICO  UNI r 
ON  SPCCIPICO  UNI T 

chaaactca 


EXCEPT  IONS 


NONE. 


OLOOAL  declarations 


INCLUDE  KOHXQT.LIST 
•NCLUOC  KOHALT.LIST 


a COMMON 
a COMMON 


PAOOAAN  EXECUTION  SUITCmCS.  COUNTCAS 

alternate  paint  pile  POINTEAS 


LOCAL  declarations 


INTCOCA  INI 
INTCOCA  IHIO 
INTCOCA  I HI 


a HOURS  UNITS  0101 T 

a minutes  tens  oioit 

a MINUTES  UNITS  OIOIT 


L-SSO 


oooo  o o o o 


OAN  ^ACKAOC  AAKMOiX  L 
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NITNM 

•02 


INTCOCN  NNIOO 
INfCOCM  NNIO 
INTCOCR  NMI 
iNrcocR  leco 


• MINOOM  NimtCR  MUNONCM  OtOir 

• MINOOM  NUHOCN  fCNt  0101 r 

• MINOOM  NUNOCN  UNirt  OIOIT 

• iNrcocR*CNANAcrcii>cowimcNr  or  *o* 

• OOX  NUNOCN  ORINrO  AO  OLANN 


NNOeCOUNC 


CALL  TRACC 


•COIN  NCAOINO 
NTAOC«0 

CALL  HOUNirm.NUNin 


e ocr  ur  hour  ano  ninutc  oox  nunocno 

c 

ICCO*ICC<  *0* i 

CALL  OCriCCfiHI.  JMNO.ri 

ini»ini>icco 

CALL  OCriCClINtO.  JNHt.St 
INIO»INIO>ICCO 
CALL  OCriCCilHI.  JWNS.<»l 
iNi«iNi-ieco 
c 
c 

C ter  ur  NAN  NunOCR  oox  NUNOCRt 

c 

NMtOe*NHNOOU/IOO  • IOO*t  OIOIT 
NHI3«lNHNOOU>tOO*NMt 001  / 10  • 'O’t  OiOlt 

MHI  •INUNOOH*IOO«NU100I •lO'NHIO  • l*t  OlOir 
Muloo  • Nuloo  • to  0 HCOArivc  (MHire  on  olacki 
MHIO  > NHIO  • to 
NMt  • NUt  • to 


Aur  OOK  NUNRCAt  ON  UiOC  AAOC 

iriKRAoc.Lr. ito>  00  ro  too 

Call  AXONUNtNUNt r . to. tc. t hi . t ni .Nutoo.Nwt o.nui .ni r .■lanki 
WAirciNUNtr.istt 
tss  roRNATttx/ 

t ox. 0<‘>‘I.IOX. I ox.  tox. 

C tox. ‘HOUR*  . t tx. ‘NiNUrC  ‘ .rox.  *MAA  NUNICR  ‘ . COX  . ‘ L'N  I T ' I 

00  ro  700 


.'»ut  oox  NUNOCRt  ON  NARROW  AAOC 

too  tnxAAOC.Lr.toi  oo  ro  too 

CALL  ARONUNINUNI r. 10. tO.NWtOO.NWt O.NHI . Nl T . RL ANK . 01 ANK . OL ANK > 


L'lOt 
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NITNOO 

001 


NNirciNUMir.im 
ISO  fOMNArilX/ 

I 0«.AA(*«*l,IOX.Of  *«*w 

0 tO«.*NAM  NUHOrM*.ttX.*UNir'l 

00  ro  700 
e 
e 

e MUT  OOX  NUNOiAt  ON  VCMY  NAMMOH  MAOC 

e 

000  CAiL  MMONuniNUNir.IS.IO.NMl6.NMI .Nir.OLANK.OLANK.OLANK.OLANKI 
MtrctNuNir.sss' 

010  roMNAriix/ 

1 OX.fOI*«‘>  .lOX.Ol’aM/ 

t IOX.’NAM  NUN0CN*.t6X.‘UNir*l 

c 

e 

e eoNMLcrr  ncaoino 
c 


700  CACl  ClSNC^INUNiri 
CALI  NAMNOOfNUNir I 
NLINC*00 
NCrUAN 
CNO 


I 'SOI 


OOOOOOOOUOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


OAN  PACKAOe  APPEND IX  L 
MAIN  PROORAnS^IIOUl  INKS 


OPRPRC 

001 


SUOROUriNe  OPNPRC  a open  ALTERNArE  PRINT  FILES  FOR  PRTCLASS 


HISTORY 


E N SCHLOSSER  LEC 

J C CRISP  LEC 


06/80/78  ORIOINAL  CODE 

18/10/73  REVISE  TO  INCLUDE  PRCOEF-PROC 


NETHOO 


A MAX  I HUH  OF  9 ALTERNATE 


PRINT  FILES  ARE  OPENED  A INITIALIZED. 


MACHINE -DEPENDENT  CODE 


NONE. 


EXTERNAL  REFERENCES 


OPENPR  OPEN  alternate  PRINT  FILES 


EXCEPTIONS 


I.  ONE  PRINT  file  is  ALWAYS  OPENED.  UNLESS  IN  OATA/CHECKOUT  NODE. 


GLOBAL  declarations 


INCLUDE  KONXQT.LIST 
INCLUDE  PRCOCr.LISr 


C 

C 

C PROCEDURE 

C 

C 


CALL  trace 


A CONHON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 

a DEFINE  malthi  and  kpachi  for  prtclass 


C 

C 

C NO 
C 


C 

C 

C NO 

c 


MORE  than  malthi  alternate  PRINT  FILES  FOR  PRTCLASS 

MALTM«MAX0(MALTM. I I 
HAL TM*H I NbIMALTN. malthi 1 

more  than  KPAOHI  columns  per  PAOC  IN  PRTCLASS 
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OPRPNC 

OOP 


KPAOC«NAXOfKPAOC.tl 
KPA0C*NIN0IKPA0C,KPA0HI > 

c 

c 

C OPEN  PILCCSI  * 

C 

IPCHOArAC.CO.Oi  CALL  OPCNPR 

c 

c 

RETURN 

END 


» 


L-IDH 


oooooooooooooooooooooooooooooooooooooooooooooooooo 


OAH  PACKAOe  APPCNOU  L 
MAIN  PPOOItANS/ROUTtNCS 


RCSPIIC 

001 


i 


sumouriNC  rcsphci  o scpccN/pesAnPLC/couNr/trope  oer  pims  pop  prtclass 

0 IPRTer.  0 UNPACKCO  ftCSAnPLCO  PPO  CCLLS 


I IPtUP.  0 PRINT  aUPFCR 

I lOCTBP.  0 PACKED  UNRCSANPLCO  OCrCCTtON  PIXELS 

I OEraiNi  0 routine  to  OET  pixel  value  (OETavr.OETCHR.OETINTI 


i 


) 


history 

E H 

SCHLOSSER 

LEC 

07/08/73 

E H 

SCHLOSSER 

LEC 

03/13/79 

J C 

CRISP 

LEC 

18/18/79 

HETHOO 


ORIGINAL  CODE  IN  NAPRNT 
REVISE  A SEPARATE  INTO  REOPRC 
REVISE /RENAME  FOR  PXBOEF  BUFFER 


COMPUTE  BIN  NUMBERS  FOR  SAMPLE  ANO  COLUMN  0. 

COMPUTE  SAMPLES  FOR  LOU  ANO  HlOH  PRINT  COLUMNS.  IF  HIGH  SAMPLE 
GREATER  THAN  LAST  DEFINED  SAMPLE.  INSERT  PPO  NOOATA  VALUE  IN  BUFFER 
PPO  CELLS  ANO  RETURN.  IF  LOU  SAMPLE  IS  LESS  THAN  FIRST  DEFINED  SAMPLE 
INSERT  PPO  NOOATA  VALUE  IN  PPO  CELLS  UNTIL  FIRST  DEFINED  SAMPLE  IS 
FOUND.  OET  SAMPLE  VALUE  ANO  CHECK  AOAINST  DETECTION  NOOATA  THRESHOLD. 
RESAMPLE  ALL  INPUT  NOOATA  PIXELS  ANO  STORE  THE  PPO  NOOATA  THRESHOLD 
IN  their  PPO  CELLS. 


SCREEN  ALL  INPUT  DATA  PIXELS  AOAINST  LCVLOCK  t LCVHI 1 II . IGNORE  PIXELS 
OUTSIDE  these  limits.  RESAMPLE  EACH  SCREENED  DATA  PIXEL  ANO. 

IF  KTIPIX  IS  NON-ZERO: 

AOO  VALUE  OF  THE  DATA  PIXEL  (BUT  NOT  MORE  THAN  KTIPIXI  TO  THE 
CORRESPONOINO  OUTPUT  PPO  CELL, 

OThERUISE: 

STORE  VALUE  OF  THE  DATA  PIXEL  IN  THE  PPO  CELL. 


machine-dependent  code 


utilizes  UNlVAC  fortran  V FUNCTION  ’LCC’. 


EXTERNAL  REFERENCES 


OETBYT  i OET  VALUE  OF  BYTE  FROM  BYTE  STRINO 

oETicE  a OET  inteoer-character-equi valent  from  CHAR  string 

OETINT  a OET  VALUE  OF  INTEGER  FROM  INTEGER  STRING 


exceptions 


I.  IF  the  sane  actual  arguments  are  not  used  for  tPRTBF  ANO  IPBUF. 


I -36S 


u u u u o 


i 


u 
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C A FATAL  CNROR  MILL  1C  IStUCO. 


C OLOIAL  OeCLARATIONS 


INCLUOe  KOHNCR.LISr  • CONHON  CRTS  9CCNC  RARAHCrCRS 

INCLUOe  KOHPIT.Llsr  • CONNOR  AOJUSTMCNT /RCOt STRAT I ON  PARANCrCRS 

INCLUOC  KOHKLS.USr  • CONHON  CLASSIPtCAriON  INPO 

iNCLUOr  TRTORN.USr  a OCPINC  COOROINATC  TRANSrORNAriON  FUNCrtONS 

iNCLuoe  PXBOCF.LisT  a oeriNC  pixel  eurrcR  structure 

» 

LOCAL  DECLARATIONS 


RESPRC 

00> 


INTEOER  IPRTBrill  a AROUHENT 

INTEOER  lOETBFdi  a AROUHENT 

INTEOER  NSASAH  a SAHPLE  NUN8ER  OP  PIXEL  BEINO  SCRECNEO/ RESANPLEO 

INTEOER  NSALIN  a NSS  LINE  NUNBER 

INTEOER  NSASLO  a NSS  LON  SANPLE 

INTEOER  NSASNI  a NSS  HlOH  SANPLE 

INTEOER  NOOAOE  a DETECTION  BUFPER  NO  DATA  THRESHOLD 

INTEOER  NOOAPR  a PRINT  BUPPER  NO  DATA  THRESHOLD 

INTEOER  NROC  a RAO  I ANCE/ DENS  I T y /CL  ASS  BEING  SCREENEO/RESANPLEO 

REAL  CORLIN  a CORRECTED  LINE  NUNBER  POR  NSALIN 

REAL  CORSAN  a CORRECTED  SAHPLE  NUNBER  POR  NSASAN 

REAL  AOJLIN  a adjusted  LINE  NUNBER  POR  NSALIN 

REAL  AOJSAN  a ADJUSTED  SANPLE  NUNBER  POR  NSASAN 

INTEOER  IPCLO.IPCHI  a LON  AND  HlOH  PRINT  COLUNNS 

INTEOER  IPLIN  a PRINT  LINE 

INTEOER  IPCOL  a PPD  COLUNN  POR  NSASAN 

INTEOER  IPCt.IPCa  a PRINT  COLUNNS  POR  FIRST  AND  LAST  NOOATA  PIXELS 

INTEOER  NBINSO  a BIN  CONTAININO  SANPLE  0 IN  lOETBP 

INTEOER  NBINCO  a BIN  CONTAININO  COLUNN  0 IN  IPRTBP 

INTEOER  IPBIN  a BIN  POINTER  IN  IPRT3P 

C 
C 

C PROCEDURE 

C 

C 

C 

C 

C CHECK  THAT  SANE  ACTUAL  ARO  HAS  USED  FOR  IPRTBP  AND  I PBUP 

C 

C 

IPILOCI  IPRTBP)  .NE.L3CMPBUPI  I CALL  NOPATLt 
- 'IPRTBP  a IPBUP  NOT  SANE  IN  RESPRC’) 

C 

C 

C CONPUTE  BIN  NUNBER  FOR  SANPLE  AND  COLUNN  0 AND  BIN  POINTER 
C 

NBINSO>IOETBP(PXLBIN) - I OE TBP I PXL SAN) 

NBINC0*IPRTBPIPXLBIN) -IPRTBP'PXLCOL I 
IPBINaPXBINS-l »NBINC0 
C 


t 
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« 


« 


* 


e 

c 

c 


e 

c 

c 

c 


c 

c 

c 

c 


COHPUre  8AHPLCS  POP  LOW  AND 


NION  PRINT  COLUNNS 


I PL  I N« 1 PPT BP ( PXLi NO > 

I PCLO* I PPT BP ( PXLCOL i 
IPCHI«IPPTBP(PXHCOLl 
CALL  AHPfAOJLIN.AOJSAN. 
NSASLO>AOJSAN  A NU8T  BC 
CALL  A«»PCA0JLIN.A0JSAN. 
HSASHi«AOJSAH*l .0  A HUST 


PLOAT I IPL INI .PLOAT ( IPCLOl I 
<-  NBA  8AHPLC  WHICH  NAP8  TO  I POLO 
PLOAT  Cl  PL  INI  .PLOATt  IPCHI  *n  I 
BC  >•  NBA  SANPLC  WHICH  NAPS  TO  IPCHI 


INITIALIZE  NO  DATA  THRCSHOLOS. 


SCAN  ANO  CORRECTEO  LINE  NUNBER 


NOOAOE> I OETBP ( PXNOOA i 
NOOAPR- 1 PRTBP  C PXNOOA I 
NSAL IN*IOETBP<PXL INOI 
CORL  I N-CORL  *»A  ( NSAL  I N . NSASAN I 


initialize  sanple  pointer 

N8ASAN>NSASLO-l 


c 

c 

C INITIAL  state  (OETERHINE  IP  PIRST  SANPLE  IS  OEPINEO) 

C 

IOC  NSASAN-NSASAN*'! 

CORSAN-CORSHACNSAL IN.NSASANI 
I PCOL*PPOC>»C  (CORL  I N . CORSAN I 
IP  ( I PCOL .LT. IPCLOl  00  TO  100 
IP  (NSASAN. OT. lOETBPCPXHSANIl  00  TO  700 
IP  (NSASAN. OE. lOETBPIPXLSAMII  00  TO  ISO 
C 
C 

C initial  UNOEPINEO  state  (RESANPLE/STORE  initial  UNOEPINEO  PIXELS! 

c 

IPCt-IPCOL 

NSASAN* I OETBP (PXL SAN  I 
C0RSAH*C0RS*«A(  NSAL  iN.NSASAN-t  I 
IPCZ-PPOC'*C(CORL  IN.CORSAN) 

00  IZO  I PCOL* I PC  I . IPCZ 

IP  ( IPCOL .OT . IPCHI I CO  TO  SOU 

IPRTBPI IPBIN*IPC0L)*N00APR 

tzo  continue 

CORSAN*CORS>*A(  NSAL  I N.  NSASAN  I 
I PCOL *PPOCM Cl CORL IN. CORSAN) 

C 

C initial  OEPINEO  state  IOETERNINE  state  OP  PIRST  OEPINEO  SANPLE! 

C 

ISO  CALL  OETBIN  (NROC.  I OE TBP I PXB I NS ! . (NSASAN*NB I NSOn 
IPINROC.OE.NOOAOE!  00  TO  SOO 
C 
C 

C 6E0IN  data  state  IOETERNINE  WHETHER  TO  STORE  OR  COUNT) 

C 


REBPRC 

003 
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RCtRNC 

00« 


too  iriKTIRlX.NC.OI  00  TO  *»00  0 COUNTINOf 

c 

c 

C data  STORC  tUO-STATC  (SCReCN/RCSAHRLe/SrORC  data  RIXCLSl 

c 

300  in  INROC.lt .LCVLOi M I .OR. iNROC.Or .LCVHI C t n t 00  TO  3t0 

IPRTOrt  IROIN^IRCOLONROC  • IN  RAO/OCN/CLA  LIHITS 
3t0  H$A8AN*nSASAN«l 

CORS AN>C0R8>» A ( NSAL I N . NSASAN I 
IRCOL*PPOC«»CICORL  iN.CORSANi 
IPINSASAH.OT.MSASHII  OO  TO  900 

ir  < iPCOL.or. ipcHi)  oo  to  ooo 
tr  (hsasah.ot. toeroPtPXHSAMn  oo  to  too 

CALL  OCTBIN  (NROC.  I OCTBP I PXB t NS  1 . < NSASAN*NB I nso > > 

IFINROC.LT.NOOAOC)  00  TO  300 
00  TO  900 

c 

c 

C DATA  COUNT  SUB-STATC  I SCRCCN/ReSANPLe/COUNT  DATA  PIXCLS) 

c 

i»oo  ifcinroc.lt.lcvloi  1 1 1 .OR.  (nroc.ot.lcvhi  I n n oo  to  >»80 
IPRrBntPBIN»lPCOLI> 

fc  tPRTBPI tPBlN«IPCOL I *NtNO(NROC.KTIPtXt  1 IN  RAO/OCN/CLA  LIMITS 

H80  NSASAN*NSASAH*I 

CORSAN-CORSt A ( NSAL I N. NSASAMI 
I PCOL  «PP0CHC ( CORL I N . CORSAN ) 

IP  CNSASAN.OT. tOCTBPIPXHSAHI I 00  TQ  700 
inMSASAN.Or.HSASHI  t 00  TO  900 
IF  I IPCOL . OT. IPCHII  00  TO  900 

CALL  OCTBIN  (NROC.  I DC  TOP ( PXB I NS > . ( MSASAH»NBI NSO I > 
IFINROC.LT.NOOAOC)  00  TO  HOO 
C 

c 

C NOOATA  STATC  ( RCSAKPLC / STORC  CCFINCO  NOOATA  PIxCLSI 
C 

900  IPRTBF(IPBIN«IPC01 I «NOOAPR 
MSASAN>NSASAM*t 
C0RSAN«C0RSHA(NSAL I N. ns as an  I 
I PCOL *PPCChC( CORL In. CORSAN) 

IF  SASAN.Or. IOCTBFIPXHSAN) I 00  TO  700 
IFINSASAN.OT . NSASHI ) OO  TO  900 
IF  MPCOL  . OT  . IPCHI)  00  To  900 

CALL  OCTBIN  (NROC.  I OC TBF I PXB I NS ) . < NS ASAN*N8 I NSO ) ) 

IFINROC . OC. NOOAOC ) 00  TO  900 
00  TO  too 
C 
C 

C FINAL  UNOCFINCO  STATC  < RCS ANPL c / s torc  final  unocfinco  PIXClSI 
c 

700  IPCI-IPCOL 

C0RSAN>C0RS>*A(NSALIN. NSASHI  ) 

|PCt<PPOC**C(CORL  IN. CORSAN) 

00  790  IPCOL-IPCI . IPCt 

IF  I IPCOL.OT. IPCHI I 00  TO  900 
IPRTBFl IPBIN*IPCOL)*NOOAPR 
790  CONTInUC 
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RCSPNC 

008 


e 

c 

c 

c 


PtNAL  OTATC  (ALL  OONC I 

800  PC TURN 
CNO 


L-3S9 


onooonnnnoonnonnnn 


OAH  PACKAOe  APPCNOIX  L 
MAIN  PMOOftAHS/ROUTINCS 


RL rCLASS 
001 


MOORAH  RLTCLAOt 


IR  e NARVesONt 


TNtS  RROORAH  PROOUCCS  PLOTS  OP  CLASSinCO  CRTS  MSS  OAT*  ON  A PCN 
PLOrrCR.  THC  USER  spcciries  the  scale,  uinoou  oihensions.  location,  etc. 

OP  EACH  NAP. 

THIS  PROORAH  is  LINITEO  TO  THAT  PART  OP  THE  HORLO  COVERED  SV  THE 

CLARKE  loss  SPHEROID  INORTH  AHERICAI.  t 


the  PROORAN  classify  NUST  be  executed  BEFORE 
IN  the  sane  run. 


include  kohxqt.list 
INCLUDE  KONLOO 
INCLUDE  KONLUS 
INCLUDE  KOHLSN 
INCLUDE  KOHNER 
INCLUDE  KONKLS 
include  KONFIT 
INCLUDE  KOHOET 
include  KONALT 
INCLUDE  KOHSYN 
INCLUDE  KOHPLT 

include  KONIUU 
include  konohu 


this  PROORAN.  PREFERABLY 


* ) 


c 


EXTERNAL  PLCOOO.PLCXQT 

CALL  NVIATOI  PLCOOO . PLCXQT I 
100  CALL  VIATO 
DO  TO  too 
END 


a FIRST  CALL  IS  VIA  PLCOOO  TO  PLCXOT 


* 


> 


1 


L-S70 


OAN  PACKAOC  AWNOIX  L 
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nreiAts/ VIRTUAL 
001 


RROORAN  RLTCLAOt/ VIRTUAL 


NitrORV 


C H SCNLOSSrR  LCC 

C H SCHLOSSCR  LCC 


0a/0</7«»  ORIOINAL  COOC 

11/06/79  •NAR.rZINli  NO  *N*  IN  OCNANOi 


HCTNOO 


construct  inar  exec  cohhano  to  link  rcal  aosolutc  in  tprs. 

CONSTRUCT  >XQT  COHNANO  TO  exCCUTe  RLAL  AOSOLUTC  IN  TRrS. 
HRITe  IMAR  A •<QT  CONHANOS  TO  TCHPORARy  PILC  00. 

•Aoo  TeHPORARv  rice  eo.  ro  RUNSTReAN. 


HACMiNe-oepeNoeNT  cooe 


MRITTeN  IN  ASSeNBLCR  POR  THC  UNI  VAC  1100  SSRieS  CONPUTCRS  UNOCR  ThC 
cxcc-e  opcratino  systcn  usino  o-bit  picloata  characters. 
iNPLeneNTiNO  cooe  must  be  rewritten  por  oipperent  character  cooes. 

OIPPeRENT  OPCRATINO  SYSTENS.  ANO  OIPPERENT  HACHINCS. 


CXTERNAL  REPeRCNCCS 


ER  CSPS  a PUNCTION  TO  SU8NIT  EXEC-S  CONTROL  STaTENEnT 

ER  IONS  a initiate  I/O  ANO  WAIT  POR  completion 

ER  EXITS  a TERMINATE  PROORAH  EXECUTION 

OAM.PLTCLASS-MAP  a SYMBOLIC  NAP  OIRECTIVES  TO  LINK  EOIT  REAL  ABSCLUTE 

oan.syS'Mapopt  a stanoaro  map  options  when  link  eoitino 


EXCEPTIONS 


I.  RESULTS  ARC  UNOEPINCD  UNLESS  THE  PILE  OAK.  1$  aASO-0  1 aPRCP-0. 


OLOBAL  OECLARATIONS 


(PROORAH  Type  is  PRE-LOAOED  by  exec  'NTO  RCOISTER  A<*  AS  POLLOMS: 
I 2 • REAL  time 
I S • LOU  EXEC 
I <*  > OEMANO 
I S • OEAOLINE  BATCH 
( 6 « BATCH 

(aXOT  OPTIONS  ARC  PRCLOAOEO  BY  EXCC  INTO  RCOISTER  AS  IN 


L*S7t 


I 


/ 


NOIX  L 
un  NC8 


nTCLAtt/vinruAi 

ooe 


(HAtrCN  Itr  NOTAriON. 


. LOCAL  OCCLAMAriONS 


AXOf 

t(00>  . O'OANK 

SS8M  rORN  6.6.8.10 

lint  l8>090*X8X333HHHi»H<»9SS8SS6e666e77777700e000899999 
LA980r  888N  080.1. *r*.0  . LA8CL.  I HO.  rORTRAN.  flCLOATA 

LAOiNO  **8orr«* 

NAR80r  888H  000.9.0.0  . DATA.  9 M08.  . riCLOATA 

NAPinO  *«X0r8>  HAP.PZN  0An.PLrCLA88*NAP.PLrCLA8S  . :aXQT8‘ 


AOOSOP 

SSSH 

000.9.0.0 

ADD! HO 

‘SXQTSt  ADO  Dan. SYS 

xorsDP 

SSSH 

000.9.0.0 

xotiho 

‘OXOTSi  XQT.I 

EOPSOP 

- 

0 

PP 

PORH 

19.6. 19 

CSPASO 

’•ASO.r  90.  . 

esPAOO 

’lAOD  90.  . ' 

SAVREO 

RES 

I 

lOPKT 

ISOO 

*90*. HS  33.LABS0P 

. PROCEDURE 

scon  . 1 

•SANK 

PLTCLASS* 

LA.U 

AO.* 

TNE.U 

A*».*» 

SA.S9 

A0.HAPIH0*9 

LA 

AO.ICSPASO) 

ER 

CSPS 

. 

SA 

AO. SAVREO 

• 

PSRINT 

CPP  9.1 .SAVREO*  . 

OETOPT 

PUTOPT 

OS 

A9.X0T|M0*9 

SA 

AH.XOTINO*** 

URI  TC 

LA 

AO.IIOPKTI 

ER 

lOUS 

ADO 

LA 

AO.ICSPAOOi 

ER 

CSPS 

ER 

EXITS 

END 

PLTCLASS 

-NAPOPr  . t 0X078’ 

PLTCLA88  . :|XQ78* 
eNO*or*riLC  8top  horo 


. ’O’  0 


AO  • 

SKIP  Ncxr  iNsr  tr  ah<><*  (not  ocnanoi 

OenANOI  9LANK  OUT  N OPTION 
AOORCSS  OP  OASO  INAOC 
00  IT 
STORE  0 

PRINT  lASO  status 

LOAD  OPT  LTRS  INTO  AO. A3. AH 

STORE  OPTION  LETTCRS  into  OXOT  IHAOE 
(3  UOROS  ->  NAX  19  OPT  LETTCRS) 

ADDRESS  OP  I >9  PACKET 
HRITE  SOP  INAOES  to  ?0. 

ADDRESS  OP  lAOO  INAOE 
CO  IT 
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T 


001 


OLTCLAOS  OVCOIAY  OrOUCTUilC 


• 

Nl STORY 

• 

• 

A 

R C NARVCSON 

Lce 

11/07/79 

• 

• 

C N SCHLOSSCR 

LCC 

09/B9/79 

LIB 

OAH. 

SCO 

S-MAIN 

IN 

OAH. ALTCLASS/  . 

MAIN  PROORAH 

IN 

OAM.NVIATO 

NANC/CALL 

*VIA*  ANO  ' 

IN 

0AH.NULSU9 

00  nothing 

IN 

OAH.SYS-BLOCK  . 

BLOCK  data 

SU0ROUTINC 

nooinco  roon  AorcLAts-nAA 

MACRO  COMMANOS  I TINC  COHMANO 


SUOROUriNCS 


. HONirOR  rOR  RNASe  O.t.0.9  COMMANOS  

IN  OAM.RLCOOO  . CALL  USCR-SRCCir ICO  PHASC  0 ROUriNC 

IN  OAM.RLCI09  . CALL  PRCVIOUSLV  NAMCO  RNASC  I /C/9  *T0*  ROUTINC 

IN  0AH.NTA99/0AH  . 0AM  UNIT  # TAOLC  OOCS  IN  SAMC  SCO  U/  PORTRAN  I '0 

SCO  start-stor* 

IN  OAM.RLCXQT  . ALTCLASS  INITIALIZATION  ROUTINC 
IN  OAM.ALCCXI  . ALTCLASS  TCRHINATION  ROUTInC 


9C0  SACCirv* .start 
IN  OAM.KMOCLC 
IN  OAN.KNOCOA 
IN  OAN.KNOOCN 
IN  OAM.KNOCXA 
IN  OAM.KMONCA 
IN  OAM.KNONCR 
IN  OAM.KMONCH 
IN  OAM.KMONCX 
IN  OAM.KMOOPP 
IN  OAN.KHOON 
IN  OAH.KMOORI 
IN  OAM.KNOPAO 
IN  oam.knoalo 

IN  OAM.KMORCN 
IN  OAN.KMOSCA 
IN  OAM.KHOSrM 

IN  oan.kmotic 
IN  oah.knotim 
IN  OANt-KHOUlN 
IN  OAN.KMOXXX 
IN  OAN.KHOZON 


-STOP 

CLCAR  MARNINOS'CRRORS 
OCT/CMCCK  NUHICR  OP  OUTPUT  COAICS 
OCT/CHCCK  OCNSITy  LIMITS 
CXALAIN  AROORAM/COMMANO 
OCT/CHCCK  PAOC  hCAOINOISI 

OCT/CHCCK  TRaNSVCRSC  mcrcator  CCNTRAL  mcrioian 
PRINT  News 

conoitionally  pcaporm  ncxt  commano 

Turn  opp  mooc  smitchicsi 

Turn  on  mooc  smitchicsi 

OCT/ChCCk  nINOOW  ORIOtN 

SKIP  TO  TOP  OP  NCxT  PAOC 

OCT/CHCCK  PLOT.TCR  8PCC  I P I C*  T I 0N3 

RCNUMSCR  <OCT/CHCCK  NCH  UINOOH  SCOUCnCC  NUMBCRi 

OCT/CHCCK  UlNOOW  SCALC 

oct/chcck  symbols 

OCT/CHCCK  tick  uni TS/ I ntcrvals 

PRINT  CLOCK  TIhC  I CNAROC  T I MC 
OCT/CHCCK  HINOOM  CNVCLOPC/ VCRTtCCS 
MACRO  COMMANDS 

oct/chcck  utn  projcction  zonc 


SCO  NAA9UT«'.START-ST0A 
IN  OAM.ALCMAA  . MAP 


RAOIANCC/OCNSI TY/CLASS  IPHASC 


01 


L-J73 


OAN  ^ACKAOC  AMCNOIX  L 
HAIN  AKOOXANS/ROUriNCt 

IN  OAN.NLrCLAtt/VlNrUAL 


U 

At  rCL  AM  -HAN/  V I N TUAl 
001 


) 


4 


DAN  PACKAOC  AMCNQIX  L ftCOOD 

HAIN  AMOOAANt/ttOUriNCt  001 

ouooouriNC  neooof  • call  liMtAtc  o tuooouriiict  ro«  nrciAOO 
I NANOuoi  0 NAW  or  ouooouriNC  ro  call  ion  nulouoi 

c - — - 

e 

e 

e NitroNY 

c 

e 

C N C NANVCtON  LCC  11/07/70  NOOIflCO  rNOH  NNCOOO 

e C N tCNLOttCN  LCC  Ot/tO/70  HACNO  COHnANOt  A rinC  CONNANO 

e 

c 

c nctnoo 

c 

c 

C NCxr  COflHANO  It  NCYNICVCO.  VALIOATCO.  AND  I Tl  tUONOUl>NC  CAUCO. 

c 

e 

c NACNiNC'OcrcNOCNr  eooc 

c 

c 

C NONC. 

c 

c 

c cxrrRNAi  NcrcNCNCCt 

c 

c 

C NCAOS  0 NCAO  rUNCNCO  CANO  ON  TCNNINAC  INNUT  INTO  OurrCN 

c ocrtAL  0 oer  ALAMAoeric  conmano  fNon  ourrcN 

INTCOCN  ICC  • iNreoCN'CNAN'COUl V rON  CHANACrCN 

C MANNS  • AN I NT /LOO  MANN I NO  NCttAOC 

C NIC...  • OCOICATCO  SUONOUriNC  rON  CONNANO  ...  (sce  OCLOWI 

C KNO. . . • CONHON  tUONOuriNC  NON  CONNANO  ...  <tCC  OCLOUl 

c 

c 

C CXCCNTIONS 

c 

c 

C I.  A OLANK  CONNANO  It  lONONCO. 

c 

C A.  AN  INVALIO  CONNANO  OCNCNaTCS  A OlAONOSMC. 

c 

c I.  AN  CNO*or«riLC  on  unit  s it  TRCAreo  ^mc  sanc  as  thc  cxir  co'-nano. 

c 

c 

C OLOOAL  OCClARAriONt 

c 

c 

iNCLuoc  NULCtr.Lisr  • oeriNC  null  cnanactcr  sinino 
c 
c 

C local  OCCLARATtONt 

c 

c 

INYCOCR  KONO  • riNtr  S CMARO  or  UtCR  CONNANO  (OLANX  AfTCR  DONE 

INTCOCR  LStTAT  • RCaOS  OTaTuS  <‘COr*  NCANt  CNO-Or-riLC? 


L«|7S 


wooo  u u u u uuou 


neooo 

oof 


INTCOCK  KAOC  0 tlOOiriCO  l-C-C  Of  rtMOr  CNAO  or  CONNANO 

e rooecouiic 

e CAiL  MCVIOUOLT  NAHCO  OUOOOWriNC 
CALL  TRACC 

CALL  MANOUi  0 CALL  TO  NULtUi  OOCO  NOTNINO 


OAN  OACKAOC  AMCNOIK  L 
NAIN  rMOORANO/NOUMNCt 


ncao  conn«NO  roon  unit  9 (Cand  acaock  oa  rconiNALi 

KONO«*  NUL’  0 inrOtOIOLC  INAUT  INOT  LCfT  JUtTirtCOI 

CALL  NCAOS'LSOrAT . ‘ *l  • TILL  OUrfCA.  OLANK  CuC  HCSSaOC 

iriLOorAT.NC  *t  Kono>‘t;or9* 

iriKOHO.NC.  tors* I call  oct9alikono. <xi . NULCon  a oct  s alana  cmaas 


coNvcor  riNOT  chaaactcr  or  connANO  ro  iNreocN*CNAAACTCK*CQut valcnt 
KA9C>ICC(K0N0l>ieCI *A’I»I  • A TO  Z • t TO  00 


CASC  statchcnt  on  Hooirico  i*c>c  or  connano'S  riosT  chaaactcr 


iri  ikaoc.lt.  1 1 .ON.  iKAOC.or  .ton  kaoc«07  a not  alnma 
00  ro( 

0 «*0t  .iiOf  .•*03.A0«.<»09.<*0O.**07.«*0O.A09.>*l0. 

1 *Mt  .AIO.<*l3.<*t**.«l9.**iO.<*lT.i»lO.'*l9.<»00. 

0 HOI  .«00.<*t3.*»C<*.«»09.>*r0.<*07l 

A .KAtC 

c 

c 

c OCTCNHInC  COHNAnO.  ACarONH  COHA^NO.  CNANOC  kono  to  OLANK 

c 


WQI  CONTlNUC  a***  A 

••00  continue  a***  0 
00  TO  000 
C 

*»03  continue  a***  c 

ir (kOnO.EO. ’CLE* I CALL  KNOCLEIKONO* 
ircKONO.EO. *C0A* I call  knocoaikonoi 
00  TO  000 
c 

NON  continue  a***  0 

iriKONO.co. *oen* > Call  knooenikonoi 
00  TO  000 
c 

N09  continue  a***  E 

triKONO.EQ.  E0r9* > CALL  AICCAIIKONOI 
iriKONO.EO. *EKI * I CALL  ALCEx|(K0N0< 
iriKOHO.EQ. ’EXA* t CALL  KHOCXAIKONOI 
00  TO  000 


A CLEAN 

a ccAics 


a oCNStrr 


ENO'Or-riLE  CAUtES  EXIT 

a EXIT 

a CXALAIN 
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PLCQOO 

DOS 


NOS  continue  r 

NO?  CONTINUE  •••<  0 
00  TO  800 

NOS  CONTINUE  H 

IPIKOHD.EQ. *HEA‘ I CALL  KHOHEAIKONO* 
00  TO  000 

N09  CONTINUE  >««<  I 

Nio  continue  -i 

Nil  CONTINUE  a««*  K 
NIP  CONTINUE  »•••  L 
00  TO  000 

NI3  CONTINUE  N 

irCKOHO.EO. 'NAP* I CALL  PLCHAPtKONOI 
irCKOHO.EQ. ’MER‘ > CALL  KHONER(KOMO) 
00  TO  000 

NIN  CONTINUE  a***  N 

iriKOHO.EQ. *NEU* ) CALL  KHONEUCKOHO) 
irrKOHO.EQ. 'NEX* ) CALL  KMONEX(KONO) 
00  TO  800 

NIO  CONTINUE  a«<*  0 

irixoHO.EQ. ’orr • ) call  kmooffckomoj 

IFIKOHO.EQ. ’ON  ’>  CALL  KNOONCKONO* 
IFCKONO.EQ. ‘ORI  ' ) CALL  KHOORKKONO) 
00  TO  000 

NIO  continue  a«««  p 

IF(K0N0.EQ. ‘PAO’ ) CALL  KNOPAO(KONO) 
IFIKOHO.EQ. ’PLO’ 1 CALL  KHOPLOIKOHO) 
00  TO  800 

N17  continue  a«««  Q 
00  TO  800 

N18  continue  a*<<  R 

IFIKOHO.EQ. ’RAO’ I CALL  KMORAOIKCHD) 
IFIKOHO.EQ. ’REN’ I CALL  KHORENIKOHO) 


00  TO  800 
C 

NI9  continue  a***  S 

IFIKOHO.EQ. ’fCA' I CALL  KHOSCAIKOHO) 
IFIKOH..EQ. ’5YH’ I CALL  KMOSYHIKOMOl 
00  TO  800 
C 

NEo  continue  a««*  t 

IFIKOHO.EQ.  ’TIC’ ) CALL  KHOTICIKOHOI 
IFIKOHO.EQ. ’TIN’ 1 CALL  KHOTIHIKOHO) 
00  TO  800 
C 

HEl  CONTINUE  a*«*  U 
NEE  continue  a«*«  V 


a HEAOINO 


a NAP 

a HERIOIAN 


a NEWS 

a NEXT 


a OFF 
a ON 

a ORIGIN 


a PACE 
a PLOTTER 


a RADIANCE 
a RENUHBER 


a scale 

a SYHBOLS 


a TICKS 
a tine 


L-377 


o o o o oooo 


OAN  AACKAOC  APPCNOIX  L 
HAIN  PROORAHS/ROUriNCS 


983 

V W V 9#  VWV 

CONTI Nue  u 

iriKono.CQ. 
00  TO  800 

'MIN’ > 

CALL 

KHOMINIKOHOI 

a 

Ml  NOON 

i»8H 

continue  •••*  X 

H89 

CONTINUE  a* 
00  TO  800 

• • Y 

N86 

continue  a*«*  z 

IFIKONO.EQ. 
00  TO  800 

'TON'  » 

CALL 

KHOZONIKOHOI 

a 

ZONE 

N87 

continue  a* 

• • not 

alphabetic 

IPIKOHO.EQ. 

'aAO' 1 

CALL 

KNOOAOIKOHOI 

a 

aAOO 

IPIKOHO.EQ. 

'SAO'  > 

CALL 

KHOOAOIKOHOI 

a 

SAOO 

tPiKONO.CQ. 

'SAS'  > 

CALL 

KNOOASIKONOI 

a 

SASO 

IFIKONO.EQ. 

'SBR'  > 

CALL 

khcobrikohoi 

a 

sbrkpt 

IPIKOHO.EQ. 

'SPR'  I 

CALL 

KHOOPRIKOHOI 

a 

SPREE 

IPIKOHO.EQ. 

' $L  0 ' » 

CALL 

KHOOLOIKOHO) 

a 

SLOO 

IP  cohhano  mas  not  pound,  try  NACRO-CONNANO 

800  IPIKONO.NC.'  'I  KOMO-'PLC-'  • 1ST  3 CHARS  O'  PROO  NAHC  PLUS  *•' 

IPtKONO.NC.’  ')  CALL  KNOXXXfKOnOI  0 MACRO  COMMANO  HANOI  CR 


PLCOOO 

OOH 


COHHANO  IS  INVALID  IP  STILL  NOT  POUND 

IPIKONO.NC.'  *>  CALL  MARN5C  'INVALID  COMNAND  -•') 

C 

c 

C PORCC  ALL  PORTRAN  I/O  ROUTINES  INTO  SAHC  SCO  AS  PLCOOO  (NCVCR  PCRPORMCO) 
C 

IPIKOHO.CQ. ' JUNK' ) RCA0I89S.89S>  KOHO 
899  PORNATI IX) 

C 

C 

C RCTURN  TO  MAIN  POR  CALL  VIA/TO  NAHCO  SUBROUTINC  IN  ANY  OVCRLAT 

c 

RCTURN 

CNO 
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PLCIR9 

001 


cNor  iNPLcncNreoi 


u 

OAH  PACKAOC  APPCNOIX  L PLCCXI 

MAIN  PROOAAnS/ftOUriNCS  001 


rNor  inPLCNCNreoi 

s 


) 


1*300 
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PLCNAP 

001 


OUOROUriNC  PLCNAPI  • iNiriATC  PLOTTINO  OP  CLAS8KICATI0N  HAPISt 
u KOHOi  a It  PiRSr  3 chars  op  COHHANO  Oi  SPACES 


HISTORY 


R e NARVeSON  LEC 

E H 8CHL0SSER  LEC 


18/10/70  nOOlPIEO  PROH  PRCHAP 

Ot/IS/79  REVISE  a OOCUHENT 


HETHOO 


?T?7 


NACHINE-OEPENOENT  CODE 


NOHE. 


CXTCRNAL  RCFeRENCCS 


OETSIN 

WARNS 

NOUARN 

CALSVU 

CALSCA 

CALHtN 

OPENPL 

HAPLOT 

SUBHIN 

HOCLRU 


a oet/check  integer  piclo  proh  unit  s 

a OUTPUT  NARNINO  OlAONOSTtC  POR  PREVIOUS  PIELO  PROH  UNIT  9 
I OUTPUT  NARNINO  DIAGNOSTIC 
a CALIBRATE  SYMBOL  TABLE  POR  PLOTTING 
a CALIBRATE  PPO  transformations  FOR  SCALE  A DEVICE 
a CALIBRATE  HINDOH  ENVELOPES  i VERTICES 
a OPEN  plot  pile 
a GENERATE  MAP  ON  PLOTTER 

a break  HINDOH  INTO  SUBHINDOH  MAPS.  BASED  ON  PRIMARY  TICKS 
a CLEAR  COUNT  OP  ’HARNlNO’  DIAGNOSTICS 


EXCEPTIONS 


I.  TT?7 

OLOBAL  declarations 


C 

C 


INCLUDE  KDMXQT.LIST 
INCLUDE  UINDEP.LIST 
INCLUDE  KOMIHW.LIST 
include  KOMOHH.LIST 
INCLUDE  NULCST.LIST 

external  maplot  a 


a COMMON  PROGRAM  EXECUTION  SHI'CHES.  COUNTCRS 
a DEFINE  STRUCTURE  OP  HINOOH  PACKEYs 
a COMMON  INPUT  HI  NOON  PACKETS 
a COMMON  OUTPUT  HINOCH  PACKETS 
a DEFINE  NULL  CHARACTCR  STRING 
GENERATE  MAP  ON  PLOTTER 
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C LOCAL  OCCLARATIONS 

C — 

C 

INTCOCR  N8UBU  I HAXiNUH  NUNBCR  OF  8UBUIN00US 

INTCOCR  ITCNP  • rCHPORARV  INTCOCR 

C 
C 

C PROCCOURC 
C 

e 

c 

CALL  TRACE 


« 


a 


OCT/CHCCK  NUNBCR  OF  SU8-MINOOH8 
NSUBH*0 

CALL  OCTSININSUBH.  I.SOO.'BAO  NUNBCR  OF  SUB-MINOOUS 
IFINCFIRN.NC.OI  HRITCCO.ItSI  NSU8H 
Its  FORNATI’  NAP.  '.I3.‘  SUB'Hl NOONS  * ) 


CALIBRATC/CHCCK  SPECIFICATIONS 

IFCNNNOOH.CQ. 01  CALL  MAftNSC  'INVALID  OCFAULT  CONNANO  --*>  ^ 

CALL  OETSINI I temp.  *1.-1, 'EXTRA  NAP  SPEC  I F I C A T I ON  > ) 

CALL  CALSTL 

CALL  CALSCAC  FLOAT ( L I NCH) . FLOA T I K I NCHI I a-A«a«a*a>  NCCOS  REVISION  «a 

CALL  CALHINC  O.CS* 

IFINCHCCK.NE.Ol  00  TO  900 


CHECK  IF  ANY  DATA  LIES  HITHIN  OUTPUT  MINOOH 

IF( (NSAOHHCUL IN. HNAX) . OC . MSA  I HH( HL I N . HNAX I I . OR. 

I INSAOHMtML IN.UNAXI . LE . MSA  I NH I HL I N.NNINI)  . OR. 
a (NSAOUUIHSAH.HNI Nl  . OE . NSA I UN ( H8AN , UNAX  I ) . OR . 
a (NSAOUWtUSAN.UNAXI .LE.NSAlUU(HSAN.UNtN) n CALL  N0UARN( 
• 'NO  NSS  data  UITHIN  MlNOOU'l 


OPEN  PLOT  file 


;f  not  open. 


CLEAR  UINOOU  NUMBER  a 


RESET  pace  number 


IF'NOTOTL.NE.OI  00  TO  900 

IFtNUNOOU.LT . 01  CALL  OPENPL  » OPEN  PLOT  FILE  BEFORE  IS'  HlNOOU 

NUNOOU* I ABS ( NUNOOMI 
NPAOE‘0 
C 

c 

C OCNCRATC  HlNOOU  NAP 
C 

IFINSUBM.NE.Ol  00  TO  vOO 
CALL  NAPLOT 
00  TO  900 
C 
c 
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e OCNCRATC  OCOORAPNIC  SURUINOOU  NAPS 
C 

«»00  IPMKSYOUM(HriCI  .NC.  *0C0*)  .AND. 

I IKSYOUHIHTICl .NC. ’HIN't I 00  TO  600  • NOT  OCOORAPHIC 

CALL  SueuiNf  OeOONH.NSUSU.HAPLOrt 
00  TO  900 


OCNCRATe  UTN  SueulNOOU  HAPS 

600  irc IKSYOHHCMTIC) .NC. 'KH  ‘I.ANO. 

A (KSYOHU(HTIC> .NC. 'NCT’I I 00  TO  800  • NOT  UTH 

CALL  SU6HINI  UTNONH.NSUSH.nAPLOr I 
00  TO  900 


INVALID  TICK  INTCRVAL  POR  OCNCRATINO  SUBNINOOU  NAPS 

600  CALL  HONARNI  ‘SUBHINOONS  NOT  ALLOUCO  FOR  CURRCNT  PRIMARY  TICKS 


ANY  01 AONOSTICST?? 

900  IFINOFATL.CQ.OI  00  TO  9B0 

CALL  HONOrCf  'PRCVlOUS  FATAL  CRRORS  ••  NO  NAP  OCNCRATCO') 
00  TO  990 

9B0  IF(NOHARN.CQ.O)  00  TO  990 

CALL  NONOTCI  'PRCVtOUS  WARNINGS  ••  NO  NAP  OCNCRATCO'I 
IFINBATCH.CQ.OI  URITCIS.SeS) 

9BS  F0RNATI4X. ’••TRY  AOAlNI*) 

CALL  NOCLRNI  NULCSTt 
990  WRITC(6.99S> 

99S  FORNATl ’0  ' i 
KONO>* 

RCTURN 

CNO 


L>363 


PL CRAP 
90S 
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Micxor 

OOt 


tUOMOUTINt  MLCXOr  • INI  Tt  AL  IZAT ION  HOUTINC  PON  N<LTCLASS 


IN  C NANVCSONI 


CXTCNNAL  SUaNOUriNCS/PUNCriONS  CALLCO 


C PSTART 

C NVIAIO 

c CRCsr 

C 0PNI2N 

C Cl  SHOO 

c 

c 

iNCLuoe  KOHXQT.iisr  a cohhon  prooran  execurtoN  smitchcs.  counters 
external  plcooo.nulsub 
c 
c 
c 

c ioentipy  prooran 
c 

CALL  PSTARTI  ‘OAH  PL TCL ASS ( 79031 ’ > 

5 ! ) 

C ON  RETURN.  CALL  PLCOOO  TO  OET  OEPAULT/USER  CONNANOS 
C 

CALL  NVIATOt  PLCOOO . NULSU0I 
C 

c 

C OPEN  OETECTION  piles  ano  ioentipy  erts  scene 

c 

CALL  OPNIEN 
CALL  CL  SHOO  I S> 

C 

c 

C QUEUE  DEPAULT  CONNANOS  PRON  PRIVATE  PROORAN  PILE  OR  OAN  PROORAN  PILE 
C 

300  CALL  SYSAOOdOCPIL  . ’ NACOAN  ' . * OEP -PL  TCL  ASS  ' . ' '> 

IPILOCPIL.LE.OI  CALL  S YSAOO i L OCP I L . ’ OAN * . ' OEP -PL TCL ASS ’ . • •' 

IPILOCPIL .LE.OI  CALL  NOPATLI  ’NO  OEPAULT  CONNANOS’) 

C 

c 

C RETURN  TO  NEXT  STaTEnENT  IN  CAL*.  INO  ROUTINE 

RETURN  * 

ENO 
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« 

f, 

I <>  (NOT  INPLCNCNrCOI 

I • 


iricpL 

001 


r 
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nncPL 

001 


(Nor  iHOLCNCNrcoi 

* 


I -see 


OAN  ^ACKAOC  A^^CNOIX  L 
MAIN  MOOftANS/MOUriNCS 


Ml TNPL 
001 


I NOT  INOLCNCNreOi 
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onm.c 

001 


(NOr  INOLCNCNrCOt 


I 


NOIX  L 
luriNCs 


He  one 
001 


(Nor  inncNCNrcot 
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rinCLAtt 

001 


MOOOAH  rknCLAOt  not  tnALCNCNrCO 
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status 

001 


PPOORAN  status 


IE  H SCHLOSSER) 


THIS  PROORAN  ALLOWS  A USER  OP  THE  OAH  PACKAGE  TO  OETEFttllNC  THE  STATUS  OP 
SPECIPtEO  BATCH  OR  OENANO  RUNS. 

TO  RETRIEVE  SUNHARY  INPORHATION  ON  A RUN.  ENTER  THE  RUNIO.  TRANSPARENT 
CHARACTERS  l/>  HAY  BE  INBEOOEO  IN  THE  QUERY  RUNIO  TO  CAUSE  THE  RETRIEVAL  OP 
SUMMARY  INPORHATION  ON  A SELECTEO  SCRIES  OP  RUNS. 

TO  retrieve  OETAILEO  INPORHATION  ON  THE  PROGRAMS  CXCCUTEO  WITHIN  A RUN. 
ENTER  the  run  INDEX  (OISPLAYEO  IN  THE  SUMMARY  I NPORMA f I ONI . 

TO  TERMINATE  PROORAN  EXECUTION  ENTER: 

EXIT 


EXTERNAL  subroutines/ functions  CALLCO 


PSTART 

ERCSP 

HOLOG 

REAOS 

ERIOH 

PSTOP 


C 

C 

C 

C 


COMMON 
I LCPKTiei . 

Z LOHOR.LOPLO.LGPHI .LORHI .LOMAX 

3 ncue.linoex.lorncu. 

•*  LOROLO.PUTUREiai  .LPCT(aS)  . 

5 LPIOTI IS) .XXI 13)  . 

6 LOIAGNI  151  . YYM  31  . 

7 LTERMM:*)  .zzron  .LSUPS 

OAT A LOPKT  /•!•.•  • .H*0 ' 

INCLUDE  KOMIO.LIsr 
INCLUDE  NULCST.LIST 
DIMENSION  MSOCUEI 15) 
data  MSOCUE/ 

A ‘ENTER  i^UNIO’ .NULCST. 

A 'ENTER  RUNIO  FIRST  TO 
A ‘CNTtR  RUNIO  OR  INDEX 
DIMENSION  MSNONCr'^i 

data  MSNONE/*  RwN  77?77?  NOT  IN  LOO'.NULCST/ 


a I/O  PACKET  FOR  LOO  FI'wE 
a LOG  FILE  HEADER 
a INTERNAL  POINTERS 
a LOO  PILE  SECTOR  LINOEX«0 

a LOO  PILE  SECTOR  LINOEX*! 

a LOO  PILE  SECTOR  LINOEX*a 

8 LOO  FILE  SECTOR  LlNOCXr} 


a DEFINE  NULL  CHARACTER  STRING 


FIND  INDEX’ .NULCST. 
’ . NULCST/ 


a 0INULCST3 

a ox -lO 
a 1 1 -IS 


initial IZE 

CALL  PSTaRTC  ‘DAM  ST A TUS i 8009) ‘ > 

NCUE>I5  a NO  CUE  MESSAGE 

NACCT>I9  a DON'T  PRINT  ACCOUNT  NUMBERS 
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NPUtlN*C0  • NAX  NUH8CR  OP  RUNS  LISTCO  TOR  NON'PRI V UeOOCO  USCR 
CALL  CRCSrilSTAT.’iAOO  OAN. OCP 'STATUS  . *1 


RCAO  CONNANO  PRON  UNIT  S (CARO  RPAOCR  OR  TCRNlNAL* 

300  KONO«* 

CALL  RCAOS(LSSTAT.  NSOCUC (NCUC > I A 

IP(LSSTAT.NC. * *>  KOHO*'CXIT* 

IP(KONO.rO.'  ’>  CALL  OCTSKNCKONO. (61 . NULCSTI  • OCT  6 ALPHA  CHARS 
C 
C 

C CONVERT  PIRSr  CHARACTER  OP  CONNANO  TO  I NTEGER-CHARAC TER -EQUl VALENT 
C 

360  KASE>ICE(KOHOi -ICE( *A')*|  A A TO  Z - I TO  06 

C 

c 

C CASE  STATENENT  ON  NOOIPIEO  I -C-E  OP  CONNANO‘8  FIRST  CHARACTER 
C 

IP( (KASE.LT. I I . OR. (KASE. or .061  I KASE-07  A NOT  ALPHA 

00  ro( 

0 '♦Ol  ,H0O.'*03.'*O'*.'*05.'»06.'*07.'*0e.'*09.'*l0. 

1 VII  .•»  1 0.  H I 3.  V !•».<»  I 5.  HI  6.**  I 7.  VIS.  VI  9.  **00. 

0 voi  .v00.v03.vov.>f0S.v0S.v07i 

A .KASE 
C 
C 

C OETERNINE  CONNANO.  PERPORN  CONNANO.  CHANOE  KONO  TO  BLANK 
C 

vot  continue  »•••  A 
voo  continue  a«««  b 
VOS  CONTItiUE  A«««  C 
vov  CONTINUE  A<*«  0 
00  TO  SOO 
C 

VOS  CONTINUE  A*«*  E 

IP( (KONO.EQ. ‘EXIT  • t . OR. 

A (KONO.EQ. ’EXI  'll  CALL  PSTQPf NULCST I 

in (KONO.EQ. 'EXPLAI ' 1 .OR. 

A (KONO.EQ.  'EXPLA  * I . OR . 

A (KONO.EQ. 'EXPL  ' i .QR. 

A (KONO.EQ  ‘EXP  *1)  CALL  KNOEXPtKONOI 

00  TO  500 

C 

VOS  continue  a«**  p 
V07  continue  a***  G 
VOB  CONT INUE  a*  * * H 
V09  CONTINUE  a*<*  I 

vio  CONT inue  a***  j 
00  TO  SOO 

c 

VII  continue  a«**  K 

IPIKONO.EQ. 'KEY  'I  CALL  STAKEYIKONOI 
00  TO  SOO 

VIB  continue  a***  L 
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SrATUS 

003 


•»I3  CONTINUe  n 

00  TO  SOO 


c 

•»!•»  CONTINUC  N 

iruKONO.eo.  ‘nchs 

0 (KOHO.CQ. *NCH 
IF( IKOHO.eO. ‘NEXT 
0 (KOHO.eO. *NCX 
30  TO  SOO 

c 

. CONTINUe  »**•  0 
IF (KONO.CQ. ’OFF 
IFCKOHO.CQ. ‘OFF 
IFrKOnO.CQ. ‘ON 
GO  TO  SOO 
C 

•*16  continue  a***  P 
•*17  continue  a<*«  0 
Hie  continue  a*«*  r 
HI9  continue  a*««  s 
H60  continue  a<«*  t 
HEi  continue  a*«*  u 

HOO  CONTINUE  a««*  V 
HS3  continue  a**«  H 
heh  continue  a«««  X 
H35  continue  a«»«  r 
H36  continue  a«*«  z 
00  to  SOO 


’ > .OR. 

‘II  CALL  KNONEHIKONOI 
•I .OR. 

‘II  CALL  KNONEXIKOHOI 


‘I  NCUE«I  a ASK  FOR  RUNIO  AFTER  DEFAULT  COHNANOS 

‘I  CALL  KNOOFFIkONOI 
‘I  CALL  KMOONIKONOI 


C 

H37  continue  a<*«  NOT  alphabetic 

IF(K0M0.EQ.‘  ‘I  00  TO  300  a IGNORE  BLANKS 

00  TO  600 


LIST  RUN  SUNNARY 

SOO  IFfKONO.EQ.*  ‘I  00  TO  300  a CONNANO  ALREADY  PROCESSED 

NRUNS«0 

nyrnsp«o 

CALL  3ETRUN 

NCUE«I1  a ASX  FOR  RUNIO  OR  INDEX 

00  TO  300 


LIST  PROORAN  EXECUTION  SUNNARY 


600 


630 


OHO 


Call  unccts 
L 1N0EX>999999 
Call  oetsinilinoex. 
IF(LIN0EX.EQ.999999l 
IFILGNAX.NE.OI  00  TO 
NCUE-H  a ASK  FOR 


H.SOOO.NUuCSTJ 

CO  TO  SOO  a NOT  A VALID  INDEX. 

6H0 

RUNIO.  NOT  INDEX! 


00  TO  300 
CALL  OETXQT 

IFILINOEX.EQ.OI  00  TO  300 
CALL  RCAOSUSSTAT.  ‘ ‘I 


HUST  be  RUNIO! I 
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00** 


IPtLSSTAT.eO. *C0r*l  call  PSTOPtNULCSTi 
CALL  OCTSKNtKONO. (61 . NULCSTI 

iriKOHO.CQ.  * *>  00  TO  6*»0  A NONITOR  ACTIVC  PROORAH 

00  TO  360 
C 
C 
C 
C 
C 
C 

c 

SU8R0UTINC  STAKev(KONOI 
CALL  oersKHfKcy. (Si . nulcsti 
CALL  VALKCvrKevi 

NACCr>ai  • PRINT  ACCOUNT  NUHOCRS 

NRULln«99999  • ALLCM  ANV  NUNOCR  OF  RUNS  TO  BG  LISTED 

UR  I TEC  6. I OS  I 

I OS  FORNATf • ♦♦destroy* 8ECURI TY«KEY«  • ) 

K0H0-* 

RETURN 

C 

C 

c 

c 

c 

c 

subroutine  OETRUN 
c 
c 

c 1 1 I 1 1 l^^^^^^333333•»•(*♦•»•*^5SSS5S666666 

INTEOER  JUSERlSi  ' AUSE  REAOSX.  .SYSS*REA0SXNNNNNN.  . */ 

INTEOER  JAS0R(3I  /'AASO.A  REAOSX.  . 

INTEGER  JFREERI 31 / ’ aFREE  REAOSX.  . 

INCLUDE  FACBIT.LIST 
C 
C 

C COUNT  transparent  (/)  RUNIO  CHARACTERS 
C 

DO  ISO  NCHAR>I .6 

CALL  OETCHRfKHAR.  KOMO.NCHAR) 

IFCKHAR.CQ. * / ' I NTRnSP«NTRNSP*I 
ISO  continue 

NRUNAX>NrRNSP*C 

CALL  OETSININRUHAX.  I.NRUUH.’BAO  HAXIHUH  RUN  number  --’I 
CALL  0ETSIN( I TEMP.  ♦l.-l, ’EXTRA  RUN  SPECIFICATION 
IF( NTRNSP . NE . 0 1 00  TO  170  9 ONE  OR  MORE  TRANSPARENT  CHARS 

C 
C 

C CHECK  RUNIO  FOR  INVALID  CHARACTERS 
C 

00  ISO  NCHAR-I.S 

CALL  OETICEINICE.  KOMO.NCHAR)  a GET  I NTEOER-CHARAC tER-EOUI VALENT 

IF( 

a (NICE.lt. ICE (• A* I .OR. NICE. OT. ICE r ’Z’ M .AND. 
a (NICE.lt. ICE( *0*  » .OR.NICE.OT. ICEi ’9’li 
a I 00  TO  170  a invalid  character 


* 
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160  continue 

C 

C 

C CHECK  ir  QUEUED  REAOtX  CARO  INPUT  FILE  EXISTS  FOR  SPECIFIED  RUNIO 
C 

JUSER(SI*KOHO  a RUNIO 
CALL  ERCSF( ISTAT. JUSER) 

CALL  ERCSFC ISTAT. JASORI 

IF(ACCEPT( ISTATI .EQ.O)  00  TO  170  I NO  REAOSX  QUEUED  CARO 

C 
C 

c identify  queueo  run  as  oackloo  or  active 
c 

L0RNEH--9999S9 
LPCTin-KOHD  8 RUNIO 

FL0C06.8.LPCTIESI )-6  a 'BATCH* 

LPCTdsi-'aaaaaa'  a date  > co/oo/«*  tine  - 00:00 

IF(0THRUN( ISTATI .EQ.O)  00  TO  165  8 NOT  YET  BE  I NO  USED 

LPCTHO)-’ tACTIV 
LPCTdSI-  'El* 

00  TO  167 

169  LPCTdB)-*  (BACKL  ’ 

LPCTd9>-  *00)' 

167  CALL  ERCSFdSTAT.  JFREERI 
CALL  PRTRUN 
C 
C 

C READ  LOO  file  HEADER 
C 

170  10SIZE(L0PKT)-5 

lOAOORCLOPKn  >loc(lohor) 

lOSECT(LOPKT) >0 

iofuncilopkti-’ok'  a read 

CALL  ERIOU(LOPKT) 

LORNEH-LORHI 

c 

c 

C CHAIN  READ  RUN  HEADERS  IN  REVERSE  ORDER 


ICSIZEILGPKn  .38 
lOADORlLGPKT I .LOC i LOROLO i 
BOO  lOSECTtLGPKTI.LORNEH 

lOFUNC ILGPKT t . ' 8K ' 8 READ 

CALL  ERtOU(LGPKT) 

lrfHATCHR(KOMO.LPCT( I ) 1 .GE. (6-NTRNSP) ) CALL  PRTRUN 
IF( NRUNS. GE . NRUHAX ) 00  TO  900 
irrLGROLO.LT. .4)  GO  TO  900 

in (lo^nem.oe.loplo) .and. 

I (LOROLO. LE.LOPLOl I GO  TO  900 
LORNEW.LCROLO 
00  TO  200 

c 

c 

C CHECK  IF  ANY  SPEC  I TIED  RUNS  MERE  FOUND 
C 


900  IFINRUNS. NE. 0)  00  TO  990 


status 
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INPUT  FILE 
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NSN0NCC2I*K0H0 
CALI  HOHARNC  N8NONO 
990  RCruRN 


PUNcrioN  NArcHRf jHOi . juoei 
c 

HArCHR>0 

00  ISO  NBIT-0.30.6 

IP(PL0>NB1T.6. JHOl > .eO.FLOCNBtr.B. JMOB) > MArCHR«HArCHR»t 
ISO  coNriNuc 
RCruRN 

c 

c 

c 

c 

c 

c 

subroutine  PRTRUN 

c 

01  HENS  I ON  NODE  161 

OATA  mode/ • hi  exec • . ’RLTIHE ’ . ’LOEXEC* . -OEHANO' . ’OEAOLN’ . 'BATCM* / 
C 

IP(NRUNS.EQ.O)  HRITEIO.ISS) 

139  rORNATI'O*/*  INOEX  run  10  HOOE 
I ’OATE  TIHE 

E 'QUALiriER  ACCOUNT'/IXI 

LTYP«rLOf06.6.LPCTf?S) > 

LNONaPLOIOO.e.LPCri I9> I 

LOAr-r'.ofOB.o.LPcrnsi  > 

LYR  •PLO(  IE.6.LPCT(  IS)  I »6<« 

LHR  ■ PLO( I 9. I B.LPCr I I 5)  I / 3600 
lN!N>(ri.O(  I 8.  I B.LPCTI  I S>  I -3600*  LHR  I '60 
WRI TE( 6. I 55 » LORNEH.LPCTf 1 ) . HOOE <L  f YP) . 

1 LHON.LOAY.LYR.LMR.LMIN. 

E (LPCTfN)  .N»I8.NACCn 
155  rORHAT( I6.EX. A6.EX. A6.EX. 

I JE.  • . JE.  • / • . JE.EX.  JE.  • : • . JE.?X. 

E EA6.EX.EA6* 

NRUNS>NRUNS*I 

RETURN 

C 

C 

C 

c 

c 

c 

subroutine  oetxot 

c 

OlHENSION  LQUALIEi.HOAYSdE) 

c 

C HONTH;  01  OE  03  0«>  09  06  07  08  09  IQ  II  IE 


status 

006 
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007 


DATA  HOAYS/ 31. as. 31 .30.31 .SO. St .SI .30.31.30.31/ 


RCAO  LOO  SeCTORS  TOR  FIRST  PROORAH  CXCCUTION  OF  RUN 

no  LsecTR*LiNoex 
LiNoex>o 

IF(LSeCTP.LT.»<»l  00  TO  010 
IFILSeCTR.OT.lOMAXI  00  TO  010 
IFIROOfLSeCTR.m .NC.OI  00  TO  OtO 

lOSIZetLOPKTIatOO  a 3 sectors  a first  16  UOROS  or  NEXT  SECTOR 
iosectilopkti -LSECTR 
IOFUNC(LOPKT)«*aK'  a READ 

CALL  ERIOMILOPKn 
IF( IOSTATILOPKTI .NE.01  00  TO  010 

IFIMATCHRILPCTI I I .LPCrian .LT.S)  00  TO  010  a ORIO/OEN  RUNIO  NOT  SiNILAR 
LTYP«FL0(06.6.LPCT(SSn 

IFfKONO.EQ. * *>  00  TO  310  a NONITOR  ACTIVE  PROORAH 

IFILOROLO.EQ.OI  CALL  WARNS!  'PARTIAL  RUN  INDEX  --'I 
LRORIO-LPCTI 1 I 
LROEN  -LPCrcai 
LHOYS*LPCT( 151 
LNON>FL0!00.6.LPCT(  IS)  I 
LOAr*FLOI  06.S.LPCT!  ISM 
LTR  •FLO!  12.6. LPCT!  tsn 
H0AVS(2)-28 

IFINOOILYR.NI .EQ. 01  N0ArS(2l>29  a LEAP  YEARI 

LOUALC I l>LPCT( ie> 

LQUAL(2I«LPCT( tSI 

WR I TEC  6. 1251  LSECTR.LRORIO.LROEN.LQUAL 

125  FORMAT! ‘O*/’  !*.J5.*i  • . A6 . ’ / ’ . A6 . * * * . 2A6/ I X . »M  • -‘li 

00  TO  310 
C 
C 

C READ  LOO  SECTORS  FOR  SUBSEQUENT  PROORAH  EXCCUTtONS 
C 

200  I0$ECT!L0PKT)-LSECTR 

IOFUNC!LOPKT)*'aK'  a READ 

CALL  ERlOWfLOPKTt 

IF  I 1 OST AT tLOPXT I . nE . 0 » 00  TO  900 

IFIMATCMR(LPCT( 1 I .LPCT(ai  ) .LT.51  00  TO  900 

ir!!rL0(6.6.LPCT(t5)l.NC.L0Ar).AN0. 

1 !FL0!6.6.LPCT(  15)  ' -HOO(LOAY.flOAtSfLMON)  1 ) .NC.  *1  ) 00  TO  900 

iriLPCT(8i  .NE.LP.  ENi  00  TO  '♦OO 
irtLPCT!  15)  .NE.LriOYSi  00  TQ  >*00 
c 
c 

C WRITE  QUALIFIER  IF  CHANCED 
C 

300  LINOEX«0 

IF! !LQUAL ! 1 1 .EQ.LPCT! IB) > . ANO. 

I !LQUAL (2) .EQ.LPCT! 191 n 00  TO  310 
LQUAL! I l«LPCT! IB) 

LQUAL!2)*LPCT! 19) 

HRITEI8.305I  LQUAL 
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SOS  PONMAri*  QUAurieM  chanoco  ro  * .»as/ix.hi * — .>.*n 
c 
e 

C um rc  PMOOMAM  tO/OATe/riHC  a OlAONOSriC/rCRHINAriON  LOO  CNTRICS 

c 

sio  HRireio.siSi  iPior 

SIS  PORMAT ( IX. ISA6I 

iPILOl AONfl I .NC. * *1  HRITClS.SeSI  LOIAON 

SSS  PORHArtSX.RO. IHASi 
uRircis.sss)  irtRii 

SS8  roRHArnx.i'*A6/ix.'»c* *n 

c 

c 

C CNCCK  PROORAH  TCRNlNAriON  STATUS 

c 

IPC ILTCRHI 1 1 .CQ.  * NORMA*). OR. 

A (LTCRMI 1 1 .eo.  * CRRO’II  00  TO  <*00 
IPILTCRHM I .NC. ’ ABOR’I  00  TO  360 

ipaTYP.eo.oi  00  TO  <»oo  a in  ochano  abort  does  not  kill  run 
00  TO  900 

c 

c 

C INCOMPLETE  PROGRAM  EXECUTION  ••  SAVE  SECTOR  POINTER 
C 

360  LINOEX-LSECTR 
C 

c 

c test  ano  increment  loo  index 
c 

<»00  iriLSECTR.EQ.LOPHl  1 00  TO  900 
LSECTR*N00(LSECTR. LOMAX) 

00  TO  BOO 

c 

c 

C PLAO  INVALID  INDEX 

c 

810  CALL  MOHARNI  'INVALID  INDEX--*) 

URITElS.eiS)  LSECTR 
819  P0RHAT(6X. 16) 

C 

900  RETURN 
END 


STATUS 

006 
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SrATUS'HIA 

001 


tTATUS  NICRAWCHY 


status 


1 

X t 

X 

: 

i X 

X 

1 

t 

X X 

X KHO... 

• 

t 

t 

X 

: 

CRCsr 

RSTOP 

: 

: 

ocr*srATus 

; 

: : t 

: i : 

t : : 

OCTRUN  PRTRUN  OCrxCT 
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RROONAN  status/ V I nruAL 


status/virtual 

oot 


I 


HISTORY 


C H SCMLOS8CR  LCC 

C H 8CHL0SSCR  LCC 


0t/0>/7<»  ORIOINAL  COOC 

II/06/7S  •HAR.rZiNit  NO  ‘N*  IN  OCNANOI 


NCTHOO 


CONSTRUCT  IHAR  CXCC  COHHANO  TO  LINK  RCAL  ABSOLUTC  IN  TPr$. 
CONSTRUCT  IXQT  CONHANO  TO  EXCCUTC  REAL  ABSOLUTE  IN  TprS. 
WRITE  SNAP  A IXQT  CONNANOS  TO  TEMPORARY  PILE  80. 
lAOO  TENPORARV  PILE  80.  TO  RUNSTREAN. 


nachinC'OEREnoent  code 


WRITTEN  IN  ASSEMBLER  POR  THE  UNI  VAC  1100  SERIES  COMPUTERS  UNDER  THE 
ExeC'B  operating  system  USINO  S-BIT  PIELOATa  ChaRACTCRS. 
IMPLEMENTINO  CODE  MUST  BE  REWRITTEN  roR  OIPPERENT  CHARACTER  COOES. 
OIPPERCNT  OPERATINO  SYSTEMS.  ANO  OIPPERENT  MACHINES. 


EXTERNAL  REPERENCES 


ER  CSPS  a 

ER  IONS  I 

ER  EXITS  a 

OAN. status-map 
OAH. SYS-MAPOPT 


PUNCTION  TO  SUBMIT  EXEC-B  CONTROL  STATEMENT 
initiate  I/O  ANO  WAIT  POR  COMPLETION 

terminate  program  execution 

a SYMBOLIC  MAP  DIRECTIVES  TO  LINK  EDIT  REAL  ABSOLUTE 
a STA.NOARO  MAP  OPTIONS  WHEN  LINK  EOITINO 


EXCEPTIONS 


I . 


RESULTS  ARE  UNOEPINEO  UNLESS  THE  PILE  OAM. 


IS  lASO-o  a aPREP- 


0 


i 


GLOBAL  declarations 


(PROORAM  Type  is  pre-loaded  by  exec  into  register  a<*  as  pollows: 

( 8 > REAL  time  , 

I 3 > LOW  exec  j 

I ■ demand  ] 

I S • DEADLINE  BATCH 

I 6 > BATCH  I 

(IXQT  OPTIONS  ARE  PRELOAOEO  BY  EXCC  INTO  REGISTER  AS  IN 


I..NO0 
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trAruS^VIATUAL 

oot 


iHAtrcR  air  NorArioN. 


. LOCAL  OCCLAnAnONS 


AXRt 

a 1 00  I . O'OANK 

atSM  roRH  e.a.o.ia 

1 1 1 1 1 tacfe«as33333>»*»>»«Hi»sssssse66e66777777eaoaoa9909a9 


L AB90P 

SS3H 

090.1. *P*.0 

LABI  NO 

• 

• SOPP*  • 

NAPSOP 

SSSH 

000.9.9.0 

NAPIHO 

• 

IXQTSi  NAP.PZN  OAH.STa 

AODSOP 

SSSH 

000.9.0.0 

AOOINO 

• 

•XQTSi  ADO  DAN. STS 

XOTSOP 

SSSH 

000.9.0.0 

XQTIHO 

• 

IXQTSi  XOT.t 

EOPSOP 

- 

0 

PP 

PORN 

It. 6. IB 

C9PA90 

*OA90.r  20.  . * 

CSPAOO 

*sA00  eo.  . * 

SAVREO 

RES 

1 

lOPKT 

1900 

‘to*. US  S3.LA0SOP 

• 

. PROCEDURE 

• — * — — — 

S(Otl  . 

I -BANK 

STATUS* 

LA.U 

AO.' 

TNE.U 

AR.R 

sA.se 

AO.NAPINO*e 

LA 

AO.(CSPASOI 

ER 

CSPS 

SA 

AO. SAVREO 

• 

PSRINT  (PP  e, 1 .SAVREO'  . 

OCTOPT 

PUTOPT 

OS 

A2.XQT|M0»2 

SA 

A<*.XQTinO>>» 

URI  TE 

LA 

AO.(tOPKT) 

ER 

lOUS 

ADO 

LA 

AO. (CSPAOO' 

ER 

CSPS 

ER 

EXITS 

ENO 

status 

LABCL.  I MO.  rORTRAN.  FICLOATA 
DATA.  9 M09.  . riCLOATA 

ruS-MAP. status  . iOXQTS* 

-RAPOPT  . iAXQTS* 

status  . iOXQTS' 

eNO-or>riLC  stop  word 


. *0*  0 


AO  i ■ * 

SKIP  NEXT  INST  IP  A<*<>>*  (NOT  OCNANOI 

OCNANOi  blank  out  n option 

AooRCss  OP  iAso  iNAoe 

00  IT 
STORE  I 

PRINT  IASO  status 

LOAD  OPT  LTRS  INTO  A0.A3.A>* 

STORE  OPTION  letters  INTO  )XQT  INAOE 
'3  UOROS  -•  NAX  to  OPT  LETTERS) 

ADDRESS  OP  I /O  PACKET 
WRITE  SOP  INAOES  TO  20. 

ADDRESS  OP  OADO  I PAGE 
DO  IT 


L*«»OI 


OAH  MCKAOC  AMCNOIK  L 
MAIN  MOORAnS/NOUriNCS 


IN  OAN.tr Arus/..NrAtt/OAN..tr«>tLOCK 
Ui  OAH. 


L>«oe 


oivco# 

001 


INCLUOC  K0W.00 
liUCLUOC  KONLUS 
INCLUOC  KONNCN 
INCLUOC  KOHCir 


CxrCNNAL  OITOOO.OirxQT 

017000. oirxQT)  a riRor  call  to  via  oitooo  to  oitxqt 


Call  nviatoi 
100  CALL  VlATO 

00  ro  too 

CNO 


u 


OAN  PACKAOe  APPCNOIX  L 
HAIN  PPOGRAHS/ROUriNrS 


01 rcop/ VIRTUAL 
001 


PROORAH  OtTCOP/ VIRTUAL 


HISTORY 


E H SCHLOSSER 

LEC 

07/07/78 

ORIGINAL  CODE 

E H SCHLOSSER 

LEC 

11/06/78 

aNAP.PZiNI : 

NO  *N‘ 

NETHOO 

CONSTRUCT  aNAP 

EXEC  CONNANO  TO  LINK 

REAL  ABSOLUTE 

IN  TPPS 

CONSTRUCT  aXQT  COHHANO  TO  ExeCUTC  REAL  AOSOLUTE  IN  Tprs. 
WRITE  aNAP  a aXQT  CONHANOS  to  TChPORARV  PILE  EO. 
aAOO  TENPORARY  file  SO.  TO  RUNSTREAN. 


hachine-oepenoent  code 


HRITTEN  in  ASSEHOLER  POR  the  uni  vac  1100  SERIES  conputers  under  the 
EXEC-e  operating  SYSTEH  USINO  6-sit  pieloata  characters. 
INPLEHENTINO  code  NUST  8E  rewritten  POR  OIPPERENT  CHARACTER  COOES. 
OIPPERENT  operating  SYSTEHS.  ANO  OIPPERENT  HACHINES. 


EXTERNAL  REFERENCES 


ER  CSPS  a 

ER  lows  a 

ER  EXITS  a 

OAN. 01 TCOP-NAP 
OAN. SYS-HAPOPT 


FUNCTION  TO  SUBNIT  EXEC-0  CONTROL  STaTEnENT 
initiate  I/O  ANO  WAIT  FOR  CONPLETION 
TERNINATE  PROORAN  EXECUTION 
a SYNBOLIC  NAP  DIRECTIVES  TO  LINK  EDIT  REAL  ABSOLUTE 

a standard  nap  options  when  link  editing 


EXCEPTIONS 


I.  RESULTS  ARE  UNOEPINEO  UNLESS  THE  PILE  OAN.  IS  OASO-O  ( aPREP-O. 


olobal  declarations 


(PROORAN  type  IS  PRE -LOADED  BY  EXEC  INTO  REGISTER  AH  AS  FOLLOWS: 
( S • REAL  tine 
( 1 - LOW  EXEC 
( <*  • OENANO 
( 5 > DEADLINE  BATCH 
( 6 • BATCH 


(aXQT  OPTIONS  ARE  PRELOAOEO  BY  EXEC  INTO  REOISTER  AS  IN 


OAN  PACKAOe  APPCNOIX  L 
MAIN  PROOPANS/ROUriNCS 


01 rCOP/ VIRTUAL 

ooa 


(HAsrcR  eir  notation. 


. LOCAL 

OeCLARATIONS 

• 

AXRf 

0(001  . 

0-BANK 

SOON 

PORN 

S.B.B.IB 

• 

Milt  iae8BBB333033*»«<»<»««8SSS5566S6867*77777S8BSBS999999 

LABSOP 

SOON 

OSO.t.'P'.O 

LABPL.  1 HO.  PORTRAN.  PIPLOATA 

LABI  HO 

• 

•SOPP* • 

NAPOOP 

SSSH 

000.9.0.0 

DATA.  9 UOS.  . PIPLOATA 

NAPIHO 

• 

aXQTSi  HAP.PZN  OAN.OirCOP-HAP.OI rcop  . :aXQTS' 

AOOSOP 

SSSH 

000.9.0.0 

AOOINO 

t 

aXQTS:  AOO  OAN. SYS 

-NAPOPT  . :aXOTS* 

XQT80P 

SSSH 

000.9.0.0 

XQTINO 

• 

aXQTSs  XQT.I 

OITCOP  . :aXOTS‘ 

eOPSOP 

- 

0 

PNO-OP-PILP  STOP  UORO 

PP 

PORN 

la.o. 18 

CSPASO 

’aASo.T  ao.  . * 

CSPAOO 

'AAOO  ao.  . ' 

SAVRCO 

RES 

1 

lOPKT 

tsoo 

'ao'.us  33. LABSOP 

*0*  0 

. PROCCOURC 

$(on  . 

(•BANK 

Dircop* 

LA.U 

AO.*  • 

AO  :■  * 

TNC.U 

AV  .«* 

SKIP  NPXT  INST  IF  A<»0<»  (NOT  OPNANOI 

SA.SB 

AO.NAPlNO«^a 

OPNANOI  BLANK  OUT  N OPTION 

LA 

AO.CCSPASOI 

AOORPSS  OP  aASO  INAGP 

PR 

CSPS 

00  IT 

• 

SA 

AO.SAVRPO 

STORP  t 

• 

PSRINT  (PP  B. 1 .SAVRCOI  . 

print  aASO  status 

OCTOPT 

LOAO  OPT  LTRS  into  Aa.A3.A>» 

PUTOPT 

OS 

Aa.xQriNo*a 

STORP  OPTION  LPrrPRS  INTO  axQT  INAGP 

SA 

A<*.XOr  1N0*<* 

(3  MOROS  ••  NAX  IS  OPT  LPTTCRSI 

HRI  TC 

LA 

AO.noPxri 

AOORPSS  or  I/O  PACKPT 

PR 

lows 

HRI TP  SOP  IHAGPS  TO  ao. 

AOO 

LA 

AO.CCSPAOOI 

AOORPSS  OF  8A00  INAOP 

PR 

CSPS 

00  IT 

PR 

pxirs 

PNO 

OITCOP 

OAN  PACKAOr  APPEND IX  L 
MAIN  PMOORANS/POUTINeS 


OtTCOP-NAP/VIPrUAL 

001 


IN  OAH.OirCOP/VIRtUAL 


« 


) 


’'•R  ov/ii.m; 


•.-•♦oo 


oooooooooooooooooo  oooonooonoooooooooooooooooo 


OAN  MAKAOe  APPCNOtX  L 
MAIN  MOORAHS/ROUriNrS 


Qirooo 

001 


tuMOuriNC  oirooof  • call  onaoc  o tuonouriNCS  roo  oiteoo 

0 NANtUet  • NAME  OF  SUOROUriNC  TO  CALL  (OR  NUL8UO) 


Ml STORY 


C H 8CHL08SCR  LCC  07/07/70 

e H SCNLOSSCR  LCC  01/19/70 


ORIOINAL  COOe 

NACRO  COHNANOS  A TINE  CORRANO 


RCTHOO 


NEXT  CORRANO  IS  RETRIEVED.  VALIDATED.  AND  ITS  SUBROUTINE  CALLED. 


NACHtNE-OEPENOENT  COOE 


NONE. 


EXTERNAL  REFERENCES 


READS 
OETSAL 
INTEGER 
UARNS 
OIT.  . . 
KRO . . . 


a READ  PUNCHED  CARO  OR  TERR  INAL  INPUT  INTO  BUFFER 
• OCT  ALPHABETIC  CONRANO  FROM  SUFFER 
ICC  a INTEOER-CHAR-CQUI V FOR  CHARACTER 

a PRINT/LOO  HARNINO  NCSSAOE 

a OCOICATEO' subroutine  for  CORRANO  ...  (SEE  BELOUl 
a COHHON  subroutine  FOR  CORRANO  ...  (SEE  BELOHI 


EXCEPTIONS 


I.  A BLANK  CORRANO  IS  lONOREO. 

E.  AN  INVALID  CORRANO  OENERATES  A DIAGNOSTIC. 

3.  AN  ENO-OF'FILE  on  unit  S IS  TREATED  THE  SARE  AS  THE  EXIT  CORRANO. 


GLOBAL  declarations 


include  nulcst.list  a define  null  character  string 
c 
c 

C LOCAL  declarations 
C 

c 


INTEGER  KORO 
INTEGER  LSSTAT 


a first  3 CHARS  OF  USER  CORRANO  (BLANK  AFTER  DONE 
a READS  status  (‘EOF*  REANS  ENO'OF-FILEl 


L-H09 


oooo  o o o o o o o o 


o 


OAN  MCKAOe  APPCNOIX  L 
MAIN  PPOORAHS/PSuriNCS 


oirooo 

oot 


INTCOCR  KAtC 


• Nooipieo  i-c«c  or  rinsr  cnar  op  cohhano 


e PROceouRC 

c — - 

c 

c 

e CALL  PRCVIOUSLY  NAHCO  SUOPOUriNC 
C 

CALL  rPACe 

CALL  NAHSUe  • CALL  TO  NULSUO  00C8  NOTHINO 


RCAO  COHHANO  PROH  UNIT  S CCARO  RCAOCR  OR  TCRHINALI 


KOHO*‘  NUL'  • IHPOSSIBLC  INPUT  (NOT  LCFT  JUSTIPICOI 

CALL  RCAOSCLSSTAr . NULCSTI  1 PILL  UNIT  5 BUPrCR.  NO  CUE  HESBAOC 

IPfLBBTAT.NE. ’ ’I  KOHO-'CXI* 

IPCKOHO.NC. *ext * I CALL  OETBaL I KOHO . ( 3 > . NULCBTI  • OCT  3 ALPHA  CHARB 


CONVERT  riRBT  CHARACTER  OP  COHHANO  TO  I NTECER'CHARACTER-EQUI VALENT 


KASE-ICE(KOHOI -ICEl *A’l«t 


• A TO  Z • I TO  PS 


CABE  STATEHENT  on  HOOIPIED  ICE  OP  CONHANO'S  PtRST  CHARACTER 


IP( IKASE.lt. I ) .OR. (KASE.OT.PBI > KABE>P7 
00  T0( 

0 HOI .HOP.H03.HOH.H08.H06.H07.H06.H09.HIO. 

1 HI  I .HIP. HI 3.HIH.HIS.HI6.HI7.HIB.HI9.HP0. 
P HPI .HPP.HP3.HPH.HP9.HP6.HP7I 

A .KASE 


a not  alpha 


c oeterhine  cohhano.  perporh  cohhano.  chanoe  koho  to  blank 
c 

HOI  continue  a***  a 
00  to  800 
c 

HOP  continue  »*•*  9 
00  TO  800 

c 

H03  continue  a**«  c 

IPIKOHO.EO. *CLE* ) CALL  KHOCLEIKOHO*  a CLEAR 

' 00  TO  800 

C 

HOH  continue  a**<  0 

IPCKOHO.EQ. ‘OUP’ I CALL  OITOUPIKOHOI 
00  TO  800 
C 

HOB  continue  a***  E 

IPIKOHO.EO. ‘EXI * I CALL  OITEXIIKOHOI  aEXi* 

IPIKOHO.EO. *EXP*l  CALL  KHOEXPIKOHOI  • EXPLAIN 

00  TO  800 


L'HIO 


OAN  MCKAOe  AMCNOIX  L 
MAIN  PKOORAHS/AOUTINCS 


oirooo 

OQS 


e 

•lot  conmnuc  r 
A07  eoNriNuc  ••••  o 
•»0t  CONTINUC  ••••  N 
•»09  CONMNUe  ••••  I 
%IO  CONTINUr  •••«  J 
«»ll  CONTINUC  K 

<»tC  CONTINUC  L 

•Its  CONTINUC  ••••  N 
00  TO  000 

c 

<*!•»  CONTINUC  •••*  N 

irUONO.CQ. ‘NCM*  I CALL  KHONCHfKOHO>  • NCU8 

irCKOHO.CQ. *NCX* I CALL  KNONCXIKONOi  A NCXT 

00  TO  000 
C 

•MS  CONTINUC  I***  0 

irtKOHO.CQ. *orr* I call  KHOOPrcKonoi  a ofp 

IPCKOHO.CQ. *0N  *1  CALL  KHOONCKOHOi  A ON 

00  TO  000 
C 

•MS  CONTINUC  S*<«  A 
•M7  CONTINUC  A***  0 
•MO  CONTINUC  a«*«  R 
00  TO  800 
C 

•MO  CONTINUC  a**«  S 
•»80  CONTINUC  a«««  T 

iriKONO.CQ. ‘TIN* I CALL  KHOT|N(KONOi  A T I NC 

•lOt  CONTINUC  a««*  U 
•iCC  CONTINUC  a**«  V 

IPCKOMO.CQ. * VCR’ I CALL  OITVCRfKONOI 
00  TO  800 
C 

•183  CONTINUC  A*«*  M 
•»8^»  CONTINUC  a*««  X 
•189  CONTINUC  A**«  T 
•I8S  CONTINUC  a**«  2 
<•87  CONTINUC  A***  NOT  ALPHABCTIC 


C 

C 

C ir  COMNANO  MAS  NOT 

c 

800  ircKONO.NC. * 
IPCKOHO.NC. ‘ 

c 

c 

c cohhano  is  invalid 
c 

tPIKONO.NC. * 


c 

c 

C RCTURN  TO  NAIN  POR 
C 

RCTURN 

CNO 


FOUND,  try  NACRO-CONNAND 

‘I  K0N0>‘Dir-‘  A 1ST  3 CHARS  OF  PROO  NANC  PLUS 

‘I  CALL  KNDXXXlKOHDt  A MACRO  CONMANO  HANOLCR 

IF  still  not  found 

'I  CALL  HARNSI  ‘INVALID  COMMAND 

CALL  VlA/rO  NAMCD  SU8R0UTINC  IN  ANY  OVCRLAY 


• • • 


L*<M  I 


o o o o ooononoooo 


DAN  PACKAOe  AAACNDIX  L 
HAIN  MOOAAHS/AOUriNSt 


oirexi 

oot 


e 

c 

e (C 

e 

e 


c 


tumouriNC  oircxi  • rcimiNArioN  routinc  tor  oitcor 


N tCNLOttCRi 


INCLUOC  KONXQT.LIsr  • CORHON  RROORAH  CXCCUTION  SWITCHCS. 

iNCLuoc  Nuicer.Ltsr  • ocriNC  null  charactcr  string 

CALL  TRACC 


COUNTCRS 


exrcRNAL  suRROuTiNes/ruNcrioNS  callco 


PSTOP 


rCRHINATC  PROGRAM 

iriNorATL.Ne.oi  call  pagortcnulcst) 

CALL  PSrOPtNULCSTI 

PSTOP  Goes  NOT  RCTURN 
ENG 


9 


) 


L-At* 


ooooooooooooooooooooooooooooooooooooooooooooooooooo 


OAH  ^ACKAOe  AMCNOU  L 
MAIN  PMOOMAnS/MOUriNCt 


oiroup 

001 


tUMOMTINC  OtrOUPI  0 COPY  OltC  TO  YAPC  OOUriNC 
0 KOHOt  0 NOMHAL  RCTURN 


HItrOIIY 


J C POOLCY  LCC  OPtOINAL  COOC 

CNARLCS  HCtHKC  ICC  Ot/OS/00  OOTaINO  riLC  iNrORHATION  USINO 

PLINPO  RATHCR  than  CRPITN 


HCTHOO 


VCNIPY  that  a tape  is  ASSIONCO  to  unit  8.  UNITC  KOHOCT  COHHON 
OLOCK  AO  A HCAOCN  riLC  ON  TAPE.  USE  SCRATCH  PILE  TO  OUILO 
A SERIES  OP  COHHANOS  TO  COPY  EXISTINO  DETECTION  PILES  TO  TAPE. 
AOO  SCRATCH  PILE  TO  RUNSTREAN. 


hachinE'OEpenoent  code 


NONE 


EXTERNAL  REPERENCES 


ERCSP 

PLINPO 

HONOTE 

HOUARN 

HOPATL 


• SUONIT  EXEC'S  CONTROL  STATEMENT  PUNCTION 
a OETS  PILE  INPORNATION 
a PRiNT/LOO/COUNT  'NOTE*  NESSAOES 
a PRINT/LOO/COUNT  ‘UARNINO*  NESSAOES 

a print/loo/count  *patal  error*  nessaoes 


EXCEPTIONS 


THE  POLLOMINO  CONDITIONS  OENCRATE  ThE  OUONOSTICS  SHOWN: 


CONDITION 

NO  tape  assioneo 

PREVIOUS  UARNINO  MESSAGE I8> 
PREVIOUS  PATAL  MESSAOEtSl 
IN  CHECKOUT  node 


01  AGNOSTIC 
PATAL  MESSAGE 
NOTE  MESSAGE 
NOTE  MESSAGE 
NOTE  MESSAGE 


OLOOAL  declarations 


INCLUDE  KOMXQT.LIST  a COMMON  PROGRAM  EXECUTION  SHI TCHES. COUNTERS 

INCLUDE  KOMIO.LIST  » PORTRAN  MANIPULATION  OP  ASSEMBLER  WO  PKT 

INCLUDE  KOMOET.LIST  a UINOOHS  a 3ENERATI0N  OATES  POR  » OET  PILES 


L->*I3 


OAK  AACKAOC  AAACNOIA  L 
HAIN  MOOAANt/AOUriNCt 


iNCuwc  AtNocr.iitr 
tNCLUOC  KOm.tN.Lltr 
INCLUOC  KOmuS.Lttr 
iNCLuoe  rioer  .list 
c 
e 

e LOCAL  OCCLANATtONt 

C 

C 

INTCOCN  lOriLCCIOI 
INTCOCN 

A jAtorttHi/ •lAto.r  to 
C FNOCCOURC 


e 

e 

e 

c 


CALL  rRACC 


AttlON  SCNArCM  riLC  to 


0 UNI  VAC  1100  AttCNOLCR  NARtlAL  MONO 
0 I/O  NACKCrt  roN  ocrccrtON  riLCt 
• CONNON  ourrcN.NOiNrcNt.rLAOt  roN  unit 
a oeriNCt  nccono  troucruNC 


a ANNAV  IN  rioer  roNNAr 

. riLAto  */ 


CALL  CRCtriNAO.JAtOrti 
c 
c 

c ocr  rACiLiries  AStiONNCNr  roR  unit  t 
c 

CALL  rLINrOMOriLC.  ‘t’.'Ot’i 
imoriLeirioeon  .NC.  ‘tarc*  i 

a CALL  HOrATLC  *TARC  NOT  ASSIONCO  TO  UNIT  t ‘I 
iriNOrOtL.NC.OI  00  to  700 
c 
c 

c uRire  TOC  rue  to  tarc 
c 


I oruNC 1 L utRK n • * ac * 
IOSIZC(LUtRKTI*SIZOer 
lOAOORILUtRKTI •LOC(KOnOeT) 
lOUAITtLUtRKTl *30 


CALL  CRIOUf LUtRKTI 
C 
C 

c MRiTe  CNO  or  rue  to  tarc 
c 


lOruNCUUtRKTia'IP* 

C 

CALL  eRIOUUUtRKTI 
C 

c 

C CNCCK  OATC  MORO  jCNONYfNCCTl  or  OCTCCTION  rUCS 
C 

00  too  NCCT>I.<* 

in jeNHOYtNCCTt .CO. * *1  00  TO  000 


c 

c 


oirei^ 

oot 


t 


L-VIR 


OAN  l»ACKA0C  AA^CNOIX  I 
tlAlN  MOONAHt/AOUriNCt 


e •0AN0cr*tNeeT(  catalooco 
c 

Milirctto.xosi  Nccr 

SOS  roMNATi •oeo^Y.ON  •OANoer-’.ti.«..t.*i 

e 

e 

e CNO  or  loor  vCAirviNO  AStioNHCNT 
e 

•00  CONTINUC 

e 

e 

e MAirc  NCSSAOC  ro  ncui»o  taac  rue  t. 
c 

700  MRITCOO.TOSt 

70S  roRNArc •axor  crorrtcn'/ 'o**  ueAse  irRCC  t.  or  ircmino  e.*/ 
i*acor*i 
c 
c 

c CNoriLC  to  rc  drain  turrcR 
e 

CNoruc  to 
c 
e 

c lADO  rue  to  ro  runotrcan 
c 

CALL  CRCSriNAO.  *aADO  tO . . CORY  rUC  'I 

e 

c 

C CNCCK  OlAONOSriC  COUNTCRS 

e 

000  iriNOUARN.eO.Ot  OO  TO  oto 

CALL  MONOTCt 'RReviOUS  MARNINOS  ••  NO  CORYINO  RCRrORNCO*! 

iriHSATCH.eQ.oi  wRircio.otS) 

•IS  rORNATl*  ...TRY  AOAIN'I 
00  TO  000 

oto  iriNorATL.eo.oi  oo  ro  oso 

CALL  HONOrei ‘RRCVtOUt  RATAL  CRRORS  --  NO  CORYtNO  ReRRORNeO*! 
00  TO  000 

050  IRCNCMCCK.CO.OI  00  TO  000 

CALL  NONOrei 'CHCCKOUT  NOOC  ••  NO  CORYtNO  RCRRORNCO’) 

C 

C 

c nornal  rcturn 
c 

000  KOND'* 

RCTURN 

CNO 


01  TOUR 
•0) 


L'WIS 


DAN  AACKAOC  AAACNOtX  L 
MAIN  PNOOAAnt/AOUriNCt 


oirvCR 

001 


ouMOuriNC  oirvcNt  • vcoirv  oanmn  rm  eoov 

0 KONOI  0 NORNAL  NCtWIW 


U C OOOICYI 


INCLUOC  KOnXQT 

CALL  NONOrCt ’VCRIfV  COMNANO  NOT  TCT  INOLCNCNTCO' t 
000  KONO* ’ 

ACruKN 

CNO 


e 


C 0#NltN 

e mtant 

c Nvuro 

c 
e 

INCIUOC  KONNCN 
CxrCNNAL  OirOOO.NULSUl 


C INOCNTIfY  MOOAAH 

CALI  MTAHri'DAn  Ot^CO^l7tOSi  ** 

c o^CN  oCNttrr  ruet 

CALL  O^NIffN 

e loCNf:  V CUTS  sccnc 

CALL  CLSNOetO 

C AOO  OCrAULT  CONNANO* 

300  CALL  CNCSriNAO. *OAOO  OAN. OCr-OI TCO# 

c ON  RcruRN.  CALL  otrooo  oer  ocrAULT/utcN  connanos 

CALL  NVI ATOIOI TOOO.NULOUt* 

C NCruNN  TO  NCXf  STArCKCNr  IN  CALLINO  ROUftNC 

c 

NCruNN 

CNO 


L-*»I7 


OAN  PACKAOC  APPCNOtX  H 
eOHNANO  ROUTINCS 


RRCrACC'N 

001 


raerAce  ro  arpcnoix  n 


m suoRouriNCs  in  rHis  appcnoix  iHPLeneNr  conhanos  common  ro  scvcral  oam 
PACKAOe  PROORAM8.  THE  SUBROUTINE  NAMES  ARE  COMPOSED  OP  ‘KMO*  POLLOHEO  BY  THE 
FIRST  3 characters  P**  THE  COMMAND  KEY  HORO. 

these  COHMANO  SUBRc  iINES  are  oesioneo  to  be  called  directly  by  the 

CONVERSATIONAL  MONITOR  FOR  EACH  PROORAM.  HI TH  A SINGLE  AROUMENT  PROVIOINO 
BOTH  input  and  OUTPUT.  ON  ENTRY  THIS  AROUMENT  MUST  CONTAIN  THE  FIRST  3 
CHARACTERS  OF  THE  COHMANO.  (KHOPOl  A KHOXXX  ARE  EXCEPTIONS.*  ON  RETURN 
THIS  AROUMENT  MUST  CONTAIN  BLANKS  IF  THE  COMMAND  IS  VALID  IREOARDLESS 
OF  WHETHER  THE  SPECIFICATIONS  ARC  CORRECT.  OR  OF  WHETHER  THE  COMMAND  IS 
ACTUALLY  PERFORMED*.  KMDPOl  A KHDXXX  CHECK  IF  THE  COMMAND  IS  VALID 
BEFORE  OECIOINO  WHETHER  TO  RETURN  BLANKS.  ALL  OTHER  COMMAND  SUBROUTINES 
HILL  ONLY  BE  CALLED  IF  THE  COMMAND  IS  VALID.  AND  THCRCFORC  MUST  ALWAYS 
RETURN  BLANKS. 

ALL  DTHCR  INPUTS  AND  OUTPUTS  FOR  COMMAND  SUBROUTINES  ARC  PROVIDED  BY 
LABELLED  COMMON  BLOCKS  ANO  EXTERNAL  DEVICE  I/O. 

EACH  COMMAND  SUBROUTINE  MUST  CHECK  THE  VALUES  OF  ITS  USER  SPECIFICATIONS. 

THE  ROUTINE  ISSUES  DIAGNOSTICS  FOR  INVALID  SPECIFICATION  VALUES  ANO  UPDATES 
VARIABLES  IN  LABELLED  COMMON  BLOCKS  WITH  CORRESPONDING  VALID  SPECIFICATION 
VALUES. 

IF  THE  CONFIRM  SWITCH  IS  ON  (MCFIRH  IN  KOMXQT  <>0*.  A COMMAND 
SUBROUTINE  MUST  CONFIRM  THE  COMMON  VALUES  OF  ALL  SPEC  I F I CAT  I ONI S * FOR 
THAT  COMMAND  (INCLUDING  ANY  OPTIONAL  SPEC  I F I CAT  I ON ( S * OMITTED  BY  THE 
USER*.  THIS  CONFIRMATION  SERVES  THREE  PURPOSES: 

I.  IT  CONFIRMS  USER-SUBMITTED  SPECIFICATIONS. 

8.  IT  IDENTIFIES  CURRENT  COMMON  VALUES  OF  OPTIONAL  SPECIFICATIONS 
OMITTED  BY  the  user. 

3.  IT  illustrates  COMMAND  SYNTAX. 

THE  CONFIRMATION  MUST  INCLUDE  THE  COMPLETE  I UNABRE V I A TED  * KEY  WORD  FOR 
THE  COMMAND.  THE  SPECIFICATION  VALUEIS*.  AND  THE  COMMAS  SEPARATING  THEM. 

ANO  MAY  INCLUDE  BRIEF  EXPLANATORY  'NOISE*  WORDS  AFTER  NUMERIC  SPECIFI- 
CATIONS. the  CONFIRMATION  MUST  BE  SYNTACTICALLY  CORRECT.  SUCH  THAT  IF 
KEYED  IN  verbatim  BY  A USER  IT  WOULD  BE  ACCEPTABLE . 

SEE  APPENDIX  L FOR  COMMAND  SUBROUTINES  OEOICATEO  TO  INOIVIDUAi.  PROGRAMS- 
SEE  APPENDIX  0 FOR  DETAILED  SYNTAX  OF  ALL  COMMANDS. 
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APRCNOIX-H 

001 


ORRT.OC  OAN.ROCrACe*N 
OMT.OC  OAN.APPCNOtX-H 
OHSe.N  ...AOJ 

•PRT.8C  OAH.KNOALI 
OPRT.SC  OAM.KNOATT 
OPRT.SC  OAN.KnOCCN 
•PUT. SC  OAH.KNOCHA 
aPRT.SC  OAH.OerCHA 
OPRT.SC  OAR.KNOCLC 
OPRT.SC  OAN.KNOCOL 
OPRT.SC  OAH.KNOCOP 
OPRT.SC  OAH.KNOCOU 
OPRT.SC  OAH.KHOCRO 
OPRT.SC  OAH.KHOOCN 
OnSO.N  ...OCT 

OHSO.N  ...OIA 

ONSO.N  ...OtS 

OHSO.N  ...CXI 

OPRT.SC  OAH.KHOeXP 
ONSO.N  ...PAC 

OPRT.SC  OAN.KHOFt 
OPRT.SC  OAH.KNOOeO 
OPRT.SC  OAH.KHOHEA 
OHSO.N  ...HIS 

OPRT.SC  OAH.KHOIF 
OPRT.SC  DAH.KHOINT 
OPRT.SC  OAH.KNOLIN 
ONSO.N  ...LIS 

OHSO.N  ...NAP 

OPRT.SC  OAN.KHOHeR 
ONSO.N  ...NOO 

OPRT.SC  OAH.KNONAH 
OPRT.SC  OAN.KHONCH 
OPRT.SC  OAN.KNOnCX 
OPRT.SC  OAH.KNOOrr 
OPRT.SC  OAN.KHOON 
OPRT.SC  OAH.KNOORI 
OPRT.SC  OAN.KHOPAO 
ONSO.N  ...PAR 

OPRT.SC  OAN.KNOPCE 
OHSO.N  ...PIC 

OPRT.SC  OAH.KHOPLO 
OPRT.SC  OAH.KNOPOl 
OPRT.SC  OAN.KNOPOK 
OPRT.SC  OAH.KNOPOL 
OPRT.SC  OAH.KHOPRl 
ONSO.N  ...PRO 

OPRT.SC  OAH.KHORAO 
OHSO.N  ...RAO 

OPRT.SC  OAN.KHORAN 
OPRT.SC  OAH. KHOREN 
OPRT.SC  OAH.KHORES 
ONSO.N  ...ROT 

OPRT.SC  OAN.KHOSCA 
OPRT.SC  OAN.KHOSCE 
OPRT.SC  OAH.KHOSCR 


. (SOOSI  SCT  TABS  0 IS  A SB 

. adjust  NCTHORK  (SEC  APPENDIX  L) 

. ALION  COORDINATE  SYSTENS 
. OCT/CHECK  PLATPORH  ATTITUDE 
. OCT/CHECK  SCENE  CENTER  SCAN  COORDINATES 
. oet/Cncck  rah/ transforneo  channel IS> 

. OET/CMECK  detection  CHANNEL  I SI 
. CLEAR  UARN I NOS/ ERRORS 
. OET/CHECK  COLORfSi 
. OET/CHECK  NUNSER  OF  OUTPUT  COPIES 
. OET/CHECK  COUNT  PER  PIXEL 
. CR0SSTA8ULATE 
. OET/CHECK  density  LINITS 
. DETECT  (SEE  APPENDIX  L> 

. DIAORAN  NETUORK  (SEE  APPENDIX  LI 

. DISPLAY  ON  ALPHA-NUNERIC  DEVICE  (SEE  APPENDIX  LI 
. EXIT  (SEE  APPENDIX  LI 
. EXPLAIN  PROORAH/ CONHANO 
. FACTOR  (SEE  APPENDIX  LI 
. END  IF  ...  FI  BLOCK 
. OET/CHECK  SCENE  OEOHETRV 
. OET/CHECK  PAOE  HEAOINOS 
. HISTOORAH  (SEE  APPENDIX  LI 
. BEOIN  if  ...  FI  SLOCK 
. OCT/CHECK  INTENSITY(SI 
. OCT/CHECK  LINEAR  HE  I GHTS/ OA I N/ Bl AS 
. LIST  (SEE  APPENDIX  D 
. NAP  (SEC  APPENDIX  LI 

. OET/CHECK  transverse  HERCATOR  CENTRAL  HCRIOIAN 
. NOOEL  (SEC  APPENDIX  LI 
. OCT/CHECK  NATCRIAL  NAHE 
. PRINT  news  OF  PROORAH  CHANGES 

. specify  condition  for  perfornino  next  COHHANO 

. TURN  OFF  HOOE  SUITCHICSI 
. TURN  ON  NODE  SHITCH(ESI 
. OCT/CHECK  UINOOU  ORIGIN 
. SKIP  TO  TOP  OF  NEXT  PAGE 
. PARTITION  (SEE  APPENDIX  Ll 

'PEEK*  INTO  LABELLED  COHHONS  (FOR  DEBUCCtNOi 
. PICTURE  ON  COLOR  CRT  (SEE  APPENDIX  Ll 
. OET/CHECK  plotter  SPEC  I F I C A T I ONS 
. OCT/CHECK  CONTRO. /CHECK  POINT 

. 'POKE'  (CHANOEI  labelled  COHHONS  (FOR  DEBUGOINCI 
. OET/CHECK  POLAR  OAIN/BIAS 
. OET/CHECK  PRINTER  SPECIFICATIONS 
. PROFILE  (SEE  APPENDIX  Ll 

. oct/chcck  radiance  LIHITS 

(SEE  ALSO  APPENDIX  Li 
. OCT/CHECK  RANKlNO(SI 

. oct/chcck  new  hindou  sequence  nuhber 
. OCT/CHCCK  RESAKPLINO  SPEC  I F I C AT  I ONS 
. rotate  (SEE  APPENDIX  Ll 
. OCT/CHECK  UINOOU  SCALE 
. OET/CHECK  SCENE  NUH8CR  AND  SIZE 
. OCT/CHCCK  SCRIPT 


H-B 
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APPEND I X-n 
DOS 


•PMT.SC  OAH.KNOSHA 
•PNT.SC  0AH.KH08IZ 
•PRT.SC  0AN.KN08PA 
•PUT. SC  OAN.xnOSPN 
APRt.SC  OAN.KHOSYN 
•PRT.SC  OAH.KHOTAB 
•PUT. SC  OAH.KttOrtC 
•PRT.SC  OAn.KNOTtH 
•PRT.SC  OAH.KHOTtN 
•PRT.SC  OAN.KHOTOL 
•PRT.SC  OAH.KHOUIN 
•PRT.SC  OAH.KNOXXX 
•PRT.SC  OAN.KHOZON 
•PRT.SC  OAH.KMOOAO 
•PRT.SC  OAH.KNOOAS 
•PRT.SC  OAH.KHOOBR 
•PRT.SC  OAN.KNOOPR 
•PRT.SC  OAN.KHOOLO 
•PRT.SC  OAH.KHXXeO 
•PRT.SC  OAN.KNXXOS 


OCr/CNECK  SNARPENIND  FILTER  COEFFICIENTS 

OET/CNECK  SCENE  SIZE  IN  SCAN  COORDINATES 

OET/CHECK  NINOON  SPACINO 

OET/CNECK  SPNEROID  OEOOETIC  PARAMETERS 

OET/CHECK  SYMBOL ISI 

tabulate 

OET/CNECK  TICK  INTERVALS 
PRINT  CLOCK  tine  • CHAROE  TIME 
OET/CHECK  tint  SPECIFICATIONS 
OET/CHECK  tolerance 
OET/CHECK  UINDOU  VERTICES 

OET/CHECK/PROCeSS  MACRO  COnnANO  (CALLS  KHXXEOI 

OET/CHECK  UTH  PROJECTION  ZONE 

SAOO  OYNAHIC  aAOO 

SASO  — DYNAMIC  tASO 

SBRKPT  --  DYNAMIC  SORKPr 

SPREE  --  DYNAMIC  SPREE 

SLDO  --  DYNAMIC  SLDO 

EDIT  ACTUAL  SPECS  INTD  MACRO  COMMAND  DEFINITION 

oet/evaluate  actual  spec  for  macro  command 
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KMOAL 1 

001 


tuoMOwniie  knoalii  • alion  cooroinatc  svtrens 

U KONOt  a It  FIRST  S CHARS  OF  COHMANO  Ot  SPACES 


history 


E 

H 

SCNLOSSCR 

LEC 

io/eo/75 

OMIOINAL  CODE 

E 

H 

SCNLOSSER 

LCC 

07/17/78 

UPORAOE  documentation 

a DELETE  RET  K 

F 

H 

SCNLOSSCR 

LEC 

08/80/79 

REVISE  GETS. . /URO/ORU 

CALLS 

E 

H 

SCNLOSSCR 

LEC 

11/07/79 

REVISE  ORA  a OETSKH  CALLS 

NCTHOO 


coHPure  srn  cooroinatcs  or  ALiONncNr  poiht  from  input  scanner 

COORDINATES  ANO  FROH  INPUT  EARTH  COORDINATES.  USE  DELTAS  BETWEEN 

these  conputeo  stn  coordinates  to  nooirv  the  current  transformation 
COEFFICIENTS. 


MAC H I NE-OE PE NOE NT  CODE 


NONE. 


EXTERNAL  REFERENCES 


OETSKH  a OET  CHARACTER  STRINO  DATA  FIELD  FROM  UNIT  S 

OETSIN  a OET  INTEOER  DATA  FIELD  FROM  UNIT  S 

OETSSX  a OET  SEXAOENARV  data  field  from  UNIT  5 

OETSRL  a OET  REAL  DATA  FIELD  FROM  UNIT  S 

WARNS  a generate  WARNINO  FOR  INVAL lO/niSSiNO  FIELD  FROM  UNIT  S 

etu  a OEDORAPHIC  fdr  utn  coordinates 

REVERT  a CDHPUTE  INVERSE  LINEAR  TRANSFORHA T I ON  COEFFICIENTS 

UNO  a UTH  FOR  GEOGRAPHIC  COORDINATES 

NDNOTE  a PRINT/COUNT/LOO  'NOTE'  DIAGNOSTIC  NESSAOE 

NDWARN  a PRINT/COL'NT/LOO  'UARNINO'  DIAGNOSTIC  MESSAGE 

0<*A  a OEDORAPHIC  FOR  ADJUSTED  MSS  COORDINATES 


EXCEPTIONS 


I.  The  follouino  conditions  generate  'uarnino*  diagnostics: 

SCAINI  SPECIFICATI ON  HlSSlNO  OR  MISSPELLED 

EARTH  COORDINATE  SYSTEM  NOT  OEOIREESI  OR  METIRESI  OR  KM 


EARTH  COORDINATE  SYSTEM  NETIRESI  OR  KM 
NOT  DEFINED 


I central  meridian  IZONEI 


8.  SPECIFICATIONS  OUTSIDE  THE  FOLLOWING  RANGES  ARC  REJECTED  ANO  GENERATE 
'WARNING*  01  AGNOSTICS: 


OAN  PACKAOe  APPCNOIX  N 
COHMANO  ROUriNtS 


KnOALI 

ooe 


C 

0 

<• 

SCAN  LINE 

<■ 

osoo 

C 

0 

<> 

SCAN  SAMPLE 

<• 

3800 

c 

80. 

<• 

LATITUDE 

<• 

SO. 

c 

60. 

<• 

LONOITUOE 

(• 

ISO. 

c 

0 

<• 

EAST 1 NO 

(• 

1000000. 

c 

40 

0 

<> 

northing 

<• 

9000000. 

V 

c 

3.  A HISSING 

OR 

EXTRA  specification  GENERATES  A 

c 

c 

C OLOeAL  OeCLARATIONS 

c 

c 


oiAONOsrtc. 


INCLUDE  KONXQT.LtSr 
INCLUDE  KDHNER.LISr 
INCLUDE  KDNFIT.LIST 
INCLUDE  TRFORH.LIsr 
INCLUDE  KOHiHH.LISr 
INCLUDE  KOHOHH.LISr 
INCLUDE  HINDEr.LISr 


a CDHNDN  PROORAH  EXECUriON  SNITCHES.  COUNTERS 
a COHNON  ERTS  SCENE  PARAHETERS 
a COHNON  AOJUSTHENT/REOISTRATION  PARAMETERS 
a DEFINE  COORDINATE  TRANSFORMATION  FUNCTIONS 
a COHNON  input  hi  NOON  PACKETS 
a COHNON  OUTPUT  HINOOH  PACKETS 
a DEFINE  STRUCTURE  OF  HINOOH  PACKETS 


C 

C 

C LOCAL  OECLARATIONS 

C 

c 


INTEGER  NOSAVE 
INTEGER  I TEMP 
INTEGER  MSALIN.MSASAN 
REAL  CORLIN.CORSAN 
INTEGER  KOROSY 
REAL  OEOLAT.OEOLON 
REAL  STME.STMN 
REAL  OSTME.OSTNN 
REAL  UTmE.UTMN 


a SAVE  AREA  FOR  CONTENTS  OF  NOTOTL  ON  ENTRY 
a TEMPORARY 

a MSS  AOUUSTEO  LINE  AND  SAMPLE  NUMOERS 
a CORRECTED  LINE  AND  SAMPLE  NUMBERS 
a EARTH  COORDINATE  SYSTEM  (*0E0‘  / * KM  ' / ‘NET*) 
a GEOGRAPHIC  DEGREES  LATITUOE  A LONOITUOE 
a SCENE  transverse  MERCATOR  EAST  A NORTH  (METERS) 
a DELTAS  USED  TO  MODIFY  OLD  TRANSFORM  COEFFS 
a UNIVERSAL  TRANSVERSE  MERCATOR  EAST  A NORTH  (MET 


C 

c 

C PROCEDURE 
C 

c 

c 


CALL  trace 
C 
C 


C OET/CHECK  SCANNER  ( OSFC -AO JUSTED ) COORDINATES 
C 


NOSAVE-NOrOTL 
I TEMP** JUNK ‘ 

CALL  OETSKHI ITEMP. (3) . *«NO  SPECIFICATIONS  -•*) 

IFdTENP.NE.  *SCA*)  CALL  UARNS(  ‘COORDINATE  SYSTEM  NOT  SCAN  --*) 
CALL  OETSINIMSAL IN.  0.aSOO.**eAO  LINE  --*) 

CALL  0ETSIN(MSASAH.  0.3SOO.**BAO  SAMPLE  --*) 

CORLlN>CORLXA(NSAL IN.MSASAM) 

CORSAM*CORSNA(MSAL IN.MSASAMI 
C 
C 

C CET/CHECK  EARTH  COORDINATE  SYSTEM 


N-S 
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KNOAL I 
003 


KOIIOOV-'  NUL* 

CALL  OerOKN(KOROSV.(3* . *«N0  CARTH  COOR 

IPtKOROSY.EQ. ‘OeO'l  00  TO  «»00 
IP(KOROSY.CQ. *KH  ‘I  00  TO  OOO 
iriKOROSY.CQ. ’HET’I  00  TO  6tO 
CALL  UARNSI  'BAO  COOROINATE  SYSTEH  -•*) 
00  TO  900 


«N0  EARTH  COOROINATE  OYSTER  -• 


OET/CHECK  OEOORAPHtC  COOROINATEO  (OEOREESt 


•»00  CALL  OETSSXIOCOLAT.  l..eO..B 
CALL  OETSSXIOEOLON.  I.. 00.. I 
CALL  OETSINtITEHP.  »I.-I.*EX 
IPINOSAVE.NE.NOTOTLI  00  TO  900 
CALL  ALIGN 


1 . . 00. .BO. . ’*0A0  LATITUDE  --'I 

1 . . 00. . 1BO. . ‘«BAO  LONGITUDE  •') 
• I. -I. 'EXTRA  ALIGN  SPEC  I P I CAT  I ON 


CONPIRH  OEOORAPHIC  COORDINATES 

HRITEIB.HHSi  HSAL IN . HSASAN . OEDL AT . OEDL ON 
•»<»S  rORHATI  * ALIGN.  SCAN.  ’.IS. '.'.IS. 

A '.  OEOREES. ' .P9.S. ' LAT.  '.rs.S.'  LON’l 
00  TO  900 


OET/CHECK  UTH  COORDINATES 

000  cr«iE*3  a convert  proh  kilohetres  to  metres 

00  TO  000 

010  CF-I.  a METRES  --  NO  CONVERSION  NEEDED 

BOO  IFI IUTMCHO.EO.O. I .OR. I ABSIUTNCMOI .OT . ISO. I I CALL  MOMARNf 
• ‘UTN  ZONE  NOT  OEFINEO'I 
CALL  OETSRLIUTME.  CF . 0. . IC*S. * *BA0  EASTINO  --'I 
CALL  OETSRLIUTMN.  CF . 0. . 9E»6. ' *BA0  NORTHINO 
CALL  OETSINC I TEMP.  *1.-1. 'EXTRA  ALION  SPECIFICATION  --'I 
CALL  OVUIOEOLAT.OEOLON.  UTME . UTMN. UTMCMO) 
IFINOSAVE.NE.NOrOTLI  00  TO  900 
CALL  ALION 


CONFIRM  utm  coordinates 

HRITEI6.0VS)  MSALIN.MSASAM.UTME.UTMN 
SVSFORMATI'  ALION.  SCAN.  '.IS. '.'.IS. 

a ’.  KM.  ’.-3P.F7.3.'  East,  ’.fs.3.'  north'i 


normal  return 


900  KOMO>' 
RETURN 
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KNOAL  t 
00« 


c 

e 

c 

C INTCPNAL 

suaPouriNC  alion 
c 
e 

e eoKPure  ocltas  in  stn  coonoi nates  eeriieeN  old  auonnent  a ncn  alionncnt 
c 

IPfASStSTNCHO-oeOLONI  .OT.<».  i STNCNO-OCOLON 
CALL  UHOtSTNe.STHN.  OEOLAT . OCOLON. STNCNOi 
08rNe«STNe>8TNCi»C(C0RLIN.C0RSANI 
0STNN>8rNN-8TNN*»C(C0RLIN.C0R8ANI 
C 
C 

c use  stn  deltas  to  nooipy  transpornation  coefpicients 
c 

C0RSTN(3)>C0R8TH(SI »0STNN 
C0R8TH(8I«C0RSTH(8I »OSTnE 
CALL  REVERTCCORSTN.STNCORI 
C 

c 

C NARK  ORtOlN  AS  DESTROYED 
C 

K8YOUH(UORI0i«0  A ORIOtNS  IN  OiPPERENT  SYSTEMS  NO  LONOER  CONSISTENT 

CALL  NONOTEt  'ORIOIN  MUST  BE  Re-ENTEREO'I 
C 
C 

C RECOMPUTE  SCENE  CENTER 
C 

CALL  0*»A(CTRLAT.CTRL0N.CTRL  IN.CTRSAMI 
C 
C 

RETURN 

ENO 


ooooooooooooooooooooooooooooooooooo 
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KNOATT 

001 


tutoouriNC  KHOAtri  • ocr/CNCCK  KArronn  Arriruoc 
u KONOi  • It  riNor  3 chaos  or  connANO  ot  soaccs 


NisrooY 


c 

e 

H 

SCHL08SCR 

LCC 

08/ OS/73 

NUNCRIC  option 

c 

c 

N 

SCHLOSSCR 

LCC 

I8/07/7S 

ALPHANUNCRIC  COHHANO 

c 

c 

H 

SCHLOSSCR 

LCC 

07/17/78 

OCLCTC  RCTURN  K 

c 

c 

H 

SCHLOSSCR 

LCC 

08/80/79 

Revise  oocuneNTATioN  t oeTs..  calls 

c 

c 

H 

SCHLOSSCR 

LCC 

11/07/79 

ROUNO  PITCH  A ROLL  TO  8 PLACCS 

c 

c 

C NCrHOO 

c 

c 

c UPOATC  Arriruoe  ipitcn  a rolli  proh  unit  s.  ir  spccirteo.  ano  coNriRn. 
c 

C CRTS  CONVCNriONS  POR  ATTiruDe  ANO  HCAOINO  ARC  AS  POLLOHSi 
POSIT  I VC  PITCH  IS  N08C  OOHN 

POSITtVC  ROLL  IS  CLOCKHISC  VICMCO  PROH  OCHINO 
POSIT  I VC  YAH  IS  COUNTCRCLOCKHISC  VICUCO  PROH  AOOVC 
POSITIVC  HCAOINO  IS  CLOCKHISC  PROH  OUC  NORTH  VICuCO  PROM  ABOVC 


HACHINC-OCPCNOCNT  COOC 


NONC. 


CXTCRNAL  RCPCRCNCCS 


UNOCTS  • SACK  UP  ONC  OATA  PICLO  ON  UNIT  S 

OCTSKH  a OCT  CHARACTCR  string  OATa  PICLO  PROH  UNIT  5 

0CT5RL  a OCT  RCAL  OATA  PICLO  PROH  UNIT  S 

0CT5IN  a OCT  INTCOCR  OATA  PICLO  PROH  UNIT  9 

HOHARN  a PRINT/COUNT/LOO  'HARNINO'  OlAONOSrtC  HCSSAOC 

SPLIT  a SPLIT  RCAL  INTO  SION.  INTCOCR.  OCC I HAL 


CXCCPTIONS 


I.  SPCCIPtCATIONS  OursiOC  THC  POLLOUINO  RANOCS  arc  RCjCCTCO  ANO  OCNCRATC 
‘HARNINO’  OlAONOSTICSt 

-».0  <•  PITCH  <•  *8.0 
•8.0  <•  ROLL  <*  *8.0 

8.  AN  CXTRA  SPCCIPICATION  OCnCRATCS  A ‘HARNINO*  OlAONOSTIC. 


0L08AL  OeCLARATIONS 


H-S 


o u o o 
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KNOATT 

eot 


C 

C 

iNCLuoc  Konxor.Lisr  • conmon  prooman  cxecurioN  SMircHCt.  couNtCM 

INCLUDE  KONNEN.LlSr  • COHNON  CRTS  SCENE  PARAMETERS 

INCLUDE  NULCSr.LISr  A DEPINE  NULL  CNARACTER  STRINO 

C 
c 

C LOCAL  DECLARATIONS 
C — 

e 


INTEOER 

ITENP 

a 

TEMPORARY 

INTEOER 

ISPITO 

a 

SION  or 

PITCH  1 

• OR 

INTEOER 

INPITO 

a 

INTEOER 

PART 

or 

PITCH 

REAL 

API  TO 

a 

decimal 

PART 

or 

PITCH 

INTEOER 

1 SROLO 

a 

SION  or 

ROLL 

1 

OR 

INTEOER 

INROLO 

a 

INTEOER 

PART 

or 

ROLL 

REAL 

AROLO 

a 

DECIMAL 

PART 

or 

ROLL 

C PROCEDURE 


CALL  trace 


oet/check  pitch  a roll 

CALL  OETSRLIPtrOEO.  t . . -E. . *8. . *BAO  PI TCH  •-’> 

IFIPiroEO.LE.Oi  00  TO  ISO 
CALL  UNOETS 

CALL  OETSKHI I rCNP. ( n . NULCST) 

IPIITENP.NE. ‘*‘1  CALL  HOHARNt  'PITCH  UNSIONEO.  * ASSUMED') 

ISO  CALL  OETSRLIROLOEO.  I . . -S . . *S . . * •BAD  ROLL  -•') 

IP(ROLOEO.LE.O)  00  TO  ISO 
CALL  UNOETS 

CALL  OETSKHI I TEMP. ( t > . NULCST) 

IPI I TEMP. NE.  ' » ‘ ) CALL  MOUARNI  'ROLL  UNSIONEO.  • ASSUMED’’ 

150  CALL  OETSIMIITEMP.  *1.-1. 'EXTRA  ATTITUDE  SPECIFICATION 
C 
C 

C CONFIRN  PITCH  k ROLL 
C 

PITDEO-.OI*AINTi tOO.*PITOEO*SION(O.S.PITOEO) ) a ROUND  TO  S DECIMAL  PLACES 
CALL  SPL I TIP! TOEO. ISPI TO. IMP  I TC. API  TO) 

ROLOEO«.OI*A|NTIIOO.*ROLOCO*SIONIO.S.ROLOEO) t I ROUND  TO  S OECIMAL  PLACES 
CALL  SPL I TIROLOEO. I SROLO . I NROL 0 . AROL 0 ) 

IPlMCriRM.NE.O)  HRITEIB.IOS) 
k ISPITO.INPITO.APITO.ISROLO. INROLO.AROLO 
IBSrORMATl-  attitude.  ' . AI . 1 1 .F3 ,S . ' PITCH.  ' . A I . I I . F3 . S . ‘ ROLL’) 

C 

KOMO>' 

RETURN 

END 
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uuuuuuuuuuuuouuouuoououuoouuuu 


OAN  MCKAOC  APFCNOIX  N 
eONMANO  KOUriNCt 


KNOCCN 

001 


tUONOUriNC  KNOCCNI  0 OCT/CHCCK  scan  COOMOINATCO  or  tCCNC  CCNTCR 
u KONOi  • It  riNor  s chamo  or  conhano  oi  ooAces 


Nioroov 


e N SCNLOOSCR  Ltc 


ICM*»/70  RONTO/oesiON/COOC 


NCTHOO 


UrOATC  SCCNC  CCNTCR  FRON  UNIT  S. 


ir  sRCCirieo.  and  coNriRn. 


nACHiNC-oereNOCNr  cooe 


NONE. 


exTCRNAL  RereRCNces 


ocrsxH 

0CT9IN 

oersRL 

WARNS 

NOUARN 


a oer  CHARAcrcR  strino  data  riCLO  fron  unit  s 
a oer  intcocr  data  rieio  from  unit  s 
a oer  rcal  data  ficlo  fron  unit  s 

a oeNERAre  harnino  for  inval io/nissino  ficlo  from  unit  s 

a RRINT/COUNr/LOO  ‘NARNINO*  OIAONOSTIC  NCSSAOC 


excerrioNS 


I.  THC  FOLLOUINO  CONDITIONS  OCNERATe  'HARNiNO'  OlAONOSTICSi 
SCAINI  sreCIFICATION  NISSINO  OR  NISSPELLCO 

a.  sPECiFiCArioNS  outside  the  follouino  ranoes  are  rejected  and  generate 

‘HARNINO*  OlAONOSTICSi 

1000.  <-  SCAN  LINE  <•  aooo. 

1000.  <•  SCAN  sample  <,•  eooo. 

3.  AN  extra  specification  OENERATES  A 'HARNINO*  DIAGNOSTIC. 


OLOOAL  declarations 


INCLUDE  KONXQT.LIST 

include  konner.list 

INCLUDE  NULCST.LIST 
C 
C 

C LOCAL  OCCLARATIONS 


a CONNON  prooran  execution  switches,  counters 
a common  CRTS  SCENE  PARAMETERS 
a define  null  character  strino 


n«io 


OAN  MCKAOC  AAPCNOiX  H 

eomuNO  ttouriNCS 


KNOeCN 

oot 


c ——————— 

c 

iNrcocR  NOtAve  a savc  amca  ron  coNrCNrt  or  nototl  on  cntry 

INTCOCR  KNrcnr  a rcNroRAor 

c 
e 

c MOCeOURC 

c — 

c 

c 

CALL  TRACe 

e 

c 

c ocr/CNCCK  SCAN  losfCoAOJusreot  cooRoiNAres 
c 

NOSAVC-NOrOTL 
KNrenr**  nul* 

CALL  oersKH(KHrrnr.i3i.  NULCsri 

irtKNTCHR.CQ. * NUL * I 00  TO  VOO  • NO  SRCCS  ••  CONriRN 
irCKHrCNR.NC. *SCA*i  CALL  UARNSt  'COOROlNArC  SYSTCN  NOT  SCAN 
irCKNrCNR.NC. ‘SCA* I 00  TO  NOO 

CALL  OCrSRLtCrRLiN.  I . . i 000 . .0000 . . * *0A0  L INC  -•*> 

CALL  OerSRLCCTRSAN.  I . . 1000. .COCO. . ‘*OAD  SAHRLC 
CALL  OerSINIKHrCNR.  »l.>l.‘CxrRA  CCNTCR  SPeCiriCAMON 

c 

c 

C CONriRH  CeNTCR  COOROINAreS 

c 

«»oo  irfNcriRN.Ne.ot  uRire(S.<*«s>  croLiN.crRSAN 
•»«s  roRNATf*  ccNrcR.  SCAN.  * .TO.  I . ’ . * .rs.  I > 
c 
c 

C NORNAL  RCruRN 

c 

900  KONO*' 

RCruRN 

CNO 


N»ll 


ooooooooooooooorrooooooooooooooooooooooooooooooonnoooo 


OAH  PACKAOC  AMCNOI 
CONNANO  ROUriNCt 


KNOCNA 

001 


OUMOUnnC  KHOCNAt  A OET/tNCCK  NAH/ TRANOrONNCO  CHANNCL  NUNOCIKOI 

u KONOi  0 It  rtosr  3 cnaro  or  cornano  Oi  sracco 


NlOrORY 


E 

H 

SCHLOSSCR 

LEC 

00/E7/73 

E 

H 

SCHLOSSER 

LCC 

10/00/78 

E 

H 

SCHLOSSER 

LEC 

07/17/70 

C 

H 

SCHLOSSCR 

LCC 

00/11/70 

J 

C 

CRISP 

LCC 

1 I/0S/7S 

J 

C 

CRISP 

LCNSCO 

00/ IS/ 00 

kctnoo 


NunCRic  orriON 

ALOHANUHCRie  CONNANO 

ociere  rcturn  k 

RCVIOC  OCTS..  CALLS 

uroNAoe  oocuNCNrArioN 

OON*r  ASSIGN  TCHP  OUrrCR  rOlNfCRS 


urOATc  rRANsroA.‘'<AriON  ryre  a channels  tron  unit  s.  ir  srcciriEO. 

ANO  CONriNN. 


NACHINE'OCrENOENT  COOE 


NONE. 


EXrCNNAL  RerCRCNCES 


OETSKN  • OET  CHARACTER  STRING  DATA  riCLO  rRON  UNIT  S 

UNGETS  a OACK  UR  ONE  OATA  riELO  ON  UNIT  S 

0ET5IN  a OCT  integer  data  riCLO  RRON  UNIT  s 

HARNS  a GENERATE  WARN  I NO  TOR  INVAL 1 0/N I SS I NO  MELO  RROH  UNIT  S 


EXCEPTIONS 


I.  IP  transpornation  Type  is  not  specipieo.  then  *rah’  is  assured. 

E.  SPECIPICATIONS  OUTSIOE  the  POLIOHINO  ranges  are  rejected  ANO  OENERATE 
'UARNINO*  OlAONOSTICSt 

transpornation  type  • ’RAM* / *L IN* / ’POL • 

I <•  RAM  CHANNEL  <•  NERCHA 

I <•  TRANSPORHEO  CHANNEL  <•  i 

3.  AN  extra  SPECIPICATION  OEnERATES  A ‘UARNINO*  OlAONOSTIC. 


OLOOAL  declarations 


INCLUDE  KONXQT.LIST  I COHNON  PROORAH  EXECUTION  SWITCHES.  COUNTERS 


N-IC 


u u u u 


OAN  ^ACKAOC  AMCNOIX  N 
eOHNANO  NOuriNCt 


KNOCNA 

OOt 


INCLtlOC  KONNCR.LItr 
INCttAC  KONKLt.Llfr 
iNCLuOff  Konmr.Litr 
iNCLuot  NULCtr.usr 


• eoiwON  cfirs  tccNC  MHAncrcnt 

• eomiofi  CLAttiriCArioN  into 

• COMMON  iMNAOiANCC  TRANtroNNAr I ON  cocrrtciCNrt 

• OCriNC  NUL  CNARACrffR  trOtNO 


LOCAL  OCCLANAriONt 


iNrcocR  KNrYRC 
iNrrocR  NOOAvc 
intcocr  nlcmax 
iNrcocR  Nor 

IMreOCR  INTCNM 


a rNANtroNNArioN  rvRC  «mcc  or  coNriRNArioN 
a rCNMORART  tAVC  TOR  CONrCNfC  Of  NOrori  on  cntry 
a MAXIMUM  NUMRCN  Of  LlHir  CHANNCLS 

a ourrCR  nuhocr 

a rCMMORARY 


MROCCOURC 


CALL  TRACe 


ANT  ffCciriCArioNt  rROH  uscrt 
KHTYfC**  NUL* 

CALL  OCTSKHtKMTYfC. I I I . NULCtTl 

If iKHrYfc.co. * NUL’i  00  ro  eoo  a no  sfccs.  so  eoNfiNM  currcnt  oncs 

CALL  UNOCrS 


SAVe  OlAONOSnC  count.  OCLCTC  OLO  rRANtrCRH  TYfC.  CHANNCLS  S MAOIANCC  LIMITS 

NOSAVC»NOTOTL 
IRTTYf*‘NUL • 

NLIMCN«0 
00  ICO  N«l.s 

LINCN(Nt*S9S  a NULL  fLAO 
NifCHR<NI«SSS 
LCVL0(NI*»9999 
LCVNI (Nl*>9999 
ICO  CONTINUe 

c 

c 

C OCT  CMANNCL  TAANSf ORMAT I ON  TyfC 
C 

CALL  OCTSKtii  Ir'TTYM.  <1«  . NuLCS'l 

|f(  IRTTYR.r>r.  .'4I  00  TO  CCO  • ROSTIIYC  MORO  STARTS  UITh  ALRMA  CHARACTER 

c 

c 

C NO  CMANNCL  TYRC  --  ASSUMC  'RAW*  ( UNTRANS'ORNCOI 
C 

|RTTYR»‘RAM* 

CALL  UNOCTS 
C 

c 

C CnCCX  CMANNCL  TyRC  A SCT  MAX  ALLOMAOLC  NUMOCR  Or  CXfLICIT  CHANNCLS 


M'IS 


0*11  OACKAOC  A^OCNOIX  fl 
COUHAIIO  oourtNtt 


KNOCNA 

001 


e 

too  NLCNAXat  O NAXimW  NVNOCR  OT  rOANOrOlINCO  CNANNCIO 
iritorrvo.co.*LiN*i  oo  ro  too  o lincao  riiANOroiHi*rioN 

iriiorrro.co. *001*1  oo  ro  lOO  o ootAii  roAnoroRNArioN 

NkCNAXatiCIICHA  0 ttAXIHUN  NUROCO  Of  OAN  CNA4ML0 
Iff lorryo.CQ. *OAM*)  oo  ro  lOO  o uNroANorooHCO 
CALL  HANNOt  *0A0  CMANNCL  rvOC  ••*! 

e 

e 

c ocr/CNCCK  cxoLieir  cnanncl  numocro 
c 

300  00  300  NOr*t.NLCnAX 

CALL  OrrSlNtLINCMlNOfi . t .NLCNAX. *0*0  CMANNCL 

irtLINCHINOfi .CQ.OOOi  00  rO  300  0 NO  CMANNCL  OR  OAO  CMANNCL 

NLlNCN«NLIHCN*l 

irtNor.CQ.ii  00  ro  soo 

00  3N0  N«C.NOr 

irCLINCNIN-l I .CQ.LtNCMINOri I CALL  MARNOI 
• *OURLIC*re  CMANNCL  •>*l 

3N0  CONriNUC 

300  CONriNUC 

CALL  OCrOiNMNrCNR.  *t.«l.*r0O  NANV  CNANNCLO 

e 

e 

e CMCCK  roR  oiAONOsncs 
c 

iriNororL.co.NOOAvct  oo  to  ooe 
IRrrxRa'NUL ' 

NLINCN-O 

LINCNMI-OOO 

NOrCNRItlmOOO 

00  ro  000 

C 

C 

C CONCIRH  CMANNCL  TYRC  ANO  CMANNCL  NUMOCRO 

c 

000  irfNcriRn.ca.oi  oo  ro  ooo 

in iRrrrR.NC. *LiN‘)  oo  ro  ofo 
KNrrRC«‘L INCAR* 

00  ro  690 

6C0  irMRrrvR.NC.  *ROL‘i  oo  ro  S30 

KMTYRC**  ROLAR* 

00  ro  090 

030  rntyrc*’  ram* 

c 


090  MRireiO.9991  KNrrRC. >L iNCMINt .N-l .NL INCHI 


099  PORNATf  CNANNCL. 

*.A0.*. 

*.io.ro9. 10. 

A 

r»3.* . 

* .TOS.IO. 

A 

toy.*. 

*.ri3.io. 

A 

Til.*. 

*.riY.io. 

A 

T39.*. 

• 1 

normal  RCruRN 

900  XOMO*  * 

M-14 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO  UUOUOUOUOOOOOUOOOO 


DAN  PACKAOe  APPCNOIX  N 
CONNANO  AOUTINCS 


oercNA 

001 


suoRouriNC  oercHAt  • oct/cmcck  ocrecrioN  cnanncl  NUHoeotsi 
U KOnOi  a It  FIRST  3 CHARS  OF  COnHANO  0:  SPACES 


HISTORY 


E 

H 

schlosser 

LEC 

00/27/73 

E 

H 

schlgsser 

LEC 

IB/0B/7S 

E 

H 

SCHLOSSER 

LEC 

07/17/78 

E 

H 

SCHLOSSER 

LEC 

08/11/79 

J 

C 

CRISP 

LEC 

11/89/79 

J 

C 

CRISP 

LEHSCO 

08/19/80 

J 

C 

CRISP 

LENSCO 

0S/8H/80 

HUHCRIC  OPTIOH 

ALPHANUnCRIC  COHHANO 

OCLETC  return  K 

REVISE  GETS..  CALLS 

UPGRADE  OOCUnENTAriON 

OGN*r  ASSIGN  TEMP  BUFFER  POINTERS 

SPLIT  INTG  KNOCHA  A OETCHA 


HETHOO 


UPDATE  DETECTION  CHANNEL  NUHBERISI  FRON  UNIT  5.  IF  SPECIFIED. 
AND  CONFIRH. 


nachine-oepenoent  code 


NONE. 


EXTERNAL  REFERENCES 


OETSKH  a GET  CHARACTER  STRING  DATA  FIELD  FROM  UNIT  5 

UNGET5  a BACK  UP  ONE  DATA  FIELD  ON  UNIT  S 

OETSIN  a GET  integer  OATa  field  from  UNIT  5 

WARNS  a GENERATE  HARNINO  FOR  I NVAL I 0/ M I SS I NO  FIELD  FROM  UNIT  5 

LOGICAL  TRUAL  a TRUE  IF  CHARS  IN  CST  ARE  ALPHABETIC 


EXCEPTIONS 


I.  IF  CHANNEL  TYPE  IS  NOT  SPECIFIED.  THEN  ’OET*  IS  ASSUMED. 

e.  SPECIFICATIONS  OUTSIDE  THE  FOLLOMINO  RANGES  ARE  REJECTED  AND  GENERATE 
‘HARNINO*  DIAGNOSTICS; 

transformation  type  • ‘OET* 

I <•  CHANNEL  number  <>  NERCHA 

3.  AN  extra  specification  generates  a ‘WARNING'  DIAGNOSTIC. 


GLOBAL  declarations 


M*I8 


DAN  PACKAOC  APPCNOIX  N 
CONHANO  ROUriNCS 


oercHA 

00« 


IttCLUOC  KONXQr.LISr 
iNCLuoe  KonNeR.Lisr 
INCLUOr  KOHKLS.LISr 
INCLUDE  NULCSr.LISr 


a coNNON  PRoePAH  execunoN  shitcmes.  counters 

a CONNON  CRTS  SCENE  PARANETERS 
a CONNON  CLASStPICATION  INPO 
a OCPINE  NUL  cnaracter  string 


c 

c 

C LOCAL  declarations 

c 

c 

iNTEOEk  KNTVPE 
INTEGER  NOSAVE 
INTEGER  NOr 
INTEGER  INTEHP 


a CHANNEL  TYPE  SPECIF ICAT I ON  OR  CONFIRNATtON 

a renpoRARY  save  for  contents  of  nototl  on  entry 
a SUFFER  NUNBER 
a tcnporary 


c 

c 

C PROCEDURE 
c 

c 


CALL  trace 


c 

c 

C ANY 
C 


SPECIFICATIONS  FRON  USER? 


XMTYPE-*  NUL • 

CALL  0CT5KHIKHTYPE.nl.  NULCSTI 

IFtKHTYPC.EQ. * NUL * I 00  TO  600  a NO  SPECS.  SO  CONFIRH  CURRENT  ONES 

CALL  UNOETS 
C 
C 

C SAVE  DIAGNOSTIC  COUNT.  DELETE  OLD  CHANNEL  NUNBERS  t RADIANCE  LI  NITS 
C 


NDSAVC*NDT0TL 
NL INCH-0 
DO  ISO  N-l .5 

LlrCH(NI-999  a NULL  FLAG 

NBFCHR(NI-999 
LCVL0(NI-*9999 
LCVHI INI --9999 
ISO  CONTINUE 
C 
C 

C OET/ChECK  CHANNEL  TYPE  --  IF  NONE.  ASSUNE  ’OET* 
C 


CALL  OETSKHCKHTyPE. I 3> . NULCSTI 

iriTRUALIKHTYPE.  I .1  I I 00  TO  SSO  a IS  FIRST  CHAR  ALPHA? 

khtype-’OET*  a not  alpha  --  assune  channel  type  onitteo 

CALL  UNOETS  a --  SPEC  HAS  CHAN  • . BACK  UP  TO  GET  AS  tNT 

SSO  IFIKHTYPE.NC. *OET*I  CALL  HARNSf 
• ’CHANNEL  type  NOT  DETECTION  --’I 
C 
C 

C OET/CHECK  EXPLICIT  CHANNEL  NUNBERS 


00  360  NBF-I.NERCHA 

CALL  OETSINIL INCHINBFI . I . NERCHA 8A0  CHANNEL  --’I 
IF(LINCH(N6FI .E0.999I  00  TO  360  » NO  CHANNEL  OR  6AD  CHANNEL 


H-17 


o o r>  o n o o n 


O ^ \ 

OAN  PACKAOC  APPCNOIX  H 
COnHANO  ROUriNCS 


OCrCHA 

003 


iiuncM*m.tNCH»i 
iriNtP.CQ.n  00  ro  seo 
00  3%0  N«O.NOP 

irfLincHiN-ii.eo.LincHiNOFn  call  haiinsi 
• ’OURLICAre  CNANNCL  — *t 

s«o  continuc 

300  CONTINUC 

CALL  OCTSINI INTCHP.  *1.-1. *T00  HANV  CHANNELS  --*> 

C 

C 

C CHECK  FOR  OlAONOSriCS 
C 

IFCNOrOTL.CO.NOSAVCl  00  TO  600 
NLIHCH*0 
L INCHI  11-999 
NOFCHRI I t>999 
00  TO  900 


CONFIRN  CHANNEL  TYPE  ANO  CHANNEL  NUNBCRS 


600  IFINCFIRN.CO.O)  00  TO  900 

URITEIO.OSSt  (LINCHINI .N-l .NLINCHI 


699  FORHATI*  CHANNEL.  OCTECT. 

A T23.-. 

A T07  . • . 

A T3I.*. 

A T39.*. 


' .IS.T29.I2. 
• .T89. 18. 

• ,T33. 18. 

• .T37. 18. 

•I 


NORHAL  RETURN 


* 


« 


i i 


f ) 


I 


T a 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


OAH  PACKAOe  APPCNOIX  H 
COHHANO  ftOUriNCS 


KNOCLC 

OOt 


SUSnOUriNC  KNOCLCC  a CLCAII  MARNIMOS/eRRORS 

u KONO)  a It  riRsr  3 chads  of  cohhano  ot  spaccs 


NtSrODY 


E 

H 

SCHLOSSCR 

LCC 

IB/0S/7S 

ORIGINAL  CODE 

E 

H 

SCHLOSSCR 

LCC 

07/17/78 

OELCTC  RETURN 

K 

E 

H 

SCHLOSSCR 

LCC 

08/80/79 

REVISE  GETS.. 

CALLS 

E 

H 

SCHLOSSCR 

LEC 

11/09/79 

UPGRADE  OOCUHCNTATION 

HCTNOO 


CLEAR  COUNT  OF  UARNINOS  OR  OF  FATAL  ERRORS. 

hachine-oepenoent  code 


NONE. 


EXTERNAL  REFERENCES 


OETSKH  a OCT  character  strino  data  field  from  unit  3 

0CT5IN  a OET  INTEOCR  DATA  FIELD  FRON  UNIT  5 

HARNS  a OCNCRATE  UARNINO  FOR  I NVAL I 0/ Nl SS I NO  FIELD  FROM  UNIT  5 

NDCLRU  a CLEAR  UARNINOtSi 

HDCLRF  a CLEAR  FATAL  ERROR' SI 


EXCEPTIONS 


I.  A MISSING  SPECIFICATION  IS  INTERPRETED  AS  IF  UARNINO  HAD  SEEN  SPECIFIED 

S.  AN  INVALID  OR  extra  SPECIFICATION  OENERATES  A 'UARNINO'  OIACNOSnC 
NCSSAOC. 


OLOBAL  declarations 


INCLUDE  KONXQT.LIST 

include  nulcst.list 


c 

c 

C LOCAL  declarations 
C 

c 


a common  program  execution  suitches. 

a DEFINE  NULL  CHARACTER  STRING 


INTEGER  I TEMP  a TCNPORARY 


COUNTERS 


N>I9 


original  page 

OF  POOR  QUALTTV 


o o o o o o o o o o o o 


0AM  PACKAOe  APPCNOIX  N 
CONNANO  MOUMNtS 


KNOCLC 

OOO 


C 

C 

c PMoceouRC 

c 

c 

CALL  trace 
C 
C 

c oer/CNCCK  speciriCATioN 
c 

ireHP>‘HAR* 

CALL  oersKHdrcNP.isi . **no  clear  spec  --  uarnino  assuneo'i 

IP( I TEHP.CQ. *UAR' I 00  TO  EOO 
in  I TENP.EQ. ‘ERR*  > 00  TO  300 

CALL  WARNS!  ‘8A0  CLEAR  SPEC  I F ICAT I ON 
00  TO  900 


CLEAR  HARNINOIS! 

900  CALL  NOCLRW!  NULCSTI 

IP(NCPIRN.NE.O>  URtTC(6.9tSI 
91 S PORNAT!*  CLEAR.  WARN! NOS* I 
00  TO  900 


CLEAR  FATAL  ERRORCS) 

300  CALL  HOCLRF!  NULCST) 

IFCNCFIRN.NE .01  WRITEI6.31SI 
3IS  FORNATt*  CLEAR.  ERRORS*) 


CONNON  RETURN 

900  CALL  OETSIN! I TENP.  ‘EXTRA  CLEAR  SPEC  I F I CA T I ON  --■) 

KONO«* 

RETURN 

END 


i 


o 


DAN  PACKAOe  APPCNOIX  N 
COmfANO  ROUT  INKS 


KNOeOL 

OOt 


suanourtNC  khocol(  a oct/chcck  eoLoatsi 
u KOHOi  a It  rtRsr  3 chars  op  cohhano  Ot  spaces 


HISTORY 


e H SCHLOSSER  LEC 


OS/aS/78  HOOlPY  PRON  KNOSYH 


HETHOO 


OET.  CHECK.  INTERPOLATE  IP  NECESSARY.  AND  STORE  THE 
INTEOER-COLOR-EQUIVALENTS  (1-K-El  POR  CRT  PICTURES  IN  CHARACTER  8 
OP  the  ksyn  array  ELENENTS. 


NACHINE-OEPENOENT  CODE 


OlHENSION  8PECIPICATI0NS  ASSUME  6 CHARACTERS  PER  INTEOER. 


EXTERNAL  REPERENCES 


OETSKH  1 OET  CHARACTER  STRING  DATA  PIELO  PRON  UNIT  S 

OETSIN  a OET  INTEOER  DATA  PIELO  PROH  UNIT  5 

HARNS  a GENERATE  WARNING  FOR  I NVAL 1 0/ HI SS I NO  FIELD  FROM  UNIT  S 

UNOETS  a BACK  UP  ONE  OATA  FIELD  ON  UNIT  S 

NOUARN  a PRINT/COUNT/LOG  ‘HARNINO'  OIAONOSTIC  HESSAOE 

NOvcsT  a HOVE  character  string 

IHKOLR  a INTCOCR-COLOR’EQUI VALENT  FOR  COLOR 

KOLR>»I  a COLOR  FOR  INTEOER-COLOR-EQUI  VALENT 

PUTICE  a PUT  INTE0ER>CHARACTER-EQUI VALENT  INTO  CHARACTER  STRING 

OETICE  a OCT  INTEOCR-CHARACTER-EQUI VALENT  FROM  CHARACTER  STRING 


exceptions 


I.  the  FOLLOUINO  CONDITIONS  OENERATE  'UARNINO*  DIAGNOSTICS: 

COLOR  NODE  SWITCH  INCOLOR  IN  KOHXOTI  NOT  ON 
INVALID  COLOR  (SEE  I4K0LR  i KOLR>»II 

e.  SPECIFICATIONS  OUTSIDE  THE  FOLLOWINO  RANGES  ARE  REJECTED  AND  OENERATE 
'WARNING'  DIAGNOSTICS: 

0 <>  NUMBER  <«  ISYMHI  (SEE  XOMSYM-PROO 


GLOBAL  DECLARATIONS 


INCLUDE  KOMXQT.LIST  a COMMON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 


M-ai 


noon  o o o o 


OAN  ^ACKAOe  APPCNOIX  H 
eOHNANO  MOUriNCS 


KNOeOL 

00» 


iNCLuoc  KontvN.Lisr  a connon  tvntoL  taslc 

INCLUDE  NULCSr.LIST  • OCFINC  NULL  CHARACrCN  STNINO 

INCLUDE  HAXINT.LIST  A DEFINE  NAXINUN  INTEOER 

C 

c 

C LOCAL  DECLARATtONS 

C 

C 

C NOTEt  TNE  'HINIHUN*  COLOR.  I-K*E.  A NUNRER  OECLAREO  BELCM 

e PERTAIN  TO  TaE  FIRST  COLOR  A NUN8ER  SPECiriCO  BY  ThC  USER.  THE 

C 'NAXIHUH*  COLOR.  I*K-C.  A NUNBER  OECLAREO  8CL0M  PERTAIN  TO  THE 

C SECONO  COLOR  A NUNBER  SPECIFIEO  BY  THE  USER.  THE  ACTUAL  VALUES 

C OF  the  'HININUN*  I-K-E  a NUNBER  ARE  NOT  NECESSARILY  LESS  THAN  THE 

C VALUES  OF  THE  'NAXINUN*  l>K-E  A NUNBER. 

C 


INTEOER  NOSAVE  A TENPORARY  SAVE  FOR  CONTENTS  OF  NOTOTL  ON  ENTRY 

INTEOER  NINKLRCBI .NAXKLRI2)  A 'NININUN*.  ‘NAXINUN*  COLOR  (IS  CHARACTERS* 
INTEOER  Nl NIKE. NAX IKE  A 'NININUN*.  ‘NAXINUN*  I NTEGER*C0L0R-EQUI VALENTS 
REAL  ANINIK  A FLOOR  OR  CEILING  OF  NINIKE  FOR  INTERPOLATING  UP  OR  OOHN 

t*«TEOCR  INCIKE  A INCRENENT  DIRECTION  NiNiKE  TO  NAXIKE  1*1  OR  'It 

INTEOER  NUN  A NUNBER  I RAO/QENSI TY/COUNT/CL ASS. ETC . I FOR  COLOR 

INTEOER  NINNUN.NAXNUN  A 'NININUN*.  'NAXINUN*  NUNBER 

INTEOER  INCNUN  A INCRENENT  DIRECTION  NINNUN  TO  NAXNUN  ( »l  OR  •!> 

INTEOER  INTENP  1 TENPORARY 

REAL  COINUN  A COLORS  PER  NUNBER  (FOR  INTERPOLATION) 


C 

C 

C PROCEDURE 

C 

C 


CALL  trace 


INITIALIZE 

IF(NCOLOR.NC.O)  00  TO  ISO 
CALL  NOHARN( 

• 'COLOR  CONNANO  NOT  ALLOUEO  (COLOR  NODE  NOT  ON)*) 

00  TO  900 
ISO  N0SAVE«N0T0TL 


OET  optional  'NININUN*  COLOR  FRON  1ST  SPEC  FIELD 
HlNKLRin>‘  NUL* 

CALL  OETSKHININKLR. ( IS) . NULCST) 

IFININKLRI I ) .EO. * NUL * > 00  TO  BSO  A NO  SPECS 
NINIKE«NAXINT 

CALL  IVKOLRININIKE.  NiNKLRt  A CONVERT  COLOR  Tq  I-k.E 

if'ninike.eq.naxint)  Call  harnsi  ‘Bao  first  color  ••*> 
c 
c 

C OET  REOUIREO  'NININUN*  NUNBER  (INTEOER)  FRQN  SNO  SPEC  FIELD 
C 

NINNUN>NAXINT 

CALL  OETSINININNUH.  0. ISYNHI . '«BA0  FIRST  NUNBER  --*) 


N>S8 


DAN  MCKAOC  APrCNOtX  N 
eOHHANO  ROUriNCS 


KHOeOL 

DOS 


e 

c 

c initializc  iNPLieir  ’naxinun*  coloa  and  nunkm 
c 

CALL  NOVCSriNAXKLA.t 1 1.(181.  dlNKLA. ( 1 1 . ( 181 . ’ *> 
NAXNUN«M INNUN 


C 

c 

c 

c 


c 

c 

c 

c 


IS  3NO  8PCC  riCLO  INrCOCN? 


INrCNP«NAXINr 

CALL  OerSINUNrCNP.  -99S9.*9999.NULCSri  • SriLL  HAXINr  IP  NOT  INTeOCR 

CALL  UNOerS 


IP  3RO  spec  Pieio  is  not  iNreoen.  thcn  oer  optional  *naxihuh*  colon  pnoh  it 

IPdNTeNP.eQ.HAXlNTI  CALL  OCTSKHC HAXKLR . ( 1 8 1 . NULCSTl 

NAXlXe-NAXlNT 

CALL  IHKOLRINAXIKC.  NAXKLRI  • CONVCNT  COLOR  TO  l-K-e 

IPCNAXlKe.eO.NAXlNTl  CALL  HARNS(  ‘BAO  SCCONO  COLOR 


C 

C 

C OCT  OPTIONAL  'NAXIHUN* 

C 

CALL  oeTSiNCHAXNUH. 


NUNBCR  (iNTeOCRI  PROH  NCXT  SPPC  PICLO 
0. ISYNHI . *BAO  SeCONO  NUNBCR  --*> 


C 

c 

C CONPUTE  COLORS  PER  NUNBCR 
C 

INCIKE>«I 

IP(NINIKE.0T.NAXIKC>  INCIKC«-I 
NAXNUH*NlNO(HAXNUH. I8TNHI I 
INCNUN>»I 

IPCHINNUN.OT.NAXNUNI  INCNUN«>I 

COINUN-PLOATINAXIKC*NlNtKC»INClKCl / • PREPARC  TO  INTCRPOLATC  ... 

A PL0AT(HAXNUN>NINNUN*INCNUHI  • ...  OVER  INCLUSIVE  RANOC 

IPCABSICOINUNI .OT. I . I CALL  HOUARNC 
> ’MORE  than  I COLOR  PER  NUNBCR*) 

C 

C 

c CHECK  POR  Extra  spec  piclos  a pop  ouonostics 
c 


CALL  OCTSINC INHNUN.  *1.-1. ’EXTRA  COLOR  SPEC  I P I C A T I ON  --’) 
IPfNOSAVE .NC .NOTOTL ) 00  TO  900 
C 
C 

C INTERPOLATE  1-K-E‘S  A LOAD  INTO  COLOR  PART  (CHAR  6)  OP  SYNBOL  TABLE 
C 


ANINlK*PLOAT(NlNIKEI *0.0001  A INTERPOLATE  UP  PRON  LOU  SIDE  OP  NlNIKE 
IP(NINIKE.OT.HAXIKE) 

A ANINIK«PL0AT(NINIKEI *0.9999  A INTERPOLATE  ON  PROH  HlOH  SIDE  OP  NINIKC 
00  300  NUN-HINNUN.HAXNUN. INCNUH 

CALL  PUTICE(KSYN(NUH*n . (6> . A INTERPOLATE  I -K-E 

« IPIX(AHINIK»PL0AT(NUH-NINNUHI*C0INUNI ) 

300  continue 


H-83 


. ( 


onoo  oooo  nooo 


OAN  MCKAOC  AmNOIX  N 
eONHANO  KOUriNCS 


KflOCOL 

00«i 


CONrtM  COLORS 

trcNcriRH.CQ.oi  00  ro  ooo 

CALL  KOLRHI CNINKLR.  NINIKCI  • CONVCRT  I -K'C  tO  COLOR 

CALL  KOLRHI (NAXKLR.  NAXlXCl  • CONVCRT  I ‘K-C  TO  COLOR 

MRirCfO.StS*  NtNKLR.NINNUM.NAXKLR.NAXNUN 
SOS  rORNATf*  COLOR.  * .»A6. * . * . JS. * . ' .CAR. * . ’ . 

00  ro  900 


NO  COLORS  SRCCtrieO  ••  CONFIRN  ALL  COLORS 
sso  irtncriRN.NC.Oi  call  allklr 


NORNAL  RCrURN 


c 

c 

c 

c 

c 

c 

c 

c 

c 


900  KONO*‘ 
RCruRN 


INrCRNAL 

SUBROUriNC  ALLKLR 
INTCOCR  NXriKC 


• CONFIRM  ALL  CURRCNT  COLORS 
a Ncxr  i-K>e 


NINNUN*0 

CALL  OCriceiNlNlKC.KSYHm  . 181  I 
00  800  HAXNUN«0. tSYNHt 

CALL  OeriCeiNXriKC.  KSYNINAKNUN^SI . (SI l 

IFINXriKC. CO. NINIKCI  00  TO  800  I NCXT  I -K'C  SAMC  AS  CORRCNT 
CALL  KOLRHI (NINKLR.  NlNlKCI  I CONVCRT  I'K-C  TO  COLOR 

I Ft NlNNUH.eO.HAXNUNl 

a uRircte. I1SI  hinklr.ninnun 

l<*9  FORNATt*  COLOR.  * .8A6.  ' . ' . JJ) 

I F I H I NNUH . NC . HAXNUN I 

a uRircis.iss)  ninklr.ninnuh.naxnum 

I6S  FORNAM*  color.'  ' .8A6.  *.*  .J3. .J3I 

NlNNUN«NAXNUH*l 
NlNlKC«NXr IKC 
800  CONTINUC 
RCruRN 


C 

C 

CNO 


N-8<* 


OAN  l>ACKAOC  AMEND  IX  H KflDeO^ 

CONHANO  NOUriNCt  001 


•UMOUriNC  KNOCOPt  A OCT/CNCCK  NUNtCR  Of  OUrOUT  CORIES 

u KOHOi  • It  riRtr  s cnans  or  cohnano  Oi  sraces 


e 

e 

c 

e HISTORY 

e 

e 


c 

E 

N 

SCNLOSSER 

LEC 

IC/0S/7S 

original  code 

c 

E 

N 

SCNLOSSER 

LEC 

07/tS/TS 

DELETE 

RETURN 

K 

c 

E 

N 

SCNLOSSER 

LEC 

Ot/tO/7S 

REVISE 

OETS. . 

CALLS 

c 

E 

N 

SCNLOSSER 

LEC 

II/I0/7S 

URORAOE 

oocunentation 

c 

e 

c nethoo 

c 

c 

C UROATE  NUnOER  OR  OUTRUT  CORIES  RROH  UNIT  S.  If  SRECIflEO.  ANO  CONflRN. 

C 

c 

C NACMINE'OERCNOCNr  CODE 

C 

C 

C NONE. 

C 

C 

C EXTERNAL  RCrCRENCCt 
C — 

c 

C OETSIN  • OET  InTCOER  DATA  riCLO  fRON  UNIT  S 
C 

e 

C EXCERTIONS 

C 

C 

c I.  ir  the  nuhser  or  ccries  sRCCiriEo  is  < o or  > s.  a *marnino* 
c oiAONosric  is  issued  ANO  The  current  nuhser  or  co'ies  is  not 

C CNANOEO. 

C 

c C.  AN  EXTRA  SRECiriCATION  GENERATES  A 'UARNINO'  OIaONOSTIC  NESSAGE. 

C 

e 

C OLOSAL  declarations 

c 

C 

INCLUDE  KONXQT.LIST  • COHHON  RROORAH  EXECUTION  SWITCHES.  COUNTERS 

INCLtOE  KONALT.LIST  • COHHON  ALTERNATE  RRINT  rUE  COUNTERS.  ROINTERS 

C 
C 

C LOCAL  declarations 

C 

C 

INTEGER  ITEHR  • TENRORARY 

C 
C 

C RROCEOURE 


N>»S 


oo 


)C  AMCNOI 

•uriNCt 


KNoee# 

eot 


CALL  rilACC 

c 

CALL  0CT8IN(NC0PY.  0.8. ‘8A0  NUN8CN  OF  C0FIC8  IHOWC  THAN  81 
CALL  0Cr8tN(irCHF.  •l.•l.*CxrM  COFY  OFCCiriCAYtON 
irCNCriMH.NC.Oi  U8irc(8.l08i  NCOFY 

ifs  roMNAn*  coFics.  *.i«i 

KOHO-* 

RCruRN 


0AM  OACKAOC  AMMCNOIX  N 
CONNANO  MOVriNCt 


KNoeou 

001 


ouoiiourtNC  KNoeout  o ecr/CNCCK  count  mcn  mixcl 
U KONO)  0 ti  floor  I CNAOO  Of  CONNANO  Oi  OfACCO 


Hioroor 


C N OCHLOOOCN  LCC 

C N OCNLOOOCA  LCC 


07/17^70  IN  OCNIOITYI  CONNANO  IKONOCNI 

OS/Ot/70  NAKC  OCfANATC  CONNANO 


NCTHOO 


UfOATC  COUNT  fCO  fiXCL  f*<M  UNIT  9.  If  OfCCIfICO.  ANO  CONflON. 


NACNlNC'OCfCNOCNT  COOC 


NONC. 

CxrCONAL  OCfCACNCCf 

0CT9IN  • OCT  INTCOCN  DATA  fICLO  fOON  UNIT  9 

CXCCfTtON9 


I.  CONNANO  OfCCtf ICATI0N9  ANC  OfTIONAl.  OUT  if  NNCiCNr  AOC  CNCCKCO  fOX 
VALIOitr  ANO  NCtULT  IN  MAANINO  OlAONOtMC  If  OAO. 

0.  KONO  It  NOT  CHCCKCO  fOO  VALIOITY. 


OLOOAL  OeCLANAriONt 


INCLJOC  KONXOr.Utr  • COHNON  NROCOAN  CKCCUnON  tMtrCHCS.  COUNrCRt 

INCIUOC  KONKlt.Utr  I CONNON  Cl  Alt  I ft  CAT  t ON  INfO 


lOCAL  OCCtARATIONt 


INTCOCR  INTCNN  • reNNOOANV 


foocrouoc 


N-07 


0AM  MACKAOr  AAACNOU  H 
COMMAND  NOVriNCt 


CALL  rNACC 

e 

e 

C OCr^CMCCK  COUNT  tMCetriCATION 

e 

CALL  OCrStNIKTlPlX.  O.IC.'iAO  COUNT  ACM  Aim 

CALL  OCTtlNtlNTCMA.  •I.-I.*CXTNA  COUNT  OACCIflCATION 

irtNCriNN.Nr.oi  MiiiTCio.ifoi  ktiaii 
lt«  rORNATf*  COUNT.  ACM  Aim ‘I 

KONO«‘ 

ACTUMN 

CNO 


L) 

KMWOU 

eoc 


N-Ci 


ooooooooooooooooooooooooooooooooooooooooooo 


0AM  PACKAOC  APPCNOIX  H 
COHNANO  ROUriNCS 


KHOCftO 

001 


SUOROUTINC  KNOCROt  • CROtSTAO  rRCQUCNCY  OP  DATA  IN  PREVIOUS  UINOOU 
U KONOI  0 li  FIRST  3 CHARS  OP  CONHANO  0:  SPACES 


HISTORY 


E H 

SCHLOSSER 

LEC 

0S/BQ/7N 

original  code  in  oistab 

E r; 

SCHLOSSER 

LEMSCO 

0S/B6/B0 

ADAPT 

INTO 

KMOCRO 

METHOD 

PRINT  CROSSTABULATION  OF 

intensity  by 

COLOR 

FROM 

FREQUENCIES  IN  KOMTBL 

hachine-oepenoent  code 


ASSUMES  IE  CHARACTERS  PER  DOUBLE  PRECISION  VARIABLE. 


EXTERNAL  REFERENCES 


NONOTE  a PRINT/COUNT/LOO  ‘NOTE*  diagnostic  MESSAGE 

MDCLRH  a CLEAR  *UARNIN0‘  DIAGNOSTICS 

lOERT  a identify  erts  scene 

KOLRVI  a COLOR  NAME  (STRING)  FOR  I NTEOER-COLOR-EQUI VALENT 


EXCEPTIONS 


I.  THE  FOLLOHINO  CONDITIONS  GENERATE  ‘UARNINO’  DIAGNOSTICS; 
COLOR  MODE  SNITCH  (MCOLOR  IN  KOMXQT)  NOT  ON 

B.  AN  extra  SPECIFICATION  OEnERATCS  A 'UARNlNO*  DIAGNOSTIC. 


GLOBAL  declarations 


include  KOMXQT. list  i common 

include  komner.list  a common 

INCLUDE  KOMKLS.LIST  a COMMON 

include  komtbl.list  a common 

INCLUDE  NULCST.LIST  a DEFINE 

c 

c 

c LOCAk.  declarations 

c - 

c 


INTEGER  INTEMP  a TEMPORARY 


PROGRAM  EXECUTION  SWITCHES. 
ERTS  PARAMETERS 
CLASSIFICATION  INFO 
MULTI-PURPOSE  table 
NULL  CHARACTER  STRING 


COUNTERS 


M-E9 


o 


OAH  AACKAOC  APKNOIX  H KHOCRO 

COHMANO  ROUriNCS  OOt 


OOUaLC  RRCCISION  KOLNAH  • COiOR  NANC  (t«  CNARSI 
INTCOrR  KrRSURIIOl  a FRCQ  SUtrOTALt 

c 

c 

C RROCeOURC 

c 

e 

CALL  TRACe 
C 
C 

C CNCCK  ir  KOHTBL  LOAOCO  UlTH  rRCQUCNCY  INFO 
C 

tFinCOLOR.NC.Ot  00  TO  MO 
CALL  HOHARNC 

• ‘CROSSYAB  COMMANO  NOT  ALLOHEO  CCOLOR  NOOC  NOT  ONI ’ I 

00  ro  900 
MO  continue 

iFMKLsrrp.eo.oi .OR.  a no  class  type  fron  previous  display 
a (KTBLTY.NE. ’FREQ' M a no  freq  tables  loaded  fron  previous  display 
a CALL  KDHARNt  ’NO  PREVIOUS  HlNDOH  TO  CROSSTAB’ I 

c 

c 

C DRAIN  SPECS  FOR  CURRENT  CONNAND 
C 

CALL  OETSINMNTENP.  »I. -I. 'EXTRA  CROSSTAB  SPECIFICATION  --’I 
C 

c 

C CHECK  FOR  01  AGNOSTICS 
C 

IFINOATAC.NE.OI  00  TO  900  a OATA/CHECKOUT  NODE 

IFINOrOTL.NE.OI  00  TO  800 
C 

c 

C USE  PREVIOUS  HlNDOH  NUNBER  FOR  PAOE  HEADING 
C 

nhtemp*nhnooh  a save  current  hinooh  nunber 

NHNOOH-KTBLNH  a HINOOH  NUNBER  FRON  FREOUENCY  TABLES 

C 
C 

C PRINT  PAOETHINOOH  HEADINGS 
C 

HRITEIB.MSI  NHNOOH.NTrRAi. 

MS  FORNATI'  HINOOH  NUNBER  ' . J3 . 6X  . 'CROSST  AB  ‘ . 6X  . 4 AS  > 

CALL  HOUNI TI4. 101 
HRITEMO.MSI  NHNOOH.NTERAL 
C 
C 

C RESTORE  CURRENT  HINOOH  NUNBER 
C 

NUN00H*NHTENP 

C 

C 

C PRINT  table  headings 
C 

CALL  I0ERTI6I 
CALL  lOERTlIOl 


A 


« 
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OAN  PACKAOC  APPCNOIX  N 
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KROCRO 

DOS 


irtNeArcH.eo.ot 
A MRirets.iesi 
uRiTcno.iest 

l»S  rORRATI 

A 'OCOLOR  INrCNSITY*/ 

A * tot  80S  sot  HOI  SOI*. 

A 601  701  SOI  901  toot  TOTAL *t 

URITCce.tSSt 
URITCI to. ISSt 
tSS  rORHATlIXI 

c 

c 

C iNlTULlie  subtotals 

c 

00  3H0  Iie-0.9 

KPRsuat  ite*n -0 

SHO  CONTINUe 

c 

c 

C PRINT  CROSSTABULATIONS 
C 

00  600  IKE-0. to  • BLUE  THROUGH  HAOENTA 

CALL  KOLRHt (KOLNAN.  IKE) 

KFRTOT-O 

00  HOO  IIE-0.9  a lot  THROUGH  1001 

XrRTOT-KFRTOT-KrRCROt I IE-1 . IKE-I > 

XFRSUBI I IE* I l-KrRSU8( I 1E*I I -KFRCROt I IE*I . IKE*I i 
HOO  CONTINUE 

iriHBATCH.EQ.OI  URITE(6.HES) 

A KOLNAN. (KPRCROC 1 I E * 1 . 1 KE * 1) . I I E-0 . 9 1 .KFRTOT 

HRITEI  I0.H8S)  KOLNAN.  (KF-RCRO(  llE*l.lKC*l).IIE-0.9>  .KFRTOT 
H89  FORNAT( lX.AS. IX, 1016. 17) 

600  continue 

C 

C 

C PRINT  totals 
C 

KFRTOr-0 
00  610  IIE-0.9 

KFRr0T-KFRT0T*KrRSU8l  I IE*t  ) 

610  continue 

IFINBATCH.EQ.O) 

A HRITEiS.OIS)  (KFRSUet 1 IE*n . I IE-0.9) .KFRTor 
MRITEdO.SIS)  (KFRSUB'  IIE-II.IIE-O.S'.  KFRTOT 
6IS  FORHAT( 'OTOTAL • .5X. 101 8. 17) 

00  TO  900 
C 
C 

C CHECK  OIAONOSTIC  COUNTERS 
C 

800  IFINOUARN.EQ. 0)  00  TO  880 

CALL  NONOTEI  'PREVIOUS  HARNINCS  -•  NO  CROSSTAB  GENERATED* > 
IFINBATCH.EQ. 0)  HR|TE(8.8IS) 

819  FORNATl*  ...TRY  AOAIN') 

00  TO  890 

880  IFINOFATL .EQ. 0)  CO  TO  890 


N-3I 
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OAN  MCKAOe  APKNOIX  N 
eOHNANO  ROUMNCS 


CALL  NONOrCr  'PKCVIOUS  TATAL  CIMIOIIt  --  NO  CROSSTAO  OCNeNAreO* 
00  TO  090 

•SO  tpiHCHCCK.eo.oi  00  ro  ooo 

CALL  NONOrCf  ’CNCCKOUr  NOOe  --  NO  CROSSTAO  OCNCRAreO'l 


CLEAR  HARNINOS 

•00  CALL  NOCLRWI  NULCSTI 
C 

c 

C RETURN 
C 

900  KOHO«* 

RETURN 

ENO 


KNOCRO 

OON 


I 


oooooooooooonoooooooooooooooooooooooooooooooooo 


OAN  PACKAOC  APACMOIX  H 
eOHHANO  ROUTINCS 


KHOOCN 

001 


suoroutinc  knoocni  a oer/CHCCic  ocnsity  lihits 
u KONOi  a ti  rtttsr  3 chars  or  connano  o:  sraccs 


HISTORY 


e 

H 

SCHLOSSER 

LEC 

07/03/73 

c 

H 

SCHLOSSER 

LEC 

1 1/29/7S 

t 

H 

SCHLOSSER 

LEC 

07/17/78 

E 

H 

SCHLOSSER 

LEC 

03/22/79 

E 

H 

SCHLOSSER 

LEC 

1 I/I3/79 

HCTHOO 


NUHCRIC  OPTION 
ALPHANunCRIC  COHHANO 
AOO  COUNT  SPCCiriCATlON 
CONFIRM  COUNT  AS  SCPtRATC  COHHANO 

oocuhcnt  speciriCATioN  ranges 


UPDATE  HINIHUM  A HAXIHUH  DENSITY  FROM  UNIT  S.  IF  SPECIFIED.  AND  CONFIRM. 


machine-dependent  code 


NONE  . 


external  references 


OETSIN  a OET  integer  data  field  from  unit  s 


EXCEPTIONS 


1.  IF  THE  CURRENT  DETECTION  FILE  TYPE  IS  NOT  *OEN*.  THEN  A UARNiNO  IS 
GENERATED. 

2.  specifications  outside  the  FOLLOWING  RANGES  ARE  REJECTED  AND  GENERATE 
’WARNING*  DIAGNOSTICS: 

0 <-  MIN  density  <•  19 
MIN  density  <•  MAX  density  <>  19 
0 <■  COUNT/PIXEL  <>  12 


OLOOAL  declarations 


INCLUDE  KOMXQT 
INCLUDE  KOMKLS 


C 

C 

C LDCAL  declarations 
C 

e 


LIST 

LIST 


a COMMON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 

a COMMON  classification  info 
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OAN  PACKAOC  APACNOIX  N 

CONHANO  ftouriNes 


iNTeoeR  INTCNP  • rCNPOIIAIIY 

c 

e 

C PROCCOURC 
C 

c 

c 

CALL  TRACe 

c 

c 

e ocNSirr  cohhano  is  valid  only  ip  oerecrioN  pilp  typc  is  ’ocn* 

c 

ipiKLsrvp.eo. ‘ocN'i  oo  to  soo 

CALL  HOHARNt  ’INVALID  Ul THOUT  OCNSITV  OCrCCTION  PILC  •>* 
00  TO  900 

c 

c 

C OPT/CHCCK  HININUN  OCNSITV 

c 

aoo  LCVLOI-NAXOIO.LCVLOI I 
LCVLOt-HlNOMS.LCVLOl  > 

CALL  OCTSINILCVLOl . 0.19.  *SAO  NININUN  OCNSITV 

C 
C 

C OCT/CHCCX  NAXinuN  OCNSITV 
C 

LCVHI I >NAXO(O.LCVHI  I ) 

LCVHI l-HINO( I9.LCVNI  I I 

CALL  OCTSINCLCVHI I . O.I9.’«BAO  HAXIHUH  OCNSITV 
C 
C 

C OCT/CHCCK  COUNT  PCR  PIXCL 
C 

KTIPIX-HAXOIO.KTIPIX) 

KTlPtX«HINOna.KTIPlXI 

INTCNP>-9999 

CALL  OCTSiNf INTCNP.  O.ia.'BAO  COUNT  PCR  PIXCL  --’I 
I P( INTCNP. NC. -99991  K T I P I X • I NTCNP 

CALL  OCTSINI INTCNP.  •^.-l.•exTRA  SPf C I P I C A T I ON  --'I 
tP( INTCNP. CO. -99991  00  TO  300  A COUNT  SPCC I P I CAT  I ON  NI3SIN07 

C 

c 

C CONPIRN  OCNSITV  LINITS  » COUNT  PCR  PIXCL 
C 

IPINCPIRN.NC. 0*  MRITCiB.aaSi  LCVLOl .LCVHI I .kTIPIx 
BBS  PORNATI’  OCNSITV.  * . JB . ’ NlNlNUN.  * . JB . * MAXINUM"' 

A • COUNT.  ’.IB.*  PCR  PIXCL’I 

00  TO  900 
C 
C 

C CONPIRN  OCNSITV  LINITS  ONLY 
C 

300  IPINCPIRN.NC.QI  URirC(6.3BSl  LCVLOl .LCVHI I 

3BS  PORNATI’  OCNSITV.  ’.jB.’  NlNlNUN.  *.JB.‘  NAXINUN’I 


KHODCN 

OOB 


OAN  PACKAOC  APPCNOIX  N 
CONHANO  ROUriNCS 


KNOOCN 

OOS 


C DONC 
C 

900  KOHO-* 
RETURN 
END 


ooooooooooooooonooooooooooooooooonoooooooooooooooo 


OAN  PACKAOe  AMCNOIX  N 
CONNANO  ftOUriNCS 


KHOCXP 

001 


tuMouriNC  KNoexPt  a cxplain  anytnino 
u KONOi  a It  riRtr  3 cnam  or  connano  Oi  srACCs 


Mitronr 


E 

H 

SCHLOSSER 

LEC 

IB/05/7S 

ORIGINAL  CODE 

E 

H 

SCHL088ER 

LEC 

07/17/78 

DELETE 

RETURN 

X 

E 

H 

SCHLOSSER 

LEC 

08/80/79 

REVISE 

GETS. . 

CALLS 

E 

H 

SCHLOSSER 

LEC 

11/10/79 

RENOVE 

UNI  VAC 

PLO  PUNCTION 

ncthoo 


POR  each  user  SRECirtCATIONi 

OET  SRECIPICAr ION  % APPEND  TO  '0AM.EXP-*. 

CALL  RlfELT  TO  HRirc  DISK  SYNBOLIC  ELENENT  rilTH  ABOVE  NAHE. 

IP  NO  OUCH  ELENENT.  TRUNCATE  APPENDED  SPEC  1 PICaT I ON  TO  3 CHARACTERS 
AND  CALL  RITELT  AOAIN. 


nachine-oppenoent  code 


OIHENStON  SPECIPtCATIONS  ASSURE  6 CHARACTERS  PER  HORO . 

conditional  returns  to  STaTEHENT  labels 


EXTERNAL  REPERENCE8 


OETSKH 

putchr 
oetchr 
hovcst 
WARNS 
Ri TAOO 


a OET  CHARACTER  STRINO  DATA  PIELO  PRON  UNIT  S 
a PUT  CHARACTER  INTO  CHARACTER  STRINO 
a OET  CHARACTER  PRON  CHARACTER  STRING 

a HOVE  character  string 

a generate  warning  POR  INVAL IO/NISSINO  pielo  pron  unit  s 
a WRITE  OR  lAOO  DISK  SYNBOLIC  ELENENT 


EXCEPTIONS 


I.  IP  NO  EXPLANATION  POR  THE  USER  SPEC  I P I C A T I ON  IS  AVAILABLE.  A -WARNlNO’ 
OIAONOSTIC  NESSAOE  IS  ISSUED. 


OLOBAL  declarations 


INCLUDE  NULCST.LIST  I OCPINE  NULL  CHARACTER  STRINO 

C 
C 

C LOCAL  declarations 


N-36 


OAN  package  appendix  H 
CONNANO  POUriNES 


KHOCXP 

00* 


C 

e 

INTEOER  NANELriS*  • NAME  OP  DISK  tYNgOLIC  ELENENY  CONTAININO  EXPLANAYION 
DATA  INANELr;Ni .N*l .* I/’  OAH.EXP**/ 

INYEOER  KNRI  • tST  CHARACTER  OP  USER  SPEC  I P I CAT  I ON 


C 

C 

C PROCEDURE 

C 

C 

CALL  trace 


C 

C 

C 

C 


initialize 


•EXP* 


SPEC  BEPORE  TRYINO  TO  OET  1ST  SPEC 


NAHELTI3i>*EXP 


C 

C 

C OET  next  SPECIPICATION 
C 

1*0  CALL  OETSKHINANELTd)  .(  17)  . NULCST) 

CALL  PUrCHRINANCLTO)  . ( IS)  . * *)  • TERNINATE  WITH  BLANK 

IP(NANELTIS) ,EQ. * NUL')  00  TO  900  0 NO  NONE  SPECS 

C 
C 

C IP  1ST  CHAR  IS  *•*  CHANGE  IT  TO  *S* 

C 

CALL  OETCHRCKHRI.  NANEL T ( 3 > . ( I > ) 

IPCKHRI .EQ. *1* ) CALL  PUTCHR ( NAMEL T ( 3 ) . M > . *S*)  • EXEC  CONNANO 


C 

C WRITE  EXPLANATION  IP  AVAILABLE 
C 


CALL  RITAOOIS.NANELT.O.SIBOI 
00  TO  *00 

c 

c 

C EXPLANATION  WAS  NOT  AVAILABLE  --  TRUNCATE  SPEC  TO  3 CHARS  t TRY  AOAIN 
C 


ISO  CALL  N0VCST(NANELT(3)  .(*»).  M 31  . 
• • • . I I ) . ( II  . • *1 


CALL  Rl TAOO'B.NANELT.O.SBOQI 
C 
C 

C INITIALIZE  NUL  SPEC  BEPORE  TRYINO  TO  OET  NEXT  SPEC 
% 


*00  NANELT(3)«*  NUL* 
00  TO  1*0 
C 
C 


C EXPLANATION  STILL  NOT  AVAILABLE 
C 


BOO  CALL  WARNS)  *BAD  EXPLAIN  SPEC  I PI  CAT  I ON  ••*! 
00  TO  *00 
C 
C 


N-37 
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KNOCK A 
003 


e CONNON  RCruNN 

c 

000  KONO-* 

me  TURN 
CNO 


N-30 


o o u u o o 


OAN  PACKAOC  AAACNOIX  H 
eOHHANO  ROuriNCt 


KHOri 

001 


ouMouriNC  KNont  • rcRNiNATc  ir..ft  olock 
u KONOi  • oil  riRtr  i charo  or  conrano  Ot  oracco 


NiOrORT 


C H OCNLOfSCR  LCe  lt/09/79  RQnrt/OC9ION/COOC 


HCTHOO 


00  noth I NO. 


HACHlNC-OCrCNOCNT  cooc 


NONE. 


exrCRNAL  RCrCRCNCCt 


0CT9IN  } OCT  INTCOCR  DATA  rsCLO  TROH  UNIT  9 


exCCRTIONS 


I.  ir  ANY  ufiCR  srecincATioNcsi  arc  rRCscNT.  a *uarnino*  oiAONOsric 
IS  OCNCRATCO. 


0L09AL  OeCLARATIONS 


nonc. 


LOCAL  OCCLARATIONS 


INTCOCR  INTCNP  • TCHPORARV 
C 
C 

C RROCCOURC 
C 

c 

c 

CALL  trace 
C 
C 

e CNCCK  roR  extra  srcciriCATioN 


N-JO 


OAN  PACKAOC  AA^CNOtX  N 
CORMANO  ROuriNCt 


RROri 

OOt 


e 

CALL  OCrcINMNrCRR.  »l.-l.*CxrRA  ft  tKCiriCAriON 
c 
e 

e NORRAL  NCrURN 

c 

KORO«* 

RC TURN 
CNO 


H><*0 


OAN  PACKAOC  APfCMOiX  N 
CORNANO  ROUriNCt 


RNOOCO 

001 


ouoNOwrtNC  KNOOCOi  • ocr/CNCCK  Aojuorco  noo  oconcror 
U KONOI  0 1 1 floor  I CNAOO  Of  COONANO  Ot  OOACCO 


Nioroov 


C N tCMLOtOCO  LCC 

C N OCNLOttCO  LCC 


lt/07/70  OCQUIOCnCNTt 

it/to/70  octiON/cooc/rcor 


nctnoo 

UOOATC  OCOnCTOY  fOOH  UNIT  9.  If  tOCCIflCO.  ANO  CONflOH. 


nACNINC'OCfCNOCNr  cooc 


NONC. 


CXTCONAk  ACrCRCNCeS 


OCrOKH  • OCT  CMAOACTCR  OTRINO  data  fICLO  fA<:N  UNIT  9 

0CT9IN  • ocr  intcoco  oat*  riCLO  rxoH  unit  s 

NOUAON  • OOlNT/eOUNT/LOO  ‘HAONlNO’  OlAONOSTIC  HCOIAOC 


CxeCfTIONO 


I.  TNC  fOLLOHINO  CONOtTIONO  OCNCNATC  ‘UAAnINO*  OIAONOOTICO: 
tCAINI  tfCCIf ICATION  HISSINO  OA  HIOSfCLLCO 

r.  sfcctncAMONt  ourtioe  yhc  fOLiouiNo  aanocs  aac  acjcctcd  and  ocncaatc 

’MAANINO'  OlAONOITtCOt 

0 <•  SCAN  lINC  <•  0900 

0 *•  SCAN  SANALC  <•  390C 

3.  AN  eXTAA  SACCiriCATlON  OCNCAATeS  A -UAANINO*  OlAONOSTIC. 


OlOOAL  OeCLAAATtONS 


INCLUOr  KOHXOr.LIST 
INCIUOC  KONNCA.LISr 
INCIUOC  XONfir.LlST 
INCLUOC  NULCSr.UST 

e 

c 

C lOCAl  OrCLAAATIONS 


• COMMON  AAOOAAH  CXCCuTION  SUITCMCS.  COUNTCAS 
9 COMMON  CATS  SCCNC  AAAAMfTCAS 

• COMMON  AOJUSTMCnT /XCOISTAATtON  AAAAMC TCAS 

a ocr INC  NULL  chaaactca  staino 


N-MI 


ORIGINAL  PAGE  & 
OF  POOR  quality 


nnnn  onnn 


KHOOCO 

OM 


C - 

e 

INTCOCR  INTCn^  • 

iNfcecN  KNTcnp  • 


OAM  PACKAOC  APMNOIII  N 
cmntAND  moutincs 


A«OC»OURC 


CALL  rNACC 


ANY  mCinCATIONt  rAOn  USCH7 
KMTCHA**  NUk’ 

CALL  OCrSKMIKHTCHA. I 11 . NULCSTI 

iriKMTVAC.CQ. * NUL‘l  00  TO  000  A NO  OACCt.  SO  CONriRN  CURNCnT  ONCS 


CNCCK  OCOnCTAV 

IfllKMTCNA.  NC.  'CATM.ANO. 

A nCNTCHA. NC. ’NON* I . ANO. 

A IKNTCMA. NC. ‘LCC’ I . ANO. 

A CNHTCNA. NC. *Af  *).ANO. 

A IKNTCAA.NC. ‘SON* I . ANO. 

A IKNTCHA.NC.  ’UTH' I I KMTCHA«*iAO* 
irCKHTCHA.CO. *iAO* 1 CALL  WAANS<  *0A0  OCOACTAV  "'I 
ir IKNTCHA.NC. ‘OAO'I  NCAOCO'KNTCNA 

CALL  OCTSINI  INTCHA.  »l.>t.‘CXTAA  OCONCTAY  SACCmCATtON 


CONAIAN  OCONCTAY 

000  irmcrirH.NC.oi  naitcio.oooi  ncaoco 

090  rOANATl’  OCONCTAY.  * .All 

KONO*' 

AC Tuan 
CNO 


N-Nf 


G 


OAH  PACKAOe  APPCNOIX  H 
COHHANO  POUriNCS 


KNONCA 

OOt 


SUSKOUriNC  KNONCA(  a OeT/CHCCK  PAOe  HCAOINOS 
U KOHOi  a I:  PIPSr  3 CNARS  Of  COHHANO  Oi  SPACCS 


C 

c 

c 

c history 

c 

c 


C 

e 

H 

SCHLOSSER 

LEC 

t l/SH/73 

NUMERIC  OPTION 

c 

e 

H 

SCHLOSSER 

LEC 

IO/I3/7S 

ALPHANUMERIC  COMMAND 

c 

E 

H 

SCHLOSSER 

LEC 

07/17/78 

DELETE  RETURN  K 

c 

e 

H 

SCHLOSSER 

LEC 

02/80/79 

REVISE  GETS. . CALLS 

c 

E 

H 

SCHLOSSER 

LEC 

1 1/ IH/79 

UPGRADE  documentation 

c 
c 

C HCTHOO 

c 

c 

c uPOATe  HCAoiNO  Lines  i a z proh  unit  s.  ip  specipieo.  and  confirm. 
c 
c 

c MACHiNe-oepcNoeNT  cooe 

c 

c 

C NONt . 

c 
c 

c cxtcrnal  RcreReNces 

c - 

c 

c oersKH 

c oersiN 

c 
c 

c excepTioNS 

c 

c 

I.  speciriCATiONS  ourstoe  rne  pollominc  ranges  arc  RejEcreo  ano  cenerate 
'MARNINO'  OtAONOSriCS: 

I <«  LINE  NUMBER  <■  a 


a GET  character  string  data  field  from  unit  5 
a CET  integer  data  field  from  unit  5 


2.  ANY  comma  embeooeo  in  the  heading  specification  TERM'NATES  the 
HEADING  ••  the  remainder  IS  IGNORED. 


c 
c 
c 
c 
c 
c 
c 
c 

c global  declarations 

c 

c 

include  komxqt.list 

INCLUDE  NULCST.LIST 

c 

c 

C LOCAL  declarations 

c - 

c 

INTEGER  NH0I.NH02 


a COMMON  PROGRAM  EXECUTION  SHITCHCS.  COUNTERS 
a DEFINE  NULL  CHARACTER  STRING 


a LINE  NUMBER  OF  1ST.  2ND  HEADING  LINE  TO  CONFIRM 


M-N3 


OAN  PACKAOC  APFCNOU  N 
connANO  aoutincs 


c 

c 

c PAOceoune 

c 

c 

CALL  TAACe 

c 

c 

c oer/CHCCK  linc  numbca  t hcaoino  rexr 
c 

NH01*0 

CALL  OCrsiNrNHOt.  I .B. *BAO  HCAOINO  L I NC  NUNBCA  tNOT  I OA  Cl 
irCNHOt .NC.OI  00  TO  COO 
NHOI-I 
NHOCvC 
00  TO  300 
COO  NHOC'NHOI 

CALL  OCrSKHI JHOO( I .NHOI > . (7CI . NULCSTI 

c 

c 

C CONPIAH  HCAOINO  LiNCISi 
C 

300  IP(NCPIAn.CQ.O)  00  TO  900 
00  **00  NHO-NHOt  .NHOC 

UA I TCI  6. 395 1 NHO. UNDO i NWO . NHO ) .NUO>t . tC) 

399  rOAHATC  HCAOINO.  ’.It.*.  ‘.ICABI 

•*00  continue 
C 
C 

C COHHON  AC  TUAN 
C 

900  KOHO-' 

AC TURN 
CNO 


KHOHCA 

008 


--  • ) 


N-<*<* 


oooooooooonooooooooooo 


OAN  PACKAOe  APPENDIX  N 
CONHANO  ROUTINES 


KNOir 

001 


subroutine  khoipi  a conoitionallt  perporh  next  block  or  connanos 
U KOHOI  a I:  riRST  3 CHARS  OP  CONHANO  0:  SPACES 


HISTORY 


e 

H 

SCHLOSSER 

LEC 

09/20/7H 

ORIGINAL  CODE 

IN  KMONEX 

e 

H 

SCHLOSSER 

LEC 

07/2N/7S 

DELETE  RETN  K 

. ADO  LEGEND 

E 

H 

SCHLOSSER 

LEC 

I2/6S/79 

CHANGE  TO  KMO 

IP 

E 

H 

SCHLOSSER 

LEMSCO 

I2/0S/7S 

CHO  MAX  «CMOS 

IN  BLOCK  PROM  12  TO  20 

HETHOO 


COMPARE  SETTING  OP  CONDITION  SHITCH  UITH  SETTING  OP  SPECIPIEO  HOOE . 
IP  BOTH  SETTINGS  ARE  NOT  THE  SANE.  SKIP  ALL  COMMANDS  UNTIL  THE 
NEXT  PI  COMMANO. 


MACHINE-DEPENDENT  CODE 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NONE. 


EXTERNAL  RErCRENCES 


OETSKH 

HARMS 

OETSIN 

READS 


EXCEPTIONS 


a OET  SPECIPICATION  PROM  UNIT  S 

a PLAO  LAST  SPECIPICATION  PROM  UNIT  S AS  INVLAIO 
a OET  integer  data  PIELO  PROM  UNIT  s 
a READ  NEXT  COMMAND  INTO  UNIT  S SUPPER 


1.  INVALID  CONDITION  ( MODE  SPEC  I P I C A t I ONS  ARE  DETECTED  t PLAOCED. 

2.  A NESTED  'IP'  C.OMMANO  GENERATES  A 'UARNINO'  DIAGNOSTIC. 

3.  IP  MORE  than  20  COMMANDS  INTERVENE  BE’’NEEN  ThE  CURRENT  'IP'  COMMANO 
AND  The  next  'PI'  COMMANO.  THEN  THE  BLOCK  IS  TERMINATED  iJITH  A 
'WARNING'  OIAONOSTIC. 

GLOBAL  declarations 


NCLUOE 

KOMXQT .L 

1ST 

a 

COMMON 

NCLUOE 

NULCST ,L 

1ST 

a 

OEPINE 

NCLUOE 

maxint.l 

1ST 

a 

OEPINE 

PROGRAM  EXECUTION  SWITCHES. 
NULL  character  string 
MAXIMUM  integer 


COUNTERS 


o o o o 


OAN  AACKAOC  APPEND  IX  N 
CONNANO  ROUriNCS 


KHOIP 

ODD 


c 

C LOCAL  OeCLARAriONS 

C 

C 

INreOCM  KONO 
INreOCR  KONOSU 
INreOCR  NODE 
INTEGER  HOOESH 
INTEGER  IMTEMP 
INTEGER  NSKIP 
INTEGER  KMOGKP 
C 
C 

C PROCEDURE 

C 

C 

C 

CALL  TRACE 


C 

C 

C 

C 


OET/CHECK  CONDITION 


a condition  SPECIFIED  BY  USER  (’OFF*  OR  *ON*l 
a CONDITION  SNITCH  SETTING  i 0 OR  I I F VALID! 
a NODE  SPECIFIED  BY  USER 
a NODE  SNITCH  SETTING  ( 0 OR  I IF  VALIOI 
a TENPORARY 

a NUMBER  OF  CONNANOS  SKIPPED 
a NAME  OF  CONNANO  BE  I NO  SKIPPED 


OFF*  OR  ‘ON*  a CONVERT  TO  CONDITION  SNITCH 


KONO«*  NUL* 

CALL  GETSKHIKONO. (31 . NULCSTI 
KONOSHaMAXiNT 

IFIKONO.EQ. ‘OFF* I K0N0SN«0 
IFIKONO.eO. *0N  *)  KONOSNal 
IF(KONOSN.EQ.NAXINT)  CALL  NARNS( 

■ ‘BAD  CONDITION  (NOT  ON  OR  OFF  I •-*! 

C 

c 

c OET/CHECK  NODE  A FIND  CURRENT  VALUE  OF  ITS  NODE  SNITCH 
C 


N00E>*  NUL* 

CALL  OETSKHINOOC. ( 

nooesn>naxint 

IF (NODE. EQ. *BAT*) 
IFINOOC.EQ. *CHE* I 
IF(NOOE.EQ.  'COL  * I 
IF(N00C.EQ.  *CCN*I 
IF (NODE. EQ. *0UN* ) 

if(nooe.cq. *ech* I 

IF(H0DC.EQ. ‘LEG* I 
IF(NOOE.EO. ‘PRO* I 
IF(NOOE.EQ. *TRA‘I 

if(nooesh.eq.naxin 

CALL  OETSlN( INTENP 


31 . 


NULCST) 


nooesn«nino(nbatch. 1 1 a batch 

nooesh«nino(ncheck. n a checkout 

nooesn>nino(mcolor. t I a color 

nooesm*nino(hcfirh. I ) a confirn 

nooesh>nino(noump. 1 1 a ouhp 

nooesm>nino(necho. 1 1 a echo 

NOOESNaNlNO(NLEONO. I ) 9 LEOENO 

nooesu-nino(npromt. 1 1 a prompt 

nooesh>nino(ntrace. n a trace 

Ti  Call  uarns(  'bad  node  --*) 

. *1.-1. ‘Extra  if  specification 


I 


IF  SPECIFICATION  VALID  t KONDSN  <>  NODESH.  ThEN  SKIP  CONNANOS  INSIDE  BLOCK 


a 

a 

a 


IF( (KONOSN.EQ.NAXINTI . OR 
INOOESN.EQ.NAXINT) .OR 
(KONDSN. EQ.HOOESHI  I 
GO  TO  BOG  a 

DO  600  NSKIPal .21 


a CONDITION  INVALID 
a NODE  INVALID 

a NODE  SNITCH  IN  SPECIFIED  CONOITI 
THEN  0CN*T  SKIP  CONNANOS  IN  BLOCK! 1 


ON 


N-H6 


o o o u 


C 

OAN  PACKAOe  APPCNOIX  N 
CONNANO  ROUMNCS 


CALL  RCAOStLSSrAT.  NULCSTI 
CALL  0CTSKNIKH08KR. (31 . MULCSTI 
irCKNOSKP.CQ. * ir  *1  CALL  HDHARNI 

• *NCsreo  tr  not  allomcom 

iriKHOSKP.CQ. *PI  *1  00  TO  900 
« 600  CONTINUE 

CALL  HOHARNt 

> *6A0  ir...ri  BLOCK  — NORE  THAN  SO  CONHANOS  OR  NISSINO  PI 


nornal  return 

900  K0N0«* 
RETURN 
ENO 


KNOIP 

003 


• I 


ooooooooooooooooooooooooooooooooooooooooooooooooooooo 


OAH  PACKAOC  APPCNOIX  N 

eoNHANo  routines 


KNOINT 

OOt 


SUSROUriNC  KHOINTf  • OCT/CNCCK  INTCNSITY 
U KOnOt  • li  FIRST  3 CHARS  OF  COHNANO  0*  SPACES 


history 


E H SCHL08SER  LEC  08/26/79  NOOIFY  FROH  KNOSYH 

E H SCHLOSSER  LENSCO  0S/30/B0  SUPPORT  ENCOOEO  PERCENTS 


HETHOO 


OET.  CHECK.  INTERPOLATE  IF  NECESSARY.  ANO  STORE  THE 
INTEOER-INTENSI TY-EQUI VALENTS  (I-I-E)  FOR  CRT  PICTURES  IN 
CHARACTER  S OF  THE  KSYH  ARRAY  ELEMENTS. 


NACHINE-OEPENOENT  COOE 


ASSUMES  AT  LEAST  S CHARACTERS  PER  KSYM  ELEMENT. 


EXTERNAL  REFERENCES 


OETSIN 

OCOOE 

UARNS 

UNOETS 

MDHARN 

PUT  ICE 

OET ICE 


< OET  inteoer  data  field  from  unit  S 

a DECODE  NUMERIC  CHARACTER  STRING 

a GENERATE  WARNING  FOR  I N VAL 1 0/ M I SS I NO  FIELD  FROM  UNIT  5 
a SACK  UP  ONE  DATA  FIELD  ON  UNIT  9 

a PRI NT/COUNT/LOO  ’warning*  diagnostic  message 
a PUT  INTEOER'CHARACTER-EQUI VALENT  into  character  STRINO 
a OET  inteoer-character-equi valent  from  character  string 


EXCEPTIONS 


1.  THE  FOLLOWING  CONDITIONS  GENERATE  'WARNING*  DIAGNOSTICS: 

COLOR  MODE  SWITCH  (MCOLOR  IN  KOMXQTl  NOT  ON 

2.  SPECIFICATIONS  OUTSIDE  THE  FOLLOWING  RANGES  ARE  REJECTED  AND  GENERATE 
’WARNING*  DIAGNOSTICS: 

.OS  <•  INTENSI TV  <m  1.00 

0 <•  NUMBER  <•  ISYMHI  (SEE  KOMSYM-PROO 

3.  AN  extra  SPECIFICATION  GENERATES  A ’WARNING*  DIAGNOSTIC. 


GLOBAL  declarations 


INCLUDE  KOMXQT.LIST 


a COMMON  program  execution  switches. 


COUN'ERS 


M-NB 


OAH  PACKAOe  AP^CNOtX  H 
CONHANO  ftOUTlNCS 


INCLUOC  KONtYH.LISr 
INCLUOC  NULCST.LIST 
INCLUOe  NAXINT.USr 
C 
C 

C LOCAL  OeCLARATIONS 

C - 

C 

C Norci  THC  ’HINIHUH*  INTCNSITY.  I-I-C.  A NUHSeR  OCCLARCO  BCLOH 

C PCRTAIN  ro  thc  first  intensity  a NUNSCR  SPCCiriCO  by  the  user,  the 

C 'HAXINUN*  intensity.  I • I -E . A NUNBCR  OECLAREO  BELOU  PERTAIN  TO  THE 

C SECOND  intensity  a NUNBER  specified  BY  THE  USER.  THE  ACTUAL  VALUES 

C OF  THE  ‘HINIHUH’  I • I -E  A NUHBER  ARC  NOT  NECESSARILY  LESS  THAN  THE 

C VALUES  OF  the  'HAXIHUN*  I - 1 -C  A NUHBER. 

C 

INTCOER  NOSAVE  A TEHPORARY  SAVE  FOR  CONTENTS  OF  NOTOTL  ON  ENTRY 

INTCOCR  INTChP  a TEHPORARY 

INTCOER  KHTCHP  I TEHPORARY 

INTCOER  HINPCT.HAXPCT  I HlNlHUH.  HAXIHUH  INTENSITY  PERCENT 

INTCOCR  HINI IE .HAXI IE  I HINIHUH.  HAXIHUH  I NTEOCR - I NTCNS I T Y -CQU I VALENT 

REAL  AHINII  i FLOOR  OR  CCILINO  OF  HINI IE  TO  INTERPOLATE  UP  OR  OOMN  FROH 

INTCOCR  INCIIC  a INCRCHCNT  DIRECTION  HINI IE  TO  HAXI IE  (*l  OR  01) 

INTCOCR  NUH  a NUHBER  ( RAO/ OCNS I T Y/ COUNT /CL ASS . ETC . I FOR  INTCNSIT 

INTCOCR  HlNNUH.HAXNUn  a HINIHUH.  HAXIHUH  NUHBCR 

INTCOER  INCNUH  a INCRCHCNT  DIRECTION  HINNUH  TO  HAXNUH  (*l  OR  -I  I 

REAL  TNINUH  A INTENSITIES  PER  NUHBCR  (FOR  INTERPOLATION) 

C 

C 

C PROCEDURE 

C - 

C 

CALL  trace 
C 
C 

c initialize 

C 

IF(HCOLOR.NE.O)  00  TO  ISO 
CALL  HDUARNI 

• 'INTENSITY  COHHANO  NOT  ALLOHCO  (COLOR  HOOE  NOT  ON)*) 

00  TO  900 
ISO  N0SAVC«N0T0TL 
C 
C 

C OCT  OPTIONAL  'HINIHUH'  INTENSITY  (t)  FROH  1ST  SPEC  FIELD 
C 

XHTE  «•  NUL • 

CALL  OCTSKHIKHTCHP. (V) . NULCST) 

IFIXHTEHP.CQ. ‘ NUL')  00  TO  890  i NO  SPECS.  SO  CONFIRH  EVCRYTHINO 

L0CPCT«LCHREQ(  KHTCHP.  ( I ).(•♦).•  | • ) 

K00TYP«’CRR' 

IFCLOCPCT.OT. I ) CALL  OCODC ( INTEH*. RL TENP. KOOTYP. 

■ KHTCHP, ( I ) . (LOCPCT-I ) I 

IFI INTCHP.lt. I ) KOOTYPa'FRR' 

IF( INTCHP. OT. 100)  K00TYP*'CRR' 

IF(K0DTYP.EQ. 'IN’)  HINIIE«(INTCHP-I1/I0 

IF(K0DTYP.NC. ‘ IN' ) CALL  WARNS!  'BAD  FIRST  INTENSITY  ••') 


KNOINT 

OOS 


• COHMON  SYHBOL  TABLE 

• define  null  character  STRINO 
a DEFINE  NAXINUN  INTEOER 


Hoi»9 


OAH  package  APPCNOIX  N 
CONNANO  ftOUriNCS 


KNOI Nf 
003 


U 


c 

e 

c orr  KCQuifieo  ‘nininun*  nunicr  (intcoeio  rnon  ono  spec  rieio 

;■  c 

V NlNNUH«NAXlNr 

CALL  OrrSINtniNNUN.  O.ISYNHI. **0A0  FIRST  NUH8CR 

e 

c 

C INiriALIZe  iNPLICir  ‘HAXINUH*  intcnsity  ano  nunocr 

c 

MAXI IC-HINI IE 
nAXNUN-HINNUH 

c 

e 

C 18  3RD  SPEC  FIELD  INTEGER? 

C 

INTEHPvHAXINT 

CALL  GETSINI INTEHP.  -OOOO . *9999 .NULCST)  • STILL  NAXINT  IF  NGT  INTEGER 
CALL  UNGETS 
C 
C 

C IF  3RD  SPEC  FIELD  NGT  INTEGER.  GET  GPTIONAL  ’NAX*  INTENSITY  (XI  FRON  IT 
C 

KHTENP-’  NUL’ 

I IF(  INTCMP.CQ.NAXINri  CALL  GETSKH  ( KHTENP  .(•*  I . NULCSTI 

I IFCKHTEHP.EQ. * NUL* I OG  TO  S30 

LGCPCT*LCHREQ(  KHTENP.  I t I . ( <»  I . • t ' I 
KGDTyP-*BRR* 

I IFILGCPCT.GT.il  CALL  DCGDE ( I NTENP . RL TENP . KODT YP . 

• KHTENP. ( I I . ILOCPCT-I ! I 

IFf INTENP.LT. 1 I KGDTYP-’ERR* 

IF( INTENP.GT. tool  K00TYP**ERR* 

IFIKODTYP.EQ. * in* I NAXI IE*( I NTENP* I I / 10 

f IFIKODTVP.NE. * IN* I CALL  MARNSI  *8A0  SECOND  INTENSITY  ***1 

e«o  continue 
c 
c 

, C GET  optional  *NAXINUN*  NUNOCR  (INTEOERI  FRON  NEXT  SPEC  FIELD 

' C 

I CALL  OETSININAXNUN.  0 . I S YNH I . * SAO  SECOND  NUNOCR  •*') 

c 

c 

C CONPUTE  INTENSITIES  PER  NUNOER 
C 

I NC 1 1 C - * I 

IFCNINI IE.OT.NAXI  IE!  INCIIC*-! 

NAXNUN*NINO>NAXNUN. ISYNHI I 
INCNUN**! 

IFININNUN.OT.NAXNUNI  INCNUN«*I 

TNINUN*FL0AT(NAXI IC*NlNl 1C*INCI lEI / I PREPARE  TO  INTERPOLATE  ... 

I FLOAT (NAXNUN'NI NNUN* I NCNUNI  » ...  OVER  INCLUSIVE  RANGE 

IFIAOSITNINUNI .OT. I . ) CALL  NOMARNI 

I*  *NORE  Than  i intcnsi*t‘y -^cr  nunocr*  i 

C check  for  extra  spec  fields  a FOR  DIAGNOSTICS 


N-SO 


KNOINT 

00*» 


OAN  PACKAOC  APfCNOtX  N 
eOHHANO  ROUriNCS 


CALL  OCTSINtlNTCHP.  ♦I.-I.'CXTRA  INTCNSITY  SPCCIPtCAr ION 
irCNOSAVe.NC.NOrOTLI  00  TO  900 

c 

e 

C INTCRPOLATe  l•l•C‘8  9 LOAD  INTO  iNTeNtlTY  PAlircCNAR  S>  Of  SYMBOL  TABLC 

c 

ANINII>rLOAT(HlNIIC)*O.OOOI  • INTCRPOLATe  UP  PROH  LOU  SIOC  OF  HINIIC 
irCNINI IC.OT.MAXI 1C) 

I AHlNM«rL0AT(mNliei*0.9999  a INTCRPOLATC  ON  FROM  HlOH  SIOC  OF  NlNItC 


00  300  NUH-HiNNUN.nAXNUn. INCNUN 

CALL  PUrtCe(KSYN(NUN«n  . (9t  . 


a INTCRPOLATC  t-l-C 


IFtXIAHiNI I •FLOAT(NUH>NINNUN) • TNI NUMI ) 


300  CONTINUe 

c 

c 

C CONFIRM  INTCNSI TICS 
C 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


MINPCT-(MINI  ic*i  mio 
MAXPCT«(MAXIIC*lt<IO 
IFIMCFIRM.NC.O) 

a HRITC(S.3CSI  MINPCT.MINNUM.MAXPCT .MAXNUM 

38S  FORMAT!’  InTCNSITy.  I<»  J3.  ’ . ’.U.’f 

00  TO  900 


NO  INTCNSITICS  SPCCIFICO  --  CONFIRM  ALL  INTCNSITICS 
890  IFIMCFIRM.NC.O*  CALL  ALLINT 


NORMAL  RCTURN 

900  KOMO*’ 
RCTURN 


« 


INTCRNAL 

SU8R0UTINC  ALLINT  l CONFIRM  ALL  CURRENT  INTCNSITrS 


INTCOCR  NXTIie 


NCXT  I-I-C 


’ . J3* 


MINNUM«0 

CALL  OCT  ICC  I MI Nl !C .KSYMC I I . (9* I 
00  800  MAXNUM-0. tSYHHl 

CALL  OCTICCiNXTI IC.  KSYM! MAXNUM*8l . ( 9* > 

IFINXTI IC.CQ.MINI ICI  00  TO  200  A NEXT  I I -C  SAME  AS  CURRENT 

NINPCT-IMINI IC*I > • 10 
IFININNUM.CO.MAXNUM* 
a URITCIS.  I'^SI  MINPCT.MINNUM 

1«*9  FORMAT!*  INTCNSITY.  *.  I ‘ J3  * 

IF ININNUN.NC. MAXNUM* 


M-SI 


OAN  ^ACKAOC  A^PCNOIX  N 
CONHANO  ROUriNCS 


KNOlNr 

ooe 


A HNirC(6.168)  NINMr.NINNUn.NAXNUn 

Its  ronHAff  iNrcNtirr. 

NtNNUH*NAXNUN*t 

HiNiie-Nxriie 
too  coNriNue 
neruRN 


oooooooooooooouooooooooooooooooooooooooooooooooooooooo 


OAK  »ACKAOC  AMCNOIX 

conhand  KOUTINCS 


n 


KNOLIN 

QOI 


lumouriNC  knolini  • oct/chcck  lincar  HCiONrt/0AiN/»ut 
u KONOt  • i>  riRtr  s cnam  or  cohnano  ot  irACCt 


MttTORV 


c 

H 

SCHLOSSCR 

LCC 

IB/I7/7S 

ORIGINAL  COOC 

c 

N 

SCNLOSSCR 

LCC 

07/IB/7B 

OCLCTC 

RCTURN 

K 

c 

H 

SCHLOSSCR 

LCC 

OB/tO/79 

Revise 

OCTS.  . 

CALLS 

c 

H 

SCHLOSSCR 

LCC 

11/18/79 

UPORAOe 

DOCUMCNTATION 

ncthoo 


uroATc  lincar  MClOHrs.  oain(s>.  busccsi  rROn  unit  «.  ir  srcctrico. 

AND  CONFIRM. 

(RIASCt  A ueiOHTeo  GAINS  ARC  MAINTAINCO  IN  LABCLLCO  COMMON  AS  INTCOCNS 
SCALCO  BY  B«*IB. I 


NACHINC-OCPCNOCNT  COOC 


SCALCO  INTCOCR  BIASCS  A UCIOHrCO  GAINS  ASSUHC  SB'SIT  INTCOCRS- 
OINCNSION  AND  PORMAT  SPCC 1 PIC AT  I ONS  ASSUMC  6 CHARACTCRS  RCR  INTCOCR. 


CxrCRNAL  RCPCRCNCCS 


OCTSKM  a OCT  CHARACTCR  string  data  PICLO  PROM  UNIT  S 

OCTSRL  a OCT  RCAL  DATA  PICLO  PROM  UNIT  S 

OCTSIN  a OCT  INTCOCR  DATA  PICLO  PROM  UNIT  S 

WARNS  a OCNCRATC  ‘UARNINO*  POR  INVALIO/MI SSINO  PICLO  PROM  UNIT  s 

CSTi*|N  a CHARACTCR  STRING  POR  INTCOCR 


cxccptions 


I.  THC  POLLOUINO  conditions  OCnCRATC  ’UARNINO'  OIAONOSTICS: 
COCPPICICNT  TVPC  not  WCUOHTSI  or  OAIINI  OR  BUIS) 


e. 


SPCCIPICATIONS  OUTtlOC  THC  POLLOUINO  RANOCS  ARC  RCJCCTCO  ANO  OCNCRATC 
’UARNINO*  OIAONOSTICS: 


1 

<• 

CHANNCL 

< • 

C 

-10. 

<• 

UCIOHT 

< « 

• 10. 

-10. 

<• 

OAIN 

< • 

• 10. 

-100. 

< • 

BIAS 

< • 

• 100. 

I.  AN  CXTRA  SPCCIPICATION  OCNCRATCS  a ’UARNINO' 


01  AGNOSTIC. 


Paop 


M-SS 


I 


OAN  ^ACKAOC  AMCNOIX  H 
COHHANO  xouriNCt 


KHOL I N 

oot 


• eONNON  AWOOAAH  CXCCUTION  fUlTCMCt.  COUNTCIIt 

• CONNON  curt  sccnc  aananctcm 

a connON  imaoiancc  ruANtroNnATioN  cocrriciCNTs 
a OCriNC  NULL  chanactcn  stnino 


e OLOtAL  OCCLAAATIONt 

c 

e 

INCLUOC  KONXOr.Llfr 
INCLUOC  KOHNCR.LItr 
INCLUOC  KONinr.Lisr 
INCLUOC  NULCSr.LlST 

c 

c 

C LOCAL  OCCLAAATIONS 

c 

c 

NCAL  rtlAtOl  a rCHA  srOAAOC  ton  oiascs  as  ACAL  NUHOCAS 
intcocr  jcntisi  a oynanic  roANAr  ••  jmiisi  chanocs 
C lUNiVAC  HOI  I 1 1 t I ICCC>CC33333Si»Hi»H<»ASS8S8S6eeS667777778atS0t 
OATa  JCHf/ * (OH  L InCaR.  .11. oh.  MCIOhTS.  OOOOOOI8H,  .ro.711*/ 

c 

c 

C MOCCOUNC 

c 

c 

CALL  TNACC 

c 

c 

C ACTRICVC  CUNACNr  UNCAA  OIASCS 
C 

roiASi  n•rLOAr(LATOlC(l  n/o.««tt 

r0lASI8i*rL0AT(I.Nr0lC(8l  wc.«*  18 

c 

c 

C OCr/CHCCK  L INCAN  TRANSrONHCO  CHANNCL  nuhocn 

c 

NL • * NONC ' 

CALL  OCTSININL.  l.f.'fAO  LINCAN  CHANNCL  NUHOCN  -•’> 
iriNL.CO. *NONC* I 00  TO  080  a NONC  ON  INVALID 

c 

c 

C ocr  TNANSrONHATION  COCrriCICNT  TtNC  ( ‘HCIOHTS’ / 'OAIN* / *oi as* • 

c 

300  irCNN>*NONC‘ 

CALL  OCTSKHI  I rCNN.  ( 3>  . NULCSn 

c 

e 

c OCT/CHCCK/CONriNH  MCIOHTS 

c 

in  I TCNN.NC. *uei ' * 00  to  voo 

00  380  NChx.nCNCha 

CALL  OCT8NL(NTLmOTinCh.NL> . 

> I . .'to. . *10. . 'OAO  hCIOhT 

380  CONTInuC 

CALL  CSTVINI JCHTCSI  . I I t . I S' . NCNCHA.ISII 
inHCriNH.NC.OI  UNI  rc(6.  jCNTt 

a NL . I ntlhot(  nch.nl  > .nch*i  .ncnchai 

00  TO  700 

c 

c 


N-8* 


KNDIIN 

•PS 


OAN  MCKAOC  AMCNOIX  N 
eONHANO  MOUriNCt 


e otr/cNCCK/coNniiii  oain 
c 

•»••  iriircNP.NC.'OAi't  00  ro  ooo 

CALL  OCTmiATLOANINLI . I . . ‘tO.  . ttO.  . 'OAO  OAtN  •••! 
irfNCrtON.Nt.Ot  MOITCtO.HtSl  Nl.OrLOANINLI 
•Its  rONHATI’  LINCAM.  OAIN.  ’.ft.  St 

00  TO  700 

c 

c 

e ocr/CHCCK/eoNfiNH  oias 

c 

soo  ir< ircHt.NC. ’oiA* I oo  ro  ooo 

CALL  OCrSNLITOlAPINLI . t . . 'tOO. . *100. . ’fAO  01  AS 
LNTOItINLI •roi AflNLI «C. ««1C 
iriNcriRH.NC.ot  HNircco.stSi  nl.toiasinli 
Sts  rORHATC  LINCAN.  *.11. *.  SIAS.  *.rS.St 

00  ro  soo 
e 
c 

c utOArc  HCtOMrco  oains 
c 

700  00  7S0  NCN*t .NCRCHA 
00  7S0  NL»l.t 

LRruttI  NCH.  NL  I •OrLUOr  CNCH.nl  I •ArLOANINLt  •:*.**  It 
7so  coNriNue 

7S0  CONrtNUC 

00  ro  soe 
c 
c 

C fLAO  OAO  StCCiriCArtON 
C 

•00  iriircNR.CQ. *NONC* t oo  ro  too 

CALL  UARNSC  *0A0  LINCAA  SACC I f 1 C AT  I ON 

c 

c 

c coNriRN  MClOHrs/OAiNs/tiAses 
c 

•so  iriNcriRM.cQ.oi  oo  ro  ooo 
00  ooo  NL«l.t 

CALL  CSrulNI jrNTIfll  . ) 1 I . 161  . NCRCHA.  (0*1 
MRt rc  <6. jrnr t nl . i RTLuor (nch. nl  * . nch*i . ncrcha* 
HRireiO.<*tS>  NL.RrLOANINL’- 
MRireco.sts*  nl.toias(nl) 

•00  conriNUC 
c 
c 

c NORMAL  ACT URN 

c 

•00  KOHO*’ 

RCruRN 

CNO 


N-SS 


DAM  ^ACRAOC  APACNOIX  N 
eOnHANO  AOUfINCS 


KNONCR 

001 


tVtAAUriM  XNOMCAI  • OrT/CNCCK  TRANOVCAOC  HCIICAfOII  OCNTAAk  HCRI0IAN 

u K0no>  0 It  riAtr  i cmaao  op  connano  oi  opacco 


NIOTOAT 


c 

C H 9CNL090CA 

LCC 

07/00/70 

AQNT0/0C9I0N/C00C 

M 

> 

C N 9CNL009CA 

LCC 

00/00*  70 

ACVItC  OCTO..  CALL9 

c 

C N 9CHL009CA 

LCC 

11/00/70 

UPOAAOC  OOCUHCNTATION 

ncthoo 


UPOATC  CCNTAAL  IlCAIOlAN  PAOA  UNIT  9.  IP  tPCCtPICO.  «NO  CONPIAN. 


NACMtNC-OCPCNOCNT  COOC 


NONC. 


CXrCANAl  ACPCACNCeS 


oersox  • ocr  tcxAoeN«pr  data  piclo  paon  unit  9 

0CT9IN  • OCT  InTCOCA  OATA  PICLO  PAOH  UNIT  9 


CXCCPTI0N9 


I.  9PCeiPICATI0N-^  0UT9I0C  TmC  POLLOUINO  AANOCO  AAC  ACjCCTCO  and  ocncaatc 
*HAANIN0*  0IA0N09TIC9: 

90.  <•  NCAIOIAN  <>  too. 

i.  AN  CXTAA  OPCCtriCATtON  0CNCAATC9  A ‘MAANiNO*  OlAONOOTIC. 


OLOOAL  0CCLAAATI0N9 
••*r*********“---** 


INCLUOC  xoHKar.utiT 
INCLUOC  KOHrtr.LIIT 
tNCLUOC  KOHOWW.LI9T 
INCLUOC  UIN0CP.LI9T 
C 

e 

e LOCAL  OCCLAAaTIONO 

c 

c 


I CQNNON  PAOOAAN  CXCCUTION  tUlTCHCS.  COUNTCXS 

• COnhqn  aOJUOTmCnt /acot 9TAAT I on  aiNAnCTCA9 

• COMNON  OUTPUT  NINOOU  PACKCTS 

• OCPINC  9TAUCTUAC  OP  MlNOOM  PACkCtO 


ACAL  OLOCNO  $ VALUC  OP  UTNCNO  ON  CNTAr  'OCPOAC  P099IOLC  C^ANOINOI 
INTCOCA  INTCHP  • TCNPQAaAV 


N>90 


OAH  PACKAOC  APPCNOIX  H 
CONHANO  ROUriNCS 


C PROCeOURC 

CALL  trace 

c 

triUTNCHO.EO.O. I UTHCnO-36000.  a INVALID 

OLOCHO-UTNCNO 

CALL  OersSXIUTNCHO.  I . .so. . ISO. . 'BAD  NERIOIAN 
triHCPIRn.NE.Oi  URITEI6.ISSI  uTncno 
ISS  PORHATt’  meridian.  '.PS.**.*  OEOREES  CENTER  OP  TN  PROJECTION*) 

CALL  OETSINI INTENP.  ‘EXTRA  MERIDIAN  SPEC  I P I C A T I ON  --*) 

ipiolccno.ne.utmcmoi  ksyohu(uorio) >‘nul * a ir  cmo  chanoeo  mark  orio  assent 
900  K0MD-* 

RETURN 

END 


KHDHER 

OOS 


M-97 


i 

KHONAH 

001 


SUBROUTINC  KNONAN(  « OCT/CNCCK  NAME  or  rOANSrORHATI ON  OR  SPECTRAL  LINITS 

U KONOI  a li  PIRSr  3 chars  op  conhano  o>  spaces 
C - - 

c 

c 

c history 


c 

c 


c 

e 

H 

SCHLOSSER 

LEC 

10/ 17/78 

ORIGINAL  CODE 

c 

E 

H 

SCHLOSSER 

LEC 

07/08/78 

DELETE 

RETURN 

K 

c 

E 

H 

SCHLOSSER 

LEC 

00/00/79 

REVISE 

GETS.  . 

CALLS 

c 

E 

H 

SCHLOSSER 

LEC 

11/09/79 

UPORAOE 

documentation 

c 

c 


C HCTHOD 

c 

c 

C UPDATE  NAME  FROM  UNIT  S.  IF  SPECIFIED.  ANO  CONFIRM. 

c 

c 

r nachine-oepenocnt  code 

c 

c 

C NONE . 

C 

c 

C EXTERNAL  REFERENCES 
C 

c 

C OETSKH  a GET  character  STRING  DATA  FIELD  FROM  UNIT  S 

C 0ET5IN  a GET  INTEGER  DATA  FIELD  FROM  UNIT  S 

C 

c 

C EXCEPTIONS 
C 

c 

C I.  IF  LONGER  THAN  ZH  CHARACTERS.  THE  USER-SPECIFIED  NAME  IS  TRUNCATEO 

C TO  EH  characters. 

C 

C E.  IF  THE  USER-SPEC  I F I ED  NAME  CONTAINS  A COMMA.  ThaT  PART  FOLLOWING 

C the  comma  is  TREATED  AS  AN  EXTRA  SPECIFICATION  AND  GENERATES  A 

C 'WARNING'  diagnostic. 

C 

c 

C 0LO8AL  OECL  ARA'- IONS 
C 

c 

INCLUDE  KOMXQT.LIST  a COMMON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 

INCLUDE  KOMKLS.LIST  1 COMMON  CLASSIFICATION  INFO 

INCLUDE  NULCST.LIST  a DEFINE  NULL  CHARACTER  STRING 

C 

c 

C LOCAL  DECLARATIONS 

C 

C 

INTEGER  INTEMP  I TEMPORARY 


OAH  package  append  IX  M 
CONHANO  routines 


M-50 


OAH  PACKAOC 
COHHANO  ROUr 


APRCNOtX  H 
INCS 


KHONAN 

00» 


C 

C 

C PROCrOURC 

c 

c 

CALL  trace 

c 

c 

CALL  OETSKHfHTERAL.  cam  . NULCST) 

CALL  OETSlNMNrCNR.  ‘EXTRA  NAME  SPEC  I F ICAT  t ON  --■) 

IF(NCPIRN.NE.O)  URITE(6.iaS>  (NTERALtNi .N-l .HI 
las  FORNATI*  NAME.  ‘.HA8I 
KONO«‘ 

RETURN 

END 


H-59 


ooooooooooooooooooooooooonoooooooonooooooooooo 


KHONCU 

OOt 


OAN  PACKAOC  appendix  H 
CONNANO  ROUrtNCS 


subroutinc  khonehi  a print  news  op  recent  prooran  chanoes 

U KOHOI  a I:  PIRST  3 CHARS  OP  CONHANO  Ot  SPACES 


HISTORY 


E 

H 

SCHLOSSER 

LEC 

12/19/75 

ORIOINAL  CODE 

E 

H 

SCHLOSSER 

LEC 

07/I7/7B 

DELETE 

RETURN 

K 

E 

H 

SCHLOSSER 

LEC 

02/20/79 

REVISE 

0ET5.  . 

CALLS 

E 

H 

SCHLOSSER 

LEC 

t I / 15/79 

UPGRADE 

DOCUMENTATION 

NETHOO 


POR  EACH  USER  SPECiriCATlON: 

OET  SPEClPICATtON  I APPEND  TO  'OAN.NEH-’. 

CALL  RITELT  TO  H'.ITE  DISK  SVNBOLIC  ELENENT  MlTH  ABOVE  NAHE. 


nachinE'OEpenoent  code 


OIHENSION  SPECIPICATIONS  ASSUME  6 CHARACTERS  PER  UORO. 
CONDITIONAL  RETURNS  TO  STATEMENT  LABELS 


EXTERNAL  REPERENCES 


OETSKH 
PUTCHR 
HARNS 
Rl TAOO 


a OET  character  string  data  PIELO  FROM  UNIT  5 
a PUT  character  into  character  string 

a OENCRATE  UARNINO  FOR  I NVAL 1 0/ H I SS I NO  FIELD  FROM  UNIT  5 
a URITE  OR  aAOO  DISK  SYMBOLIC  ELEMENT 


EXCEPTIONS 


I . 


IF  NO  NEWS  FOR  ThE  USER  SPECIFICATION  IS  AVAILABLE.  A ‘MARNlNC 
DIAGNOSTIC  message  IS  ISSUED. 


global  declarations 


INCLUDE  NULCST.LIST  a DEFINE  NULL  CHARACTER  STRING 

C 
C 

C LOCAL  declarations 

C 

C 

INTEGER  NAMELTiS)  a NAME  OP  DISK  SYMBOLIC  ELEMENT  CONTAINING  NEhS 
DATA  (NAMELTINI .N-I .21 / * DAM. NEW-*/ 


M-BO 


OAH  PACKAOe  APPCNOtX  H 
COHHANO  ROUTINCS 


KHONCM 

002 


i 


V 


C 

C 

C RROCCOURr 

c 

e 

CALL  TRACC 


C 

C 

c 

c 


iNiruLize 


•OAM* 


spec  ecFORC  tryino  to  oer  tsr  spec 


NAHeLr(3)>’OAH 

c 

c 

c oer  Next  spectFiCATioN 
c 

too  CALL  oerSKHCNAHCLrO)  . ( 171  . NULCST) 

CALL  PUTCHR(NAneLT(3) . I 18) . ‘ '>  » TeRHINATC  WITH  BLANK 

tP(NANeLr(3) .eo. ’ nul*)  oo  to  9oo  a no  norc  specs 
c 
c 

c MRire  News  tr  AVAiLAOLe 
c 

CALL  RITAOOCS.NAMeLT.O.SSOO) 

C 

C 

c iNirtALize  NUL  spec  seroRC  trying  to  oer  ncxt  spec 
c 

800  NANeLr<3)>*  NUL' 

00  TO  too 


c 

c 

C News  NOT  AVAlLASLe 

c 


800  CALL  MARNSC  'BAD  PROORAH  NAHC  ••*) 
00  TO  800 
C 

c 

C COHHON  ReTURN 
C 

900  KOMO-' 

Re  TURN 
CNO 


« 


( 


N*61 


OAH  PACKAOe  APPCNOIX  H 
CONHANO  ROUriNCS 


KNONCX 

OOt 


SUMOUTINC  KHONCXI  • CONDI  rtONALLY  PCNFORN  NCXr  CONHANO 
U KOHOI  a Is  FIRST  3 CHARS  OF  CONHANO  Os  SPACCS 


C 

c 

c 

C HISTORY 


e 

c 


C 

E 

H 

schlosser 

LEC 

09/E0/7H 

ORIGINAL  CODE 

C 

E 

H 

SCHLOSSER 

LEG 

07/2N/7B 

DELETE  RETN  K.  ADD  LEOEND 

c 

E 

H 

schlosser 

LEC 

IE/OS/79 

ADD  COLOR 

c 

c 

c NCTHOO 


C 

c 

c COHPARC  setting  OF  CONOITtON  SWITCH  WITH  SCTTINO  OF  SPCCIFICO  HOOE . 
C SKIP  NEXT  CONHANO  UNLESS  BOTH  SETTINGS  ARE  THE  SANE. 

C 

C 

c nachine-oepenoent  code 

C - - 

c 

C NONE . 

C 

c 

C EXTERNAL  REFERENCES 
C 

c 

C CETSKH  OET  SPECIFICATION  FRON  UNIT  5 

C WARNS  FLAO  last  SPECIFICATION  FRON  UNIT  5 AS  INVLAIO 

C OETSIN  FLAO  EXTRA  SPECIFICATION 

C 

c 

c EXCEPTIONS 
C 

c 

c I.  INVALID  CONDITION  ( NODE  SPEC  I F I C A T I OnS  ARE  DETECTED  i FLAGGED. 

C 

c 

C OLOBAL  declarations 
C 

c 


INCLUDE  KONXQT.LIST 
INCLUDE  NULCST.LIST 

c 

c 

C LOCAL  DECLARATIONS 
C 

c 

INTEGER  KOND 
INTEGER  KONOSW 
INTEOER  NODE 
INTEGER  NOOESW 
C 
C 


a define  null  character  string 


a condition  specified  by  use 
a CONDITION  SWITCH  setting  I 
a NODE  SPECIFIED  BY  USER 
a NODE  SWITCH  setting  ( 0 OR 


R I 'OFF*  OR  ’ON’ 1 

0 OR  I IF  VALID) 

1 IF  VALID) 


H-BE 


F 


PAN  NACKAOe  APPCNOIX  N 
CONHANO  ROUriNCS 


KNONCX 

ooa 


( 


( 


c PNoceouNe 

c 

c 

c 

CALL  TRACe 

c 

c 

C OCT/CHCCK  condition  'OPF*  OR  *ON*  k CONVERT  TO  CONDITION  SWITCH 

c 

KONO«*  NUL* 

CALL  OCTSKNCKONO. (31 . NULCSTl 
K0N0SH«>999 

iriKOND.CO. *OFP* I KONOSH-0 
iriKONO.CQ. *ON  *i  KONOSW-t 
IPIKONDSH.CQ. -9991  CALL  WARN9I 
> 'BAD  CONDITION  (NOT  ON  OR  OPFI 
C 

c 

c OCT/CHCCK  nooe  k find  current  value  of  its  node  switch 
c 

NODE-'  NUL* 

CALL  OET5KH(HOOE. (31 . NULCSTl 
H00ESU--999 

IF(HOOE.EQ. ‘BAT' I NOOESW>N I NO ( NBATCH . I I I BATCH 
IF(nOOE .EO. 'CHE' I NOOCSH»nINO(NCHECK. t I 1 CHECKOUT 
IF(HOOE .EQ. ‘COL ' I HOOESW>H I NO ( HCOLOR . ll  k COLOR 
IF(NOOE .EQ.  'CON' I NOOESW«N I NO ( NCF I RN . I)  k CONFIRN 

if(nooe.eq. 'OUH' I hooesw-nino(mounp. 1 1 k ouhp 

IF(HOOE .EQ. 'ECH' I NOOESW>HINO(NECHO. I ) k ECHO 
IF(NOOE.EQ. 'LEO' ) N00CSW>HI NO(HLEONO. t I k LEOENO 
IF(HOOE .EQ. 'PRO' I HOOESW>HINO(HPROHT. I ) k PROMPT 
IF(HOOE.EQ. 'TRA' I NOOCSW-HINOtMTRACE.il  k TRACE 

IF(HOOESW.CQ. -9991  CALL  UARNS(  'BAD  MODE  --'I 
CALL  OCTSIN( I TEMP.  ♦l.-l,'EXTRA  SPECIFICATION  --'I 
C 
C 

C SKIP  NEXT  COMMAND  IF  SPEC  1 1' I CA  T I ON  VALID  k KONOSW  NOT  EQUAL  MOOESW 
C 

IF( (KONOSW. or . -9991 . ANO.  k CONDITION  VALID 
k (MOOESW. or. -9991 .AND.  k MODE  VALIO 

k (KONOSW. NC.MOOESWI I k MODE  SWITCH  NOT  IN  SPECIFtCO  CONDITION 

k CALL  REAOSILSSTAT.  NULCSTl  k THEN  SKIP  NEXT  COMMAND 

C 

c 

c normal  return 
c 

KOMO-' 

RETURN 

END 
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OAH  #ACKAOC  APPCNOIX  N 
COHHANO  ROUriNCS 


KNOorr 

001 


sutMOuTiNC  KNOorrt  • ruMN  orr  hooc  options 

U KOHOI  • li  PINtr  3 CHANS  OP  CONNANO  Oi  SPACES 


HISTORY 


E 

H 

SCHLOSSER 

LEC 

IE/S0/7S 

ORIOINAL  COOE 

E 

H 

SCHLOSSER 

LEC 

07/SS/7S 

OELETE 

RETURN 

K 

E 

H 

SCHLOSSER 

LEC 

0E/IS/7S 

REVISE 

GETS.  . 

CALLS 

E 

H 

SCHLOSSER 

LEC 

1 1 ^as/7s 

UPORAOE 

OOCUNENTaT ION 

HETHOO 


PON 


the  pinst  user  SPECIPICAT 
IP  'OEPIAULTI*  TERHINATE 

otmeruise  call  setnoo  to 

SWITCHES  OPP. 


ON: 

PROCESSINO 
SET  A CONP 


OP  OEPAULT  CONHANOS. 
RN  ALL  SPECIPieO  NODE 


NACHlNC'OePCNOENT  CODE 


NONE. 


external  REPERENCES 


oetskn 

UNOETS 

SETHOO 

OETSIN 


• OET  CHARACTER  STRING  DATA  PIELO  PRON  UNIT  S 

• SACK  UP  ONE  data  PIELO  ON  UNIT  5 

a SET  A CONPIRN  SPECIPIEO  MOOE  SUITCHCCSI 
I OET  integer  OATA  PIELO  PRON  UNIT  S 


EXCEPTIONS 


I.  the  POLLOHINO  CONOITIONS  generate  ’HARNINO’  OlAONOSTICS: 
SPECIPICAT?0N  APTCR  ’OEPIAULTI- 
INVALIO  NOOE  SUITCHIESI  SPECIPIEO  'SEE  SETNOO) 


ILOBAL  OECLARATIONS 


INCLUOE  KOHXQT.LIST 
INCLUOE  NULCST.LIST 

c 

c 


C LOCAL  OECLARATIONS 
C 

c 


a CONNON  PROORAN  EXECUTION  SWITCHES.  COUNTERS 

a oepine  null  character  string 


. < 


N-6H 


OAN  PACKAOC  APPCNOIX  N 
COHHANO  ROUT  INC S 


KNOOPP 

OOR 


INTCOCR  KHTCNP  • TCNPORARY 
C 

c 

C PROCeOURC 

c 

c 

CALL  TRACE 

c 

c 

C OCT  PIRST  SPCCIPICATION 
C 

KHTCHP**  NUL’ 

CALL  0eT9KH(KHTCHP. C 3) . NULCSTI 
IPCKNTCnP.CQ.  *OCP‘)  00  TO  >*00 

c 

c 

C SET  SPCCIPICO  SUITCHCS  TO  OPP  (0) 

c 

180  IPCKHTCHP.NC. * NUL’)  CALL  UNOCTS  A 80  SCTHOO  CAN  OCT  PtRST  SPEC 

CALL  SCTH00(  0) 

00  TO  900 

c 

c 

C TCRHINATC  PROCCSStNO  OP  OCPAULT  COMNANOS 

c 

>»00  tPINMNOOH.NC.O)  00  TO  180  • OCPAULT  CAN  ONLY  BE  TURNED  OPP  ONCE  I I ! 

NHNOOU--I 

CALL  OCTSINCKMTCMP.  *1.-1. ’SPEC  INVALID  APTCR  OCPAULT  --’1 
IPCNOHARN. NC. 01  CALL  MOPATLl  ’INVALID  OCPAULT  CONNANOS’I 
NCARO-0  a READY  TO  READ  PIRST  CARO  OF  USER  COHNANOS 

CALL  HOUNITI  O.BI 
URITClO.vaSI 

•*89  PORNAT(>*X.  ’ *«USCR  CONNANOSi’M 

c 

c 

C DONE 
C 

900  KONO*’ 

RETURN 

END 


OOOOOOOOOOOOOOOOO  4,00000000000000000000000000000 


u 


OAN  PACKAOC  APPENDIX  H 
COHNANO  RCUTINCS 


KNOON 

001 


SUtPOUriNC  KHOONt  • TUMN  ON  NOOC  OPTIONt 
U KONOI  • It  PIRtr  3 CNANt  Of  COHNANO  Oi  SPACES 


HISTORY 


E 

H 

SCHLOSSER 

LEC 

IP/BI/7S 

ORIGINAL  CODE 

E 

H 

SCHLOSSER 

LEC 

07/B3/78 

DELETE 

RETURN 

K 

E 

H 

SCHLOSSER 

LEC 

08/I3/7S 

REVISE 

GETS. . 

CALLS 

E 

H 

SCHLOSSER 

LEC 

1 I/BS/7S 

UPGRADE 

DOCUMENTATION 

HCTHOO 


FOR  THE  first  user  SPECIFICATION! 

IF  ’OEFIAULTI*  INITIATE  PROCESSING  OF  DEFAULT  COHNANDS. 
OTHERUISE  call  SETNOO  to  set  t CONfIRH  ALL  SPECIFIED  NODE 
SNITCHES  ON. 


nachine-oepenoent  code 


NONE. 


EXTERNAL  REFERENCES 


OETSKH  a OET  character  STRING  OATA  FIELD  FROH  UNIT  S 

UNOETS  a SACK  UP  ONE  DATA  FIELD  ON  UNIT  S 

sethoo  a SET  a confirn  specified  node  snitchcesi 
OETSIN  a OET  integer  oata  field  from  unit  s 


exceptions 


I.  IHE  FOLLOUINO  CONDITIONS  OCNCRaTE  'MARNINO'  OIAONOSTICS: 
SPECIFICATION  AFTER  'OEFIAULTI* 
invalid  node  SNITCHIESI  SPECIFIED  (SEE  SETnoOi 


OLOBAL  declarations 


INCLUDE  KOHXQ'.LIST  S COMMON  PROORAM  EXECUTION  SWITCHES.  COUNTERS 

INCLUDE  NULCST.LIST  a DEFINE  NULL  CHARACTER  STRING 

C 
C 

C LOCAL  declarations 

c 

c 

) 
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uuuu  u u o u uouu 


IHi 


.Cl 


NOix  n 


KHOON 

OOC 


luriNCS 


iNTCocii  KNrtNP  $ rcHPOPMr 
C PMOeCOUNC 

CALL  niACe 

c OCT  riKsr  s^cciriCATioN 

KMrCHP>'  NUL* 

CALL  OCrSKHCKHTCnP. ( 31 . NULCSTl 

iriKNrcHP.eo. ‘ocr*  I oo  ro  <*oo 


scr  spccirico  smitchcs  to  on  in 

ICO  iriKNTCNP.NC. * NUL * I CALL  UNOCTS 
CALL  SCTNOOI  n 
00  ro  900 


iNiriATc  PNocessiNO  or  ocrAULt  conhanos 

•too  IPCNMNOOH.NC.OI  00  TO  ICO  I OCPAULT  CAN  ONLY  OC  TuNNCO  ON  ONCC  i I 1 

IPINCARO.Oe.O)  CALL  NOTATLI 
■ ‘OCPAULT  CONHANOS  HAY  NOT  FOLLOW  USCR  COHHANOS’I 
MRircfo.tcsi 

<*B9  PORHAT(/*0  ••CUNRCNT  OCPAULT  COHKANOS!‘/i 

CALL  NOCLRHI  NULCSTI  0 CLCAR  PRCVIOUS  UARNINOS 

CALL  OCrSINIKHTCHP.  *I.-I.'SPCC  INVALID  APTCR  OCPAULT  --•> 


OONC 


900  KONO-' 
RCTURN 
CNO 
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uoooooooooooooooooooooouooouoooooouooooooooooooooooooo 


DAN  ^ACKAOC  AMCNOIX  1 
CONNANO  MOUrtNCS 


KNOONI 

001 


tUMOUriNC  KNOORIi  • OCT/CNCCK 
u Konoi  0 li  riNor  3 cnaro  or 


omoiN  or  vcoTicco 

CONNANO  Ot  or ACC 0 


NioroNr 


N 

SCHLOSSCR 

LCC 

0R/tl/7I 

NUNCRIC 

ORTION 

N 

SCMLOSSCR 

LCC 

IC/0I/7S 

ALRHANUNCRIC  CONNANO 

N 

SCNLOSSCR 

LCC 

07/IC/70 

OCLCTC 

RCTURN  K 

N 

SCHLOSSCR 

LCC 

0CYCI/7S 

Revise 

OCTS..  CALLS 

H 

SCHLOSSCR 

LCC 

I I/CS/7S 

Revise 

ORUTUNO/ORA/ ARO 

NCTNOO 


OCT  utCN'sreciricD  coonoinatc  ovstcn  i orioin  cooROiNArrt. 

TRANOrORN  INTO  ORIOIN  COOROINATCS  IN  ALL  OThCR  COONOINATC  SYSTCNO 
CXCCRT  RRO. 


NACHINC'OCRCNOCNT  COOC 


NONC. 


CXTCRNAL  RCrCRCNCCS 


ocroKN 

WARNS 

ocrsiN 

ocrssx 

OCTSRL 

NOMARN 

0*»A 

UHO 

A*»0 

RLftSX 

0**U 

A>»R 


a OCT  charactcr  strino  data  rtCLO  tron  unit  s 
a ocncratc  uARNiNO  roR  inval io^nissino  riCLO  tron  unit  s 
a OCT  intcocr  data  ricLO  troh  unit  s 
a OCT  SCXAOCNARY  DATA  rtCLO  rRON  unit  s 
a OCT  RCAL  DATA  nCLO  rRON  UNIT  s 

a rrint/count/loo  *uarnino*  oiaonostic  ncssaoc 
a ocoorarhic  roR  aojustco  nss  cooroinatcs 
a utn  roR  ocoorarhic  cooroinatcs 
a aojustco  hss  roR  ocoorarhic  cooroinatcs 
a rcal  to  intcocr  scxaoinary  array 
a ocoorarhic  roR  uth  cooroinatcs 
a AOJUSTCO  HSS  roR  rrint/rlot  dcvicc  cooroinatcs 


CXCCRTIONS 


I . 


thc  toll  owl 

COOROI 

COOROI 

(ZONCI 


NO  CONOITIONS  OCNCRATC  ‘WARNINO*  DIAGNOSTICS: 

NATC  SYSTCH  NOT  SCAINI  OR  CCOIRCCSl  OR  KH  CR  hCTIRCS! 
NATC  SVSTCM  KH  OR  HCTIRC3I  S UTh  CCNTRal  HCRIOUN 
not  ocriNCO. 


f . 


SRCCiriCATIONS  0UTSI9C  Thc  rOLLOWlNO  RANOCS  ARC  RCjCCTCO  ANO  OCNCRaTC 
'WARNlNO*  ClAONOSTICSi 


H-eo 


noon 


ONNANO  MOUriNCf 


rNOii 


khoori 

OM 


•COO 

<• 

LINC 

<• 

♦sooo 

•too 

<• 

SANRLC 

<• 

»NOOO 

ctrlat-s. 

<• 

LATITUOC  <• 

CTRLAT*«. 

CTRLON-S. 

<• 

LONOITUOC  (• 

CTRLON»f. 

0. 

<• 

CAST  1 NO  <• 

IC*« 

0. 

<• 

NORTNINO  <• 

oc*c 

S.  AN  CXTRA  IRCCinCATION 

ocncratcs  a *marnino*  OIAONOSTIC. 

OLOIAL  0CCLARATI0N9 

INCLUOC 

KOHXQT.i. 

1ST 

■ 

CONNON 

RROORAN  CxeCUTION  SHITCHCS.  COUNTCRS 

INCLUOC 

XONNCR.L 

1ST 

• 

CONNON 

CRTS  SCCnC  RaRANCTCRS 

INCLUOC 

KOnriT.L 

1ST 

1 

CONNON 

AOUUSTnCNT/RCOI strati  ON  RARANCTCRS 

INCLUOC 

KONIHU.L 

1ST 

• 

CONNON 

inrut  hinooh  rackcts 

INCLUOC 

KONOHH.L 

1ST 

• 

CONNON 

OUTRUT  HINOOM  RACKCTS 

INCLUOC 

UINOCr .L 

1ST 

A 

ocriNC 

STRUCTURC  or  Ml  NOON  RACKCTS 

INCLUOC 

NULCST. L 

1ST 

• 

ocriNC 

NULL  CHARACTCR  STRINO 

LOCAL  OCCLARATIONt 


C 

c 

c 

c 

c 

c 

c 

c 

c 


INTCOCR 

RCAL 

INTCOCR 


RROCCOURC 


InTCNRIOI 

RLTCHRICl 

KOROSY 


TCNRORARY 

rCHRORARV 

coordinatc 


iTSrCNi  •fCAWOCO'/’KH*/  •HCT*/  *RR| 


CALL  TRACC 


Oer/CHCCK  COORDINATC  SVSTCH 

KOROSV>KtVOUHlUORIO> 

CALL  OCTSkHIKOROSV. (3> . 
irivOROtV.CQ. *SCA' I 00  TO 
irCKOROlY.CQ. 'OCO* ) 00  TO 
irtKOROfr .CO. ‘kh  * i oo  to 
iriKOROtY.tO. *HCT* I 00  ’0 
CALL  UARN9(  *iAO  COORDINATC 
iriKOROSY.CQ. 'RRI ' I 00  To  TOO 
00  TO  900 


• use  OLD 
NULCST  > 
300 
t»00 
^00 
610 


coordinatc  srs  ir  noNC  SRCCtriCD 


SYSTCh  •••I 
• INVALID 


OUT  TAANSrORn  ANTt^AY; 


SCANNCR  lOSrC'AOJUSTCOl  cooroinatcs 

300  CALL  OCTSININSAOUUIMLIN.uORIO* . -COO. *3000. ‘lAO  L I NC  --‘t 
CALL  OCTSlNlHSAOUUiUSAN.riORIOi . *000 . *«000 . ’ *1 AO  SANRLC  •' 

360  CALL  ONAiOCOOUutULAT.MORIOi  .OCOOWuruLON.iiORIOi  . 

• rLOATlHSAOWUlULIN.MORIOI I . 

6 rLOATINSAOWUlMSAH.MORIOi > > 
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OAN  ^ACKAOC  AMCNOI 
eORfMNO  ROUriNCS 


KNOORI 

oos 


irfNCftfiN.co.et  00  ro  toe 

HOI rc<l. list  NOAOMNtHWIN.NORIOI .NtAOMMtMOAN.UORIOl 
SOS  rooNArf  orioin.  scan.  *.!•».*  linc.  tAnm.c*i 

UOtrCCO.AAS*  OCOOMWiMkAT .MONIO* .OCOOUUIM.ON.MONIO> 

ifMuriicno.co. 0. 1 .r:i. tAMiuTNCNOi .or. ito. i I oo  ro  ooo 

CALL  UHOtUrnOHMIMCA.HONIOi .urnOMMiUNO.UOOIOI . 

• OCOOHMCMLAr.MOniOi .OCOOHUIHLON.MORIO) .UtNCnOl 
MRITCtO.OHOI  UTnOWNdlCA.MORIOi .UTHOMMfHNO.HORIOi 

00  ro  000 
c 
e 

e ocoooAAHte  cooaoinatcs  locoNcrsi 
e 

*00  CALL  OCrOIXIOCOOUUIHLAT.MORIOI . 

• I. .eroLAr-s. .crRLAr*s. . *0A0  LATt ruoc 
CALL  OCrOfXtOCOOHUIMLON.MORIOI . 

• I . .CrRLON-S. .CrRLON*S. . *0A0  LONOI ruoc  •-*( 

CALL  A*0(RLrCrtRM  I .ALrCHRlfl  . 

• OCOOWUlWLAr  .HORIOI  .OCOOUUCMr.ON.MORIOI  ( 
NSAOUUlMLiN.HORI0l*RLrCHRII )*.S  I ROUND  ITl 
NSAOMU I HO AN . NOR 1 0 1 *RL  TCNR  C 0 1 * . 9 

CALL  UHOlurHOUUlUCA.UORIOI . UTNOHHI MNO . 40R 1 0 > . 

• OCOOHMIHLAT. HORIOI .OeOOHH'HLON. HORIOI .urnCNOI 

iriNcriRN.co.oi  oo  ro  too 

HR I TC ( 0 . **9 I OCOOUH ( ML  A T . hOR I 0 1 . OC  OOUu I UL  ON . UOA I 0 1 

**9  roRNArc*  oRioiN.  OCORCCC. ' .rto.9. * LAnruDC. ' .no.s.  * lonoitudC'i 
CALL  RLtllXIOCOOUHlULAr. HORIOI » .00001  . INTCNRt I • . I . RL TCnRM I I 
CALL  RLtttXIOCOOHHIHLON.UORIOI *.06001  . INTCHRIHI . S.RLTCNRI I I I 
HRITC(0.*99I  intcnr 
*99  roRNAri*  ORIOIN.  OCORCCS.*. 

A I*. • I • . J«. • I • . Jf . • LATiruOC.*. 

A I*. ‘ t ’ . UC. * I * . Jt. * LONOI ruoc ‘I 
in  (urNCNO.CQ.  0. 1 . OR.  ( AOOiurncNOi . or.  190. 1 1 oo  ro  *7o 
HRirCI|.0*9i  UrnOHUIUCA. HORIOI .UrHOHHiHNO.HORIOI 
*70  HRirCI0.3*9l  N9A0HHIHLIN. HORIOI .NOAOHUIUSAH. HORIOI 

00  ro  000 
c 
c 

c urn  COORO  NATcs 
c 

000  cr*ie*S  I CONVCRT  rRON  KtioHCrRCs  ro  nctrca 
OO  ro  690 

010  cr>i.  a kctrcs  --  no  convcrsion  nccoco 
,090  in  < urNCHO. nc. 0. 1 . ANO . I AOfi urNCNOi  .LC . 1 00. 1 1 oo  ro  osc 
Call  nouarni  'no  urn  zonc  octincO'i 
00  ro  900 

010  CALL  OCroRL  lurNOuuiuCA. HORIOI  . Cr  . 0 . . I C *9 . ‘ OaO  CASriNO  "‘I 
CALL  OCrORL I urNOUHiUNO.HORt 01 . Cr . o . . 9C *9 . ' * 9A0  NORrm NO  •-*) 
Call  o*u<ocoouHiuLAr.uoRioi .occohhihlon.horioi . 

• urNOHHiHCA.wORi 01 .urNOHufuNO. HORIOI .urnCNOi 
CALL  A*0<RLrCNR(t I .RLTCNRI9I . 

• OCOOHHIULAr. HORIOI .OCOOHHIHLON.HORIOI I 

N9AOHH<HLIN.HORIOi*RLrCHR(| i*.9  • ROUND  iri 

N9A0HHIU9 AN. HORIOI *RL  TCnRiOi *. 9 

inNCfiRN.co.o*  00  ro  900 

HRirC* 0.0*9*  UrNOHHIHCA. HORIOI .UrNOHHi UNO. HORIOI 
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OAH  PACKAGE  APPENDIX  N 
COHHANO  ROUriNES 


6<»S  rORHATf*  ORtOIN.  KN.  *.-3P.P7.3.*  EAST.  *.Pe.3.‘  NORTN’t 
URirE(6.3*»S)  NSAOUUtULlN.UORIOt .NSAOMUIMSAU.MORIO) 

00  TO  800 


PRtNT/PLOr  DEVICE  COORDINATES  (POR  OEBUOOINO  ONLYIll) 

700  CALL  OETSRLIPPOOUUCULlN.UORIOt . I . . I . . 6000. . 'BAD  L I NE  ’ 

CALL  OETSRLfPPOOMMCUCOL.UORIOI . 1 . . I . . 6000 . . ’ BAD  COLUHN  - 

irnRFO.LE.OI  00  TO  900  a SCALE  NOT  CALIBRATED  --  CAN'T 

CALL  A>*P(  AOJLIN.AOJSAH. 

■ PPOOUM(MLIN.UORIO) » . 5 . PPOOMM ( MCOl . WORIG) *.9) 

NS AOUU ( HL I N . UOR I 0 ) - AO JL  I N 
NSAOHMCHSAN, UORtOI «A0JSAM 

KOROSY-‘SCA’  a USE  SCANNER  COORDINATES 

00  TO  3B0 


STORE  COORDINATE  SYSTEN 
BOO  KSYOHU(UORIO) >KOROSY 

CALL  OETSINI INTEHPC n . ♦I.*!. ‘EXTRA  ORIGIN  SPEC  I F I CAT t ON 


normal  return 

903  K0N0«‘ 
RETURN 
ENO 


KNOORI 

OOH 


I 

-‘I 

transform  ppo 
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OAH  PACKAOe  APPCNDIX  H 
COHHANO  POUTINCS 


xnoPAO 

oot 


suaPOuriNC  khopaoi  a skip  ro  top  op  NCxr  paoc  ano  mitre  nessAoe 
U KONOI  a I:  PIRSr  3 CHAPS  OP  COHHANO  0>  SPACCS 


c 

c 

c 

C HISrOPY 

c 

c 


c 

E 

H 

SCHLOSSER 

LEC 

12/ 

01/75 

ORIGINAL  CODE 

c 

E 

H 

SCHLOSSER 

LEC 

07/ 

IH/79 

OCLETC  RETURN 

K 

c 

e 

H 

SCHLOSSER 

LEC 

OSt 

eo/79 

REVISE  GETS. . 

CALLS 

c 

e 

H 

SCHLOSSER 

LEC 

I 1 / 

30/79 

UPGRADE  DOCUMENTATION 

c 

c 

c neTHoo 

C 

c 

C OC’  SPCCIPtCATION.  PAOC  EJCCT.  ANO  PRINT  SPEC  I P I CAT  I ON . 

C 

C 

C HACHlNe-OEPENOENT  CODE 

C - 

C 

C OINENSION  A POPnAT  SPEC  I P I C A T I ONS  ASSUME  6 CHARACTERS  PER  HORO. 

C 

C 

C EXTERNAL  REPERENCES 

C 

C 

C 0ET5KH  a OET  CHARACTER  STRINO  DATA  PIELO  PROH  UNIT  S 

C OETSIN  a GET  integer  OATa  PIELO  PROM  UNIT  5 

C HOUNIT  a PRINT  PAGE  HEADING 

C 

c 

C EXCEPTIONS 
C 

c 

C I.  IP  NO  SPECIPICATION  IS  GIVEN.  THEN  NO  ACTION  IS  TAKEN. 

C 

C a.  AN  EXTRA  SPEC  I P 1 C A T I ON  GENERATES  A ’MARNINC'  DIAGNOSTIC  MESSAGE. 

C 

c 

C GLOBAL  declarations 
C 

c 

INCLUDE  NULCST.LIST  a PEPINE  NUL  CHARACTER  STRING 

c 

c 

C LOCAL  DECLARATIONS 

C 

C 

INTEGER  KHTEMPIB*  a CHARACTER  STRING  TO  WRITE  ON  TOP  OP  PACE 
C 

c 

C PROCEDURE 
C 
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KNOPAO 

ooa 


CALL  trace 

CALL  HOUNiri  0.6) 

KHTCHPIII-*  NOL* 

CALL  OETSKHCKHTENP, C48) . NULCSTI 
IPIKHTEMPI I I .NE.  * NUL * ) UR  I TE ( 6 . I HS)  KHTENP 
IHS' rORHAT(6X.8A6/ ) 

CALL  OETSlNfKHTEHP.  'EXTRA  PACE  SPEC  I P I CAT  I ON  •-*) 

KONO-' 

RETURN 

ENO 


H-73 


oooooooooooooo  ooooooooooooooooooooooooooooooooo 


OAH  PACKAOe  APPCNOIX  N 
COnNANO  ROUriNCS 


KHOPCC 

001 


SUePOUriNC  KNOPCCC  • 'PCCK*  at  variaolcs  in  labcllco  cohnon 
u konoi  a ii  riRsr  s chars  op  connano  o<  spaccs 


history 


e N SCHLOSSCR  LCC  I0/8H/79  RCQUlReHCNrs 

C H SCHLOSSCR  LCC  IO/OS/79  OCSI ON/COOC / TEST 


HCTHOO 


CHCCK  NAHC  or  COMMON.  MINIMUM  LOCATION.  MAXIMUM  LOCATION.  INCRCMCNT.  POR 
VALIOI TY. 

IP  INVALID,  issue  01 AONOSriCISI . CLSC  PRINT  PRINT  CONTCNTS  OP  RCQUCSTCO 
COMMON  LOCATIONS  IN  ALL  OP  THC  POLLOMINO  PORMATS: 

INTCOCR.  RCAL.  CHARACTCR  STRING 


NACHINC-OCPCNOCNT  COOC 


OIMCNSION  A PORMAT  SPCC I P I C A T I ONS  ASSUMC  6 CHARACTERS  PER  WORD. 


EXTERNAL  REPERCNCES 


MOCLRH  a CLEAR  ‘UARNINO*  OlAONOSTICS 

OETSKH  a OET  character  strino  oata  piclo  prom  unit  S 

OCTSIN  a OET  integer  oata  piclo  prom  unit  5 

MOUARN  a PRINT/COUNT/LOO  'UARNlNO*  OIAONOSTIC  MESSAGE 

DOUBLE  PRECISION  C8S>aCS  a VAR  I ABLE  <LEN0  TH  CST  POR  PIXEO-LENOTH  CST 


EXCEPT  IONS 


I.  THE  last  2 SPECinCATIONS  ARE  OPTIONAL.  ALL  SPECIFICATIONS  PRESENT  ARE 
CHECKED  POR  validity  ANO  RESULT  IN  MARNlNO  OlAONOSTICS  IF  0AO. 

1.  KOMO  IS  NOT  CHECKCO  FOR  VALIDITY. 


0LO8AL  declarations 


COMMON/KOMAL T/KOHAL T(  1 I 
COMMON/KOMOCT/KOMOCTI  I I 

common/kompi  t/kompi  Tin 

C0MM0N/K0MIRT/K0M!RT( I ) 
COMMON/ KOMI  HU/ KOMI UMI  I ’ 

common/komkls/komklsi t > 


a common  alternate  print  file  counters,  pointers 
a common  detection  file  hinooh  pkts  l dates 
a common  AOJUSTMENT/REOISTRATION  parameters 
a COMMON  IRRAOIANCE  transformation  coefficients 
a common  input  winoou  packets 
a COMMON  classification  INPO 
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KMOPCC 

OOP 


INCLUDE  KONLOO.LIST  0 COHHON 

COHNON/KOHLUP/KONLUSI t I 0 COMNON 
COHHON/KONLUS/KOHLUSn I 0 CONMON 
COHHON/KONLUS/KONLUSm  0 COHHON 

cohhon/kohlpn/kohlpni n a cohhon 

COHHON/KOHNER/KONNERI n 0 COHHON 
COHNON/KOHNCr/KONNETf I I a COHHON 

cohhon/kohouu/kohouhc 1 1 a cohhon 

COHHON/KOHSLH/KOHSLHC n a COHHON 
COHHON/KOHSYH/KOHSYHI n a COHHON 
COHHON/KOHT8L/KOHrBL(t I a COHHON 
INCLUDE  KOHXQT.LlSr  a COHHON 

INCLUDE  NULCST.LISr  a OEPINE 


LOO  PILE  SUPPER.  I/O  PkT.  POINTERS 
POINTERS/PLAOS  POR  UNIT  P 
POINTERS/PLAOS  POR  UNIT  3 
POINTERS/PLAOS/8UPPER  POR  UNIT  5 
I/O  PACKETS  POR  DETECTION  PILES  (8I-P*»I 
ERTS  SCENE  PARAHETERS 
CONTROL  NETWORK  COORDINATES 
OUTPUT  WINDOW  PACKETS 

spectral  LI  hits 

SYH80L  TABLE 
HULTI -PURPOSE  TABLE 

PROORAH  execution  SWITCHES.  COUNTERS 
NULL  CHARACTER  STRING 


LOCAL  declarations 


INTEGER  NAHCOH 
INTEGER  LOCPRT 
INTEGER  LOCBEO 
INTEGER  LOCENO 
INTEGER  LOCINC 
REAL  ZERO/.G/ 
LOGICAL  PEEKED 


a NAHE  OP  COHHON  TO  'PEEK*  AT 
a LOCATION  OP  variable  in  COHHON  TO  PRINT 
a LOCATION  OP  BCOINNINO  VARIABLE  TO  PRINT 
a LOCATION  OP  ENOINO  VARIABLE  TO  PRINT 
a LOCATION  INCREHENT  POR  PRINTING 
a ZEROI 

a true  ip  peek  called,  palse  ip  not 


PROCEDURE 


CALL  trace 


OET  NAHE  OP  COHHON 


CALL  HOCLRUI  NULCST1 
NAHCOH«*  77?  • 

CALL  GETSKH( NAHCOH. ( 61 


NULCST ) 


OET/ChECK  LOCATION  OP  PIRST  VARIABLE  TO  'PEEK'  AT 
LOCBEC>l 

CALL  CET51N:L0C9EG.  l.2500.'*BAD  PEEK  LOCATION  --'1 


OET/CHECK  LOCATION  OP  LAST  VARIABLE  TO  ‘PEEK*  AT 

LOCENO-LOCBEC  » OEPAULT  IP  NOT  SPECIPIED 

CALL  OETSINILOCENO.  LOCBEG . L0CBEC*a9G . ' BAD  PEEK  END 


OET/ChECK  INCREHENT 


LOCINC-1  a OEPAULT  IP  not  SPECIPIED 


r v'v  iK 


u u o o o 


u 
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KHOPCC 

003 


CALL  oerSINtLOClNC.  *l.*90 

CALL  OCTSINtLOCiNC.  *1.-1. 


.‘■AO  PEEK  INCREHENT  --‘I 
‘EXTRA  PEEK  SPECIPtCAT ION  --‘I 


C 

C 

c 

c 

c 

c 

c 

c 


OtVE  UP  IP  ANY  UARNINOS  OCCURRED 
IPINOHARN.NE.OI  00  TO  900 

PINO  requested  COHNON  i PRINT 


PEEKED-. PAL SE. 
IPCNANCOH.EQ. ‘KONALT' t 
I P ( NAHCOM . EQ . ' KOnOe  T ‘ 1 
IPfNANCOH.EQ. 'KONPI T 
IPCNANCOH.EQ. ‘KOMIRT 
IPCNANCOH.EQ. 'KOHIUU 
IPCNANCOH.EQ. ‘KOHKLS 
•PCNANCON.EQ. ‘KONLOO 
IPCNANCOH.EQ. ‘KONLUS 
IPCNANCOH.EQ. ‘KONLUS 
IPCNANCOH.EQ. ‘K0HLU5 
IPCNANCOH.EQ. ‘KOHLON 
IPCNANCOH.EQ. ‘KONNER 
IPCNANCOH.EQ. 'KONNET 
IPCNANCOH.EQ. 'KOHOUU' ) 
IPCNANCOH.EQ. 'KOHSLH 
IPCNANCC>N.Ea.  ‘KOHSYN 
IPCNANCOH.EQ. ‘KOHTBL 
IPCNANCOH.EQ. 'KOHXQT 

ipc .not.peekeoi  call 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CAi.L 
CALL 
CALL 
CALL 
CALL 
CALL 
NOHARNC 


PEEKCKOHAL  T 
PEEK* KONOE T 
PEEKCKOHPI T 
PEEKCKOHIRT 
PEEKtKOHtUU 
PEEKCKOHKLS 
PEEKCKOHLOC 
PEEKCK0NLU8 
PEEKCK0NLU3 
PEEKCKOHLUS 
PEEKCKONLON 
PEEK  .'KONNER 
PEEK  tXONNET 
PEEK ( KONOMU 
PEEKCKQNSLN 
PEEKCKOHSYH 
PEEK  CKONTBL 
PEEK  CKONXOT 


.KONALt ' 
.KONOET ) 
.KONPI T 1 
.KOMI RTI 
.KOMI  MM) 
.KOMKLS) 
.KOMLOO) 
.KOMLUE) 
.K0MLU3I 
.KOMLUS) 
.KOMLENl 
.KOMNER) 
.KOMNETI 
.KOMOMM) 
.KOMSLM) 
.KOMSYM) 
.KOMTBL ) 
.KOMXQT) 


• ‘BAD  PEEK  COMMON  NAME  ••  -■ 


' ' .C8S<*CS(  NAMCOM.  n ) . ( 6)  ) ) 


OCNE 

900  KOMO-* 

CALL  MOCLRMC 
RETURN 


NULCST) 


INTERNAL 

subroutine 

KON. 

CON) 


PEEKC  a PRINT  values  OP  COMMON  LOCATIONS 

a labclleo  common  (inteoer  or  character) 
a labelled  common  (read 


INTEOER  KON( I ) 
REAL  CONI  1 ) 
REAL  RLTEMP 
INTEOER  NPORKT 


a ARGUMENT 
a AROUMENT 

a temporary 
a type  op  ‘P' 


PORMAT  TO  PRINT  RLTEMP  MITH 


peeked-. true. 

DO  300  LOCPRT-LOC8EO.LOCENO.LOCINC 
RLTEMP-COMILOCPRT) »ZERO  a 


PORCE  NORMALIZATION  IP  NOT  REAL 
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NPORNT*! 

triABSCRLTCHPI .LT. t.oe*6t  NrORHT-e 
ir(ABS(RLrCHPI .LT. t .0  I NFORHTvS 
IFtNFORHT .CO. n URITCie. 

I I6I>  NAHCOH.LOCPRT.KOniLOCPRTt .RLTCNP.KOHILOCPRn 

161  FORMAT ( tX. AS. * ( * . JH. • I * . I to. IX.FI4.0.SX.A6I 

tFCNFORNT .eo.2>  URITCCS. 

% 1661  NAHCOM.LOCPRT.KOHILOCPRT) .RLTCHP.KOMILOCPRn 

166  FORHATI  IX.AS.  * ( ‘ . J>».  * I ‘ . no.  IX.FtH.6.6X.  A6I 

IF(NFORNT.eQ.3)  URITCCS. 

A tS3l  NAHCOn.LOCPRT  .KOMILOCPRT)  .RLTCnP.KOmuOCPRTt 

163  FORMATl  IX.A6.  * I * . Ji».  ’ I ’ . I I 0 . I X .F  t •»  . 1 6 . 6X  . AS  > 

300  CONTlNue 
RCTURN 
CNO 
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tUaHOUTINC  KHOPLOC  • OET/CHCCK  PlorTCR  SPCCIFICATIONS 
U KONO)  a It  FIRST  1 CHARS  OF  COHHANO  Oi  SPACCS 
C - 

c 

e 

e HISTORY 
C 

c 

C R C NARVesON  LCC  IS^OH/78  NOOIFICO  PRON  KHOPRI 

C e H SCHLOSSCR  LCC  0I/II/7S  RCHRITC  I OOCUHCNT 

c 

c 

C HCTHOO 


C 

C 77T7 

C 

c 

C HACHINC-OCPCNOCNr  COOC 
C 

c 

C FORMAT  STaTCHCNTS  ASSUHC  6 CHARACTCRS  PCR  MORO. 

C 

C 

C CxrCRNAL  RCrCRCNCCS  1 

C 

c 

C OCTSKH  a oct/chcck  character  string  piclo 

C OCTSRL  a oct/chcck  RCAL  rtCLO 

c ocTsiN  a oct/chcck  intcgcr  riCLO 

C WARNS  a OUTPUT  HARNINO  OUONOSTtC  FOR  PRCVtOUS  FICLO 

c 

c 

C CXCCPTIONS 
C 

c 

c I.  INVALID  Function  namcs  arc  flaooco. 
c 

c 2.  SPCC IFICAT I ONS  FOR  ALL  VALID  FUNCTIONS  CxCCPT  •OCVIICEI’  ARE  CHECKED. 

c 

C 3.  NO  other  CHECKS  APE  HAOC.  ‘ 

c 

c 

C OLOSAL  declarations 

c 

c 

INCLUDE  KOHXQT.LIST  I COMMON  PROGRAM  EXECUTIO.N  SHfCHtS.  COUNTERS 

include  KOMPLT.LIST  I COMMON  plot  file/device  characteristics 

INCLUDE  NULCST.LIST  i DEFINE  NULL  CHARACTER  STRING 

c 

OINCNSION  KOMPLTfSI  » 77777? 

5 UORO  COMMON  KOMPLT? 

CONTENTS 

UNI  TS 

inchcs/lenoth  real?? 

i 
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KNOPLO 

OOP 


e 

c 

c 

c 

c 

cc 

c 

c 

C LOCAL 

c 


INCNCS/MlOrM 

DEVICE 


NEAL  97 
CNANACrCN 


*CAL*  • CALCONP 
*OEN*  - GERBER 
HOOEL  integer 

NUNBER  or  PENS  INTEGER 


DECLARATIONS 


INTEGER  NANrUN 
PARANETER  MINPEN 

paraneter 

PARANETER 
PARANETER 
PARANETER 
PARANETER 


NAXPEN 

XNINLO 

XNAXLO 

XNINWH 

XNAXMH 


PLOTTER  rUNCTlON  NANE  (SHEIET1 
I a NININUN  NO.  or  PENS 

3 a NAXINUN  NO.  0r  PENS 


DEVI  ICE). NODI  ELI. PEN! SI  I 


5.0 

99.0 
S.  0 
99.0 


NiNinUH 

NAXINUN 

NININUN 

NAXINUN 


INCHES/LENOTH 
INCHES/LENOTH 
I NCHES/UIOTH 
INCHES/HIOTH 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


PROCEDURE 


CALL  trace 


CHECK  ir  CONNANO  IS  NOW  LEGAL 

irfNUNDOM.ur , *1 ) 00  to  too 

CALL  NOUARN( 

" ’PLOTTER  CONNANO  CANNOT  BE  USED  APTCR  FIRST  UlNOOM  IS  PROCESSED') 
00  TO  900 


OET/CMECK  plotter  function  TO  BE  SPECIFIED 


100  NANFUN* 'NONE ' 

CALL  GETSKHI NANFUN.  I 3)  . NULCST) 

ifinamfun.eq. 'SHE' ) 00  TO  300  a 

IFtNANFUN.EQ. 'OE V ) 00  TQ  4Q0  a 

IFINAPFUN.EQ. 'MOO' ) 00  TO  500  » 

IFINANFUN.EO. 'PEN' I 00  TQ  600  a 

IFfNAHFUN.EQ. 'NONE' I 00  TO  300 
C 

c 

C FLAG  BAD  FUNCTION  I DRAIN  SPECS 
C 

CALL  UARNSI  'BAD  PLOTTER  FUNCTION 
ISO  NaNFUN> ‘NONE ‘ 

CALL  0ET5KNI NANFUN. f 3) . NULCST) 
ir iNANFUN. NE . 'NONE  * ; 00  TO  ISO 
C 
C 


a OET 

SHEET 

DEVICE 

NTOEL 

PENS 


--  • ) 


1ST  3 CHARACTERS  OF  FUNCT  SANE 
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KNO^LO 

0C3 


c ocr/CHCCK/eoNriRN  sneer  uNirs/LeNOTN/uiorN 
c 

300  CALL  oersRL (KonnLrt t i . 

• I .O.XniNLO.XHAXLO. ‘OAO  LeNOTH  •-*> 

CALL  oersftLCKonPLTtei . 

■ I .O.XNINHH.XHAXHH. *0A0  MlOTN  -*'l 

CALL  oersinrNANruN.  *t . -i . *e''TOA  PLorreo  spec 
iPfHCPipn.Ne.o*  HRireto.sisi  xonPLnoi  .KOnPLtr  1 1 .KOnPLrtei 
siSPORHAri*  PLorreo.  sneer.  *.a3.*.  '.is.*  Lono.  *.i3.'  uioe*i 
iriNAnFUN.ne. ‘none* I oo  ro  soo 
c 
c 

c oer/cneCK/conpiRH  oevice  rrpe  nnenonic 
c 

•fOO  CALL  ocrsxntnnenon.  (01 . nuLCsri 

tprnnenon.eo.  * *i  call  harnsi  ‘oao  ocvicc  spcciPtCAnon  ••*) 
CALL  oerstncNAnPun.  »i.*i.*cxrRA  PuorreR  spcc  ->*i 
ircncpiRn.ne.oi  uRire(6.**iS)  nnenon 
•MsroRHArt*  PLorrcR.  ocvice.  *.a6> 
iPcnAnrun.ne. 'none* I oo  ro  soo 
c 

c NoocL  spec  I PICA  non 
c 

soo  uRtreis.sis) 

SIS  PORRArcsx. 'nooCL  nncnonics  arc  nor  ocrinco.*) 

00  ro  900 
c 
c 

c oer/cnecK/coNPiRM  nunecR  or  pen(S> 
c 

soo  NALrn*ntNOiMALrn.nsALTfi)  a insiiRC  malth  <>  nSALtn 
CALL  oersiNcnAirn.  o.nsaltm. 'Bao  numocr  cr  pens  ••*> 

CALL  oersinrnAnruN.  »i.-i.*exrRA  PiorrcR  spcc  ••*> 
ircncriRn.ne.oi  uRire(s.6tst  MAtm 
sisroRHATi*  plotter,  pens.  *.ii» 
iP(NAnruN.nr. 'none* ) oo  to  soo 
c 
c 

C E-UT 
C 

900  KOnO  « ’ 

RETURN 

ENO 


n-00 


ooooooooooooooooooooooooooooooooooooooooooooooooooo 
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KNO^OI 

OOt 


tUtPOUriNC  KHOPOK  • OCT/CHECK  CONTPOl /CHECK  POINT 


U KOHDt  • l< 

piRtr 

l/t/S  CHARS  or 

cohnand  or  point*  Oi  spaces  I 

HISTORY 

E H 

SCHLOSSER 

LEC 

07/B8/7I 

orioinal  code 

E H 

SCHLOSSER 

LEC 

IB/B0/7S 

ALPHANUMERIC  COMMAND 

E H 

SCHLOSSER 

LEC 

07M7/7B 

DELETE  RETURN  K 

E M 

SCHLOSSER 

LEC 

01/B7/79 

MOOlPY  POR  MACRO  COMMANDS 

E H 

SCHLOSSER 

LEC 

11/30/79 

REVISE  0'*A/A'»0/0'*U/U'*0  CALLS 

NET hod 


OET  COOPOINATE  SYSTEMS  AND  COORDINATES  t STORE  IN  LABELLED  COMMON. 


machine-oepenoent  code 


NONE. 


EXTERNAL  REPERENCES 


MOPATL 

MOUARN 

UNOETS 

OETSKH 

OETSIN 

OETSRL 

OETSSX 

WARNS 

O'*  A 

A>*0 

o>*u 

y<*0 


• PRINT/COUNTaOO  *PATAL'  oiaonostic  message 

• PRINT/COUNT/LOO  'HARNINO*  oiaonostic  message 

a BACK  UP  I PIELO  ON  UNIT  S 

a OET  character  string  data  pielo  prom  unit  s 
a OET  integer  data  pielo  prom  unit  s 

a OET  REAL  data  riELO  PROM  UNIT  5 
a OET  sexagenary  data  pielo  prom  unit  s 
a oenerate  warning  *'or  invalio/missino  pielo  prom  unit  s 
a geographic  cooroinates  por  adjusted  mss  coordinates 
a ADJUSTED  MSS  coordinates  por  GECCRAPHIC  coordinates 
a GEOGRAPHIC  coordinates  por  JTm  coordinates 
a utm  coordinates  por  geographic  coordinates 


EXCEPTIONS 


I.  ALL  SPECIPICaTIONS  ARE  CHECKED  POR  ALLOWABLE  VALUES. 


GLOBAL  declarations 


INCLUDE  KOMXQT.LIST 
INCLUDE  KOMNER.LIST 
include  KOMPIT.LIST 


a COMMON  program  execution  switches,  counters 
a COMMON  CRTS  SCENE  parameters 

a COMMON  CONTROL  AO JUS  TRENT / RE G I STR A T I QN  PARAMETER 


M'Bl 


OAN  fACKAOC  AMCNOIX  n 
COHHANO  KOUMNCS 


KNO^OI 

ooc 


INCkUOC  KOnNCT.LliT  • CONHON 
iNCLuoc  MiNoer.Litr  • ocriNC 
iNCLuoc  NULCtr  • oeriNC  null 


CONTNOL  NCTMONK 

tTNucruNC  or  minooh  rACxcrt 
cmanactcii  tmiNO 


c 

c 

C LOCAL  OCCLANATIONS 
C 

c 

NCAL  HLrcnrcoi 
INTCOCN  InTCHN 
INTCOCR  KHrenr 
InTCOCR  J0eSCR<9 
INTCOCR  NQOH 


e 

c 

C RROCCOURC 
C 

c 


C TCnrONART 
• rcnroRARY 
A rcnroRARY 

a ococRirrioN  <94  charactcrsi 
a Trre  cooRO  rrcscnt  roR  qucrv  rti 


NUL • / *CARTM* / ‘SCAN* 


CALL  TRACC 


c 

c 

e CMCCK  ir  cxRLicir  ‘roint*  connANO  ikoho  is  Ptotn 
c 

tri tKOnO.CQ. 'R' I .OR. 
a (Kono.eo. ‘RO' ) . OR. 
t (KOHO.CQ. *ROt ' I ) 00  TO  liO 

c 

c 

c CMCCK  :r  tNRiictr  ‘roint*  commano  (komo  is  point  numbcri 
c 

CALL  UNdCTS 

INTCMR*0  a NOT  VALID  POINT  NUHOCR 

Call  OCTSINI INTCMR.  -OSOOO. *99999. NULCSTi 
IPlINTCHR.CQ.Oi  00  TO  999 
CALL  UNOCTS 

c 

c 

c initialize 
c 


c 

c 


110  iriNCTHl.LT.3S0l  00  TO  I ZC 

Call  HorATLi  'norc  than  3S0  points  in  ncthorxm 
00  TO  900 

ICO  NCTh:«nCThI *1  • SET  node  pointer  to  next  available  node 

NQSU>'NUL'  a NOT  A QUERY  POINT 

NOSAVC*NOTOTl 


C POINT  NUNBCR 

c 

NCTPTinEThI : >999999 

CALL  OCTSININCTPTInCThi I , -9999. *999. '*BAO  POINT  NUMBER 

iriNCTPTiNETHl  I .CO.  01  CALL  WARNS'  ‘BAO  P()INT  NUMBER  --‘1 
IP'NCTPTinCThII . OE. -9991  00  TO  300 

iriNWNoou.oT.oi  00  TO  aso 

CALL  HOWARNI  'NETWORK  NOT  VCT  AOJUSTCO' > 

00  TO  300 


H-B* 
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*90  irtNCrLAT. kT.il  CALL  HOHANNf  *fCHCN  TMAN  t CONTAOL  AOtNTt* i 
iriACTCTl.Lr.HO. I CALL  NOUAANt  *Ltff  THAN  HOt  COVCAAOC * I 
iriAHONCr.OT. 190. I CALL  AOHAANI  'AN9  CAAOA  > 190  ACTCA9M 


•CANNCA  (OirC'AOJUfTCOI  COOAOINATCI 

SOO  KNrCNA«*At9CNT' 

CALL  0CT9KH*NNTCNA. I II . NULC9TI 

irc IKHTCHA.CQ. I .OA. CKHTCHA.CO. * 'll  00  TO  300  • 'ttCANI* 

CALL  UN0CT9  • 90  Mf  CAN  OCT  ftCLO  AOAIN  Ml TN  A OirrCACNT  fOAHAT 

iriNCTATf nCTnI I .OC. •0901  00  TO  3*0  • NOT  A QUCAY  AOINT 

NQOW'CAATH'  I CAATN  CODAOINATCO  OIVCN  rOA  OUCAT  POINT 

irfKNTCNA.Or .01  00  TO  3H0  • ALPHA  COOAOINATC  SYSTCH  ILINC  A SAHPLC  ONlTrCO 
NQ9M*‘9CAN*  • 9CANNCA  COOAOINaTFS  OIVCN  fOA  OUCAY  POINT 

3*0  CALL  0CT9AL;A0.INCTiuLIN.NCThII  . 

• I . . >1900 . . *H900. . ***A0  LINC  --'I  a ACALS  OK 
CALI  0CT9ALI AO^NCriMSAN.NCTHi I . 

• I . .0. .HOOO. . *«0A0  9AHPLC  a ACAL9  OK 

tPI INCrPTINCTHlt .LT.-999I -ANO. (NOOAVC.NC.NOTOTLII  00  TO  900 


CMCCK  CAATH  COOAOINATC  9V9TCn 

3H0  KOAO*Y«*A99CnT‘ 

CALL  OCT9KH(KOAD9Y. 1 31 . NULC9TI 
iriKOAOOY.CO. 'OCO* I 00  to  HOO 
iriKOAOOY.eO. *KN  ')  00  TO  900 
IPIK0A09Y.CQ. 'nCT ‘ I 00  TO  610 
CALL  MAAN9(  **A0  CAATN  COOAOINATC  SYSTCH 
00  TO  900 


OeOOAAPHIC  COOAOINATC*  <0C0ACC9> 


HOO  triNOSH.CQ. 'SCAN' I 00  TO  HYO 

CALL  ocr99x(ceoNcr(uLAr.NCTHi > . 
CALL  CCT9SXI0e0NCTIUL0N.NCTHt I . 
IPfNOSAVC.NC.NOTOTLI  09  TO  900 
iriNOSM.CO.  'CAATN-  I 00  TO  I«90 

iriNcriAH.co.oi  oo  to  900 
H30  CALL  octncs 
MAI  TCI9.H>«9I 
a nctptincthi I . 

a AOJNCTIULIN.NCTHI  ) .AOJNC  ' '«49AH 
a OCONCT  ( UI.AT  .NCTNII  . 9C0NCT  ( nLON 
HH9  rOANATl 


a OUCAY  POINT.  9CANNCA  COCAO  OIVCN 

1 . . CO. .90. . “‘SAO  LATI TUOC  --'i 

1 . . 90. . too. . ‘*9A0  LONOITuOC  •') 

a ol'Cay  point,  caatm  coops  oivcn 


NC’HI  I , 
nCtmi I . JOCSCP 


a • point. '.19. 
a 9CAN. ‘ .r*.c. ' . ‘ .P9.C. 

a '.  PCO.  • .no.9.  • . * .PI0.9.A3.0A6I 
00  TO  900 


**70  Cal*.  OHACOCONCTiulaT.nCTmi  I .OCONCTiHLON.NCTm  I . 

• AOJNCriULlN.NCTHl I . AOJNCT (NSAN.NCTNI I ! 
00  TO  **30 

•*90  CALL  A**0(  A0JN*^T.UL  IN.MCTMI  I .AOJNCTiUSAH.NCTMt  < . 

• OCUNCri MLAr.NCTHl I .OCONCTfMLON.NCTNl I I 


N»*3 


KHO^OI 

oo<* 


OAH  ^ACKAOC  AAPCNOi 
COHNANO  ROUriNCt 


00  TO  HSO 

e 

c 

e urn  coonoinatcs 
e 

000  er«ie»s  • convcnr  rnon  kilohctrco  to  ncrncs 
00  to  000 

010  cr*i.  • ncrncs  ••  no  eonvcnsion  nccoco 

oto  inurncno.co.oi  call  nouAnnc  'no  u'n  cone  ocriNCO** 

irinosH.CQ. ’SCAN’ t oo  ro  oro  • qucny  noinr.  scannca  coono  oivcn 
CALL  ocrsnLinircnni I > . cr.o. . ic*o. ’*oao  castino 
CALL  ocTsmtOLTCNAici . cr . p . 9C*o.  ’ «0A0  NonrHiNC  --‘i 
irfNOSAvc.NC.NororLi  oo  to  oao 

CALL  ONUIOCONCTtHLAT.NCTMl  I . Oi'ONC  T I HLON  . NC  TN I > . 

• RLTCnni 1 1 .OLTCnniCi .utncno> 

ircNQSH.iQ. ’Cart  r I oo  to  ooo  • oucnr  roint.  cartn  coord  oivcn 
IPinCPtRN.CO.Ol  00  TO  900 
OSO  CALL  OCTOCS 
URITCIO.ONSl 
S NCTRT INCTHI I . 

A AOJNCr (HL iN.NCTHt I . AO JNC T ( MSAN . NCTHI I . 

A RLTCNRin  .RLTCNRlCi  . JOCSCR 
ONS  PORNATf 

A ■ ROINT. ’ . 19. 

A ’.  SCAN. ’ .PO.C. * . ’ .PO.C. 

A ’.  «H.  • . -IR.rS.**.  • . ’ .r9.<*.  AI.0A6* 

00  TO  900 

070  IPINOSAVC.NC.NOTOTLI  00  TO  900 

CALL  ONAICCONCTIULAT. NCTHI I . OCONC T ( HL ON . NC TH I I . 

• AOJNCTIHLIN.NCTHI  ) .AOJNCTIHSAN. NCTHI I I 
CALL  UHOIRLTCHRU  1 .RLTChRICI  . 

• OCONCTIHLAT.nCThI I .OCONCTihlON.NCThI ) .uTnCnOl 
00  TO  OIO 

000  CALL  AHO(  AOJNCTIULIN.NCThI  I .AOJNCTlUfjtR.NCTHII  . 

• OCONCTIHLAT.NCTHI  I . OCONC T I HL ON . NCTH I I I 
00  TO  OSO 

c 

c 

C NOT  A VALID  CONTROL /CHCCK  ROINY  ••  SC T NOOC  ROINTCR  BACK 
C 

900  NCTHI *NCTHI • I 
00  TO  990 
C 
C 

C KCCR  COUNT  or  CONTROL  ROINTS 
C 

900  iriNCTRT.NCTMl  ) .LT. -9991  00  TO  900  I QL'CRT  ROINT 
iriNCTRTiNCTMl) .OT.Ol  NC TL R T «NC TLRT • I 

c 

c 

c NORNAL  RCTuRN 

c 

990  KONO*’ 

999  RCTURN 

e 

c 
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KNOPOl 
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susRouriNC  oeroes 
00  ISO  NU0>t.9 
ISO  JOeSCRtNUOl** 

iriMOATCH.CQ.OI  00  TO  900 

CALL  OerSKHC  JOeSCRfOl  . I49I  . NtlLCSri 

in joescRfOl .NC. * *>  jocscriii**.  * 

CALL  OerSINf INTCltP.  *1.-1. 'EXTRA  POINT  SPEC  --*1 
900  RETURN 


End 
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KHOPOK 

OOt 


SU8R0UTINC  KHOROKC  • ‘POKC*  At  tCNANOCI  VARIABie  IN  LABCLLCO  CONNON 
U KONOi  • li  PtRSr  3 CHARS  OF  CONNANO  Ot  SPACES 


HISTORY 


e H SCHLOSSER  LEC  I0/E*»/7S  REQUIRENENTS 

E H SCHLOSSER  LEC  I0/R8/7S  OESION/COOE/TEST 


HETHOO 


CHECK  NAME  or  CONNON  AND  LOCATION  FOR  VALIDITY, 
ir  INVALID.  ISSUE  OIAONOSTICISI . ELSE  CHANOC  A PRINT  CONTENTS 
or  REOUESTED  CONNON  LOCATION  IN  ALL  OF  THE  FOLLOHINO  PORNATS: 
INTEOER.  REAL.  CHARACTER  STRING 
A variable  ENCLOSED  IN  QUOTES  IS  ALWAYS  INTERPRETEO  AS 
A CHARACTER  STRING. 


HACHInE'OEPENOCNT  code 


OINENSION  A rORNAT  SPECIFICATIONS  ASSURE  6 CHARACTERS  PER  INTEOER. 


EXTERNAL  REFERENCES 


NOCLRH  a CLEAR  'HARNINO*  DIAGNOSTICS 

GETSKH  a OCT  CHARACTER  STRING  DATA  FIELD  FRON  UNIT  5 

OETSIN  a GET  INTEGER  DATA  FIELD  FRON  UNIT  5 

DCODC  a DECODE  NUNERtC  CHARACTER  STRING 

NDHARN  a PRINT/COUNT/LOO  ’HARNINO*  DIAGNOSTIC  NESSACE 

NOVCST  a ROVE  CHARACTER  STRING 

INTEOER  LCHREG  » LOCATE  CHARACTER  EQUAL  SEARCH  CHARACTER 

DOUBLE  PRECISION  C8SHCS  a VARI ABLE -LENGTH  CST  FOR  FIXED-LENGTH  CST 


EXCEPTIONS 


I.  ALL  SPECIFICATIONS  ARE  CHECKED  FOR  VALIDITY  AND  RESULT 
IN  WARNING  DIAGNOSTICS  IF  BAD. 

B.  KONO  IS  NOT  CHECKED  FOR  VALIDITY. 


GLOBAL  declarations 


connon/konalt/konal T ( 1 1 a connon  alternate  print  file  counters,  pointers 
connon/konoet/konoeti I > a connon  detection  file  hinoou  pkts  i dates 


N-SB 


uuuuu  uouuuu  uuoo  ouuo 


OAH  l»ACKAOe  APrCNOlX  H 
CONHANO  ROUriNCS 


KHOPOK 

ooe 


eomoN/Konn  r/KOHPi  r ( 1 1 
CO  moN/Konmr/KONiiirf  1 1 
C ,NNON/ KOn I HU/ KOH I UM ( 1 1 
wONHON/KOHKLS/KONKLSf 1 1 
INCLUOe  KOHLOO.LISr 
COHMON/KOHLUS/KOHLUei 1 1 
CONHON/KOHLUS/KOHLUSt  t » 
COHHON/KOnLUS/KOHLUSC I » 
C0NN0N/K0t1L8N/K0HLaNt  1 1 
COHNON/KOnNCft/KOnNeRi I i 
conHON/KonNer/KOHNcr 1 1 1 
COMNON/KOHOHU/KONOUHC I t 
eOnnON/KOnSLN/KOHSLHt I ) 
COHHON/KOHSYH/KOnSYHf 1 1 
COHHON/ KONT BL / K0MT8L  C 1 1 
INCLUDE  KOHXOT.LtSr 
INCLUDE  NULCSr.LISr 


• CDNNON  AOUtlBrNCNr/REOIBTRAriON  PARAHCTERS 

• CDHHON  IRRAOIANCE  TRANSPORHAT ION  COEPPICIENTS 

• CDNNON  INPUT  HI  NOON  PACKETS 
A CDNNON  CLASSIFICATION  INFO 

A COHNON  LOO  FILE  BUFFER.  I/O  PKT.  POINTERS 
A CONNON  POINTERS/FLAOS  FOR  UNIT  i 
A CONNON  POINTERS/FLAOS  FOR  UNIT  3 
A CONNON  POINTERS/FLAOS/BUFFER  FOR  UNIT  S 
A CONNON  I/O  PACKETS  FOR  OETECTION  FILES  181 -aNl 
A CONNON  ERTS  SCENE  PARANETERS 
A COHHON  CONTROL  NETUORK  COORDINATES 
A COHNON  OUTPUT  HI  NOON  PACKETS 

a COHHON  spectral  LI  hits 

A COHNON  SYHBOL  TABLE 
A COHHON  NULT I -PURPOSE  TABLE 

A COHHON  PROORAH  EXECUTION  SNITCHES.  COUNTERS 
A DEFINE  NULL  CHARACTER  STRINO 


LOCAL  declarations 


INTEOER  NAHCOH 
INTEGER  LOCPOK 
INTEOER  KHPOKEiai 
INTEOCR  KOOTyP 
INTEGER  INPOKE 
REAL  RLPOKE 
REAL  ZERO/.O/ 
LOGICAL  POKED 


A NAHE  OF  COHNON  TO  ’POKE*  AT 
A LOCATION  OF  VARIABLE  IN  COHHON  TO  ‘POKE*  AT 
A CHARACTER  STRING  VALUE  TO  INSERT  IN  COHHON 

a CODE  type  hhen  oecooino  khpoke 

A INTEOER  value  TO  INSERT  IN  COHHON 
A REAL  VALUE  TO  INSERT  IN  COHHON 
A ZEROI 

A true  if  poke  called,  false  if  not 


PROCEDURE 


CALL  TRACE 


OET  NAHE  OF  COHHON 

CALL  HOCLRHI  NULCSTI 
NAHCOH- ’ 77?  • 

CALL  0ET5KH(NANC0H. (6> . NULCSTI 


OET/CHECK  LOCATION  OF  VARIABLE  TO  ‘POKE'  AT 

CALL  OETSINILOCPOK.  I.8500.‘*BA0  POKE  LOCATION  --‘I 
C 
C 

C OET/OECODE  VALUE  TO  INSERT 
C 

KHPOKE(|l«‘  777  ‘ 

CALL  OETSKHI KHPOKE. ( 181 . NULCSTI 
CALL  OCOOEI INPOKE. RLPOKE. KOOTYP. 
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• KM»OKe.m.lLrlle•r(KHPOKC.l^ln 

iriKM^OKCd t .CQ. * ???  *1  CALL  HARNSI  ‘lAO  VALUE  TO  INSCRT 
CALL  OerSiNfLOCROK.  . •!  . *CXTIIA  ROKC  SPCCiriCAriON  —*l 
C 

c 

C OlVC  UP  IP  ANY  UARNIN08  OCCURRCO 
C 

tPCNOMARN.Ne.Ot  00  TO  900 
C 
C 

c riNO  REQuesreo  connon  a *poke*  at  it 
c 

poked*. palse. 

iPtNANCOn.eo. ‘KOHALT* > CALL  POKECKONALr.KOHALT I 
IPINANCOH.eO. ‘KOnOET* I CALL  POKE < KOMOET . KOnOET I 
IPCNAHCOH.EQ. 'KONPir* t CALL  POKEIKOHP I T . KOHPI r t 
IPCNAHCOH.EO.’KOKlRr’t  CALL  POKEIKONIRT .KONIRT I 
IPtNAHCOn.EQ. 'KOnIMH* t CALL  POKE C KONI MU. KOH I HH > 

IPINANCON.EQ. ‘KOHKLS* I CALL  POKECKONKLS.KOHKLS) 

IPCNAHCOH.EQ. 'KONLOO* I CALL  POKE(KONLOO.KOHLOO> 

IPINANCON.EQ. ’KOHLUE' > CALL  POKECKONLUS.KONLUEI 
IPCNANCON.EQ. *K0HLU3* I CALL  P0KE(K0HLU3.K0NLU3l 
IPINANCON.EQ. *KONLUS* t CALL  POKE  I KOHL US. KOHL  US I 
IPINANCON.EQ. ’KOHLEN* ) CALL  POKEIKONLEN.KONLENI 
IPINANCON.EQ. *K0NNER* > CALL  POKE ( KOHNER . KONNER > 

IPINANCON.EQ. *K0HNET* I CALL  POKE  I KOMNET . KONNETI 
IPINANCON.EQ. ‘KONOUM* ) CALL  POKECKONOMH.KOHOHMI 
IPINANCON.EQ. 'KOHSLH* I CALL  POKE(KONSLH.KONSLN) 

IPINANCON.EQ. ‘KOHSYN* I CALL  POKE ( K0N8YM . KOHS YN I 
IPINANCON.EQ. ’KO:«rBL* I CALL  POKEIKOHTBL .KONYOL I 
IPINANCON.EQ. ’KOr.XQT’ I CALL  POKE  (KONXQT  . KONXQT  ) 

IPI .NOT. POKED)  CALL  HOHARNI 

• *BAO  POKE  CONNON  NANE  --  ' . C0S1CS I NANCON . ( I ) . ( 6 > I ) 


--•I 


DONE 


C 

C 

C 

C 

C 


C 


C 


900  KONO** 

CALL  NOCLRUI  NULCST) 
RETURN 


INTERNAL 

subroutine  POKE!  a print  a change  a print  value  op  common  location 

I KON.  a LABELLED  COMMON  (INTEGER  OR  CHARACTER) 

I COM)  a LABELLED  COMMON  (READ 


INTEGER  KOMI  I i 
REAL  COM!  I I 
REAL  RLTEMP 
INTEGER  NPORMT 
INTEGER  LOCHt 

integer  LOCHE 


a ARGUMENT 
a ARGUMENT 
a TEMPORARY 

a type  op  • 
a location 
a location 


p*  pornat  to  print  RLTEMP  MITH 
OP  PIRST  QUOTE 
OP  SECOND  QUOTE 


'.'Aju 


V 


■p  v.'ViV-,  V.* 


•»T  ;»■:  . 


1*1%. 
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OAN  PACKAOe  APKNOIX  H 
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POKCO^.TRUE. 

MLrenp«con(LOCPOKi*zeRo  $ roRCC  normal izat ion  ip  not  real 

NPORNT*! 

mAOttRLTEHPt  .LT.  t .0E«6)  NFORNT** 
tPIAOtlRLTENPI .LT.t .0  > NrORNT«S 

IFCNPORHT.EO. It  WRITEce. 

A ten  NAHCOH.LOCPOK.KON(LOCPOK) .RLrENP.KONCLOCPOKt 
161  P0RHAmx.A6.*C.JH.M  ' . MO.  tX.FIH.O.SX.  A6< 
tFtNFORMT.EQ.et  MRITEte. 

A toet  NAHCON.LOCPOK.KONCLOCPOK) .RLTENP.KOHILOCPOKI 

loe  F0RnAr(ix.A6.*(*.ji».‘)  * . no. ix.FiH.o.ex. as> 

IFINFORHr.EQ.3)  URITECe. 

A 1631  NAHCOH.LOCPOK.KOHILOCPOK) .RLTEHP.KOHILOCPOKi 
163  FORHATI  IX.A6.  ' ( * . J4.  * t * . MO.  tX.Ft>».  16.ZX.  A6> 

URtTEie.teSt 

166  FORHATC  CHANOeO  TO*) 

IFtKOOTYP.CQ. ’ IN* ) KONCLOCPOKI«lNPOKE 
IFIKOOrVP.EQ. *RL*  .OR. 

A KOOTYP.EO. *FR*  .OR. 

A KOOTYP.EO. ’SX* ) CON(LOCPOK) •RLPOKE 
IFCKOOTYP.NC. ’ERR*)  00  TO  ZOO 
LOCHt  • LCHREOCKHPOKEM  1.1.6.*’**) 

IF(LOCHt.EO.O)  00  TO  tOO 

LOCHZ  • LCHREQtKHP0KE(t).L0CHI*t.6-L0CHt.*'**) 
triLOCHZ.EQ.O)  LOCHZ  • 7 
CALL  NOVCSTCKHPOKEM  ) . 1 .6. 

A KHPOKE(  t ) .LOCHMl  .LOCHZ'CLOCHt  *t ) . * *) 
too  KOH(LOCPOK)  > KHPOKEM) 

ZOO  RLTEHP>C0H(L0CP0K) *ZERO  a FORCE  NORHALtZATION  IF  NOT  REAL 
NFORHT*! 

IF( AOeiRLTEHP) .LT. t . 0E*6)  NFORMT*Z 
IFI A8S(RLTEHP) .LT. t .0  ) NFORHT-3 

IFINFORNT.EO. t ) MRITEI6. 

A ten  NANCOH.LOCPOK.KOH(LOCPOK) .RLTEHP.KONCLOCPOK) 
IF(NFORHT.EQ.Z)  MRITE(6. 

A teZ)  NANCOH.LOCPOK.KOH(LOCPOK) .RLTEnP.KOH(LOCPOK) 
IF(NF0RHT.EQ.3)  URtTEtS. 

A 163)  NAHCOH.LOCPOK.KOmLOCPOK)  .RLTCHP.KOn(LOCPOK) 

RETURN 

END 
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tUMOUriNC  KNOROLt  • Orr/CMCCK  ROLAN  OAlN/tlAt 
U KONOI  • It  riNtr  3 CNANO  Of  CONNANO  0>  ORACCt 


NItrONV 


c 

N 

SCMLOSSCR 

LCC 

IB/BO/78 

orioinal  COOC 

c 

H 

SCHLOSSCR 

LCC 

07/30/7B 

ocLcre  rctunn 

K 

c 

H 

SCHLOSSCR 

LCC 

0B/03/7B 

Revise  ocTs.. 

CALLS 

c 

H 

SCMLOSSCR 

LCC 

lB/OS/79 

URORAOC  OOCUHCNTATION 

hcthoo 


uROAre  ROLAN  OAiNtsi/eiASfCsi  rRON  UNIT  s.  ir  sRceiPieo.  ano  conpinn. 
(Buses  ARC  NAINTAINCO  IN  LABCLLeo  COHHON  AS  iNTCOeRS  SCALeO  BY 
kOAlNS  ARC  HAlNTAINeO  IN  LABCLteO  COHNON  AS  iNTCOeRS  SCALCO  BY  S«*ie.) 


NACNINC'OeReNOeNT  cooe 


SCALCO  INTCOCR  BIASCS  A GAINS  ASSUHC  36-BIT  INTCOCRS. 

OINCNSION  A PORNAT  SPCC I P I CAT  I ONS  ASSUHC  6 CHARACTCRS  RCR  INTCOCR. 


exTCRNAL  RCPCRCNCCS 


OCTSIN  I OCT  INTCOCR  DATA  PICLO  PROH  UNIT  S 

OCTSKN  I OCT  CNARACTCR  STRINO  DATA  PICLO  PRON  UNIT  S 

OCTSRL  I OCT  RCAL  OaTA  PICLO  PROH  UNIT  S 

HARNS  I OCNCRATC  UARNINO  POR  I NVAL 1 0/Nl SSI  NO  PICLO  PROH  UNIT  S 


exCCRTIONS 


I.  SRCCIPICATIONS  outsioc  THC  POLLOMINO  RANOCS  arc  RCjCCTCO  ano  ccncratc 


UARNINO* 

OlAONOSTICSt 

COCPPICICNT  TYRC 

< > 

‘OAl*  OR  ‘BIA* 

1 

<>  CHANNCL  NUHBCR 

<« 

B 

•IBB. 

<>  OAIN 

<• 

• IBB. 

-100. 

<•  BIAS 

< • 

*100. 

OCCLARATIONS 


INCLUOC  KOHXQT.LIST 
INCLUOC  KOHIRT.IIST 
INCLUOC  NULCST.LIST 


a COHHON  RROORAH  CXCCUTION  SUITChCS.  COUNTCRS 
• COHHON  IRRAOIANCe  transporh  TYRC  a COCPPICICNTS 
a OCPINC  NULL  charactcr  strino 


C 


H-90 


OAN  ItACKAOC  AI»AeNOtX  N 
COHNANO  KOUriNCS 


OOf 


c 

e LOCAL  OCCLARATIONO 
C 

e 

INTCOCII  KNTCHP  • TCNRORARV 

INTCOen  NRCHAN  • POLAR  CHANNEL  NUHOER 

REAL  ROAINCO .R0IAS(0>  • TEHP  STORAGE  POR  0AIN8/0IA8E»  AS  RL  NUN0ER8 

INTEGER  NAHEfE)  / ’RADIUS* . *ANOLE*/  • INTUITIVE  NAMES  POR  POLAR.!  A .8 
C 
C 

C PROCEDURE 

C 

C 

CALL  TRACE 

e 

C 

C RETRIEVE  CURRENT  POLAR  OAlNS/OlASES 
C 

POAINI  tt«PLOAT(NRTOI8m  W2.««I2 
P0AINCE)«PL0AT(NRT0tE(8l I /E. «*I8 
POlASm-PLOATINRTOEVm  i/E.««EH 
PSIAS(E)«PLOAT(NRTBE<»fEM/E.«*E« 

C 

C 

C OET/CHECK  POLAR  TRANSPORNED  CHANNEL  NUHOER 
C 

NPCHAN-0 

CALL  OETSINCNPCHAN.  I.E.'BAO  POLAR  CHANNEL  NUMBER  --’I 
IPCNPCHANEQ.OI  00  TO  BSD  • NONE  OR  INVALID 
C 
C 

c OET  transporhation  coeppicient  type 
c 

300  KHTEMP*’  NUL* 

CALL  OETSKHCKHTEMP. IS> . NULCSTI 
C 
C 

C OET/CHECK/CONPIRH  OAIN 
C 

VOO  IPCKHTEMP.NC. ’OAI • > 00  TO  500 

CALL  OCTSRL (POAININPCHAN) . I . . • I SB . . • I SB . . ’ BAO  OAlN 

NRTOIEtNPCHANI •POAt N<  NPCHAN) *8. • « 18 

IPIHCPIRM.NE.O*  URITC(6.V85t  NPCHAN . NAME  I NPCHANi  . POA I N ( NPCHAN I 
V8S  PORNATI*  POLAR.  *.11.*  (*.A6.*l.  OAlN.  *.P9.3> 

00  TO  300 
C 
C 

C OET/CHECK/CONPIRM  BIAS 
C 

SOO  IPIKHTCMP.NE. *BIA*I  00  TO  800 

CALL  OETSRLIPBIASINPCHANI . I . . *1 00 . . *1 00 . . * BAO  BIAS  -•*) 

NRTB8*»(  NPCHANI  «PBI  AS  I NPCHAN  I *8 . • «8i» 

IPINCPIRN.NE.OI  URITC(S.585I  NPCHAN. NAMCINPCHANI .PBIASINPCHANI 
88SP0RMATI*  POLAR.  ’.It.’  (’.AS.’I.  BIAS.  *.PS.3I 
00  TO  300 
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o o o o noon  o o n 


OAH  MCKAOC  APPCNOIX  N 

corMANO  RouriNCS 


KNOROL 

001 


riAO  OAO  toceiriCArioN 

000  iriKMrcNO.CQ. * nul’i  oo  to  ooo 

CALL  HARNSt  *0A0  ROLAR  SRCCiriCAnON 


CONriRH  OAINS  ANO  OIASCS 

000  irtNcnRN.eo.oi  oo  ro  ooo 
DO  ooo  NRCNAN«l.a 

wRirc(0.*»aoi  nrchan.nahC(nrcnani  .poaininpchani 

MRirCCe.OaOl  NPCHAN.NAnetNPCHANI .RBI AStNPCHANi 
000  CONTI Nue 


NORMAL  act URN 

ooo  KOHO-’ 

RCruRN 

CNO 


M-oe 


OAN  ^ACKAOC  AMCNOU  N 
eONHANO  MOUriNCt 


(' 


r 


tumOUriNC  KHOMII  a OCT/CHCCK  MINTCR  tKCiriCATtONt 
U KOHOI  • It  riMT  3 CHARt  Or  COHHANO  Oi  SRACCt 

C — 

e 

c 

C NKTORV 

c 

c 

e CM  fCHLOtfCR  LCC  01/19/73  ORIOINAL  COOK 

e CM  ocHLOtsen  lcc  o7/io/7t  oeiere  rcturn  k 

e e H tCNLOsten  lcc  of/to/79  rcvioc  oct9..  callo 

e CM  SCNL099CR  ICC  10/09/79  UROKAOC  OOCUHCNT AT  I ON 

e 

c 

c ncthoo 

c 

c 

c uoOATC  oRiNTeR  CHARAcrcftisr ICS  troh  unit  s.  ir  soecirieo.  and  coNrion. 

c 

c 

e NACNiNC-ocpcNoeNr  cooe 

c - — 

c 

C NONC . 

e 

c 

e ex'CRNAL  RCFCReNces 

c 

c 

C HOHARN  a RRINT/COUNT/LOO  'HARNINO*  OlAONOSTtC  HCSSAOC 

c oersKH  a oer  charactcr  strino  data  piclo  proh  unit  s 

C HARN9  a OCNCRAre  UARNINO  FOR  INVAL lO/NiSSINO  FtCLO  FROH  UNIT  9 

c oersiN  a ocr  inteoer  data  field  from  unit  s 

c 
c 

C EXCEPTIONS 
C 

c 

C I.  THE  FOLLOUINO  CONDITIONS  OCNERATE  'HARNINO*  OUONOSTtCS: 

C the  alternate  print  FILE(S)  are  already  open  (I.E.: 

c the  first  uinoow  has  already  been  processed) 

c 

c 0.  specifications  outside  the  follohino  ranges  are  rejected  and  oenerate 

C 'HARNINO*  OlAONOSTICSi 

C PRT  FUNCTION  ■ 'INC'  OR  *PAO*  OR  'DEV'  OR  ‘FIL’  OR  'CON* 

C 0 <>  LINES/INCH  <•  00 

C 0 <•  COLUHNS/INCH  <•  00 

C *»0  <•  LINES/PAOE  <•  99 

C <*0  <■  COLUNNS/PAOE  <•  130  a NOT.Et  OUT  UPDATED  IF  <•  1000 

C 0 <•  NUMBER  files  *•  NINOIMALTM.NSALTM) 

C DEV  MNEMONIC  • (ANYTHING  OTHER  THAN  ALL  BLANKS* 

C PRINT  CONTROL  • 'AUT*  OR  *Mi^N*  OR  'NON* 

C 

C 3.  AN  EXTRA  SPECIFICATION  GENERATES  A 'HARNINO'  OlAONOSTIC  MESSAGE. 

C 

C 


N>93 


oooou  owuoo  oouu  ouuu 


i 


V 


0AM  MACKAOC  AMMCNOIX  N KHOPMl 

eOMNANO  AOUriNCS  OOC 


e OlOiAL  OrCLANATtONt 

C — 

e 

tNCLuoc  KONXor.Litr  a common  mnooaan  cxceunoN  SHtrcNCt.  countcno 

iNCLUoe  NULCsr.Lisr  a oeriNC  null  chanactcm  orniNO 


LOCAL  OCCLAMATIONS 


INTCOCN  NAMfUN  A NAME  OF  FRINrCR  FUNCTION  tCI NO  SFCCIFtCO 


FROCeOUNC 


CALL  TRACC 


chcck  if  connano  is  non  LCOAL 
IFINUNOOM.lt. *11  00  TO  100 

call  mouarni 

> ‘RRINTCR  CONNANO  CANNOT  BC  USED  AFTER  FIRST  MINOOH  IS  FROCESSEO*) 
OO  TO  SOO 


OET/CHECK  RRINTER  FUNCTION  TO  BE  SFECIFIEO 

too  NANFUN**  NUL* 

CALL  OETSKHINANFUN. (SI . NULCSTI 
IFINANFUN.EQ. ‘INC*I  00  TO  BOO 
IFINANFUN.EQ. *FAO’l  00  TO  SOO 
IFINANFUN.EQ. ‘OEV* I 00  TO  «00 
IFINANFUN.EQ. *FIL* I 00  TO  SOO 
IFINANFUN.EQ. ’CON* I 00  TO  600 
IFINANFUN.EQ.’  NUL ’ > 00  TO  BOO 
C 
C 

c flao  bad  function  a drain  sfecs 
c 

CALL  MARN8I  ’BAD  PRINTER  FUNCTION  ••’! 

ISO  NANFUN*’  NUL’ 

CALL  OETSKHINANFUN. I SI . NULCSTi 
IFINANFUN.NE. ’ NUL * I 00  TO  ISO 
C 
C 

C OET/CHECK/CONFIRN  lines  a COLUNNS  per  INCH 
C 

BOO  CALL  OETSINILINCH.  B.BO.’BAO  LINES/lNCH  ••’! 

CALL  OETSINIKINCH.  B.BO. ’BAD  COLUNNS/ INCH  >•’! 

CALL  OETSININANFUN.  *1.-1. ’EXTRA  PRINTER  SPEC  --’i 

VUINCN«LINCH 

XUINCN*KINCH 

IFINCFIRN.NE.OI  HRirciS.BISI  LINCH.KINCH 
BISFORNATl’  PRINTCR.  INCH.  ’.IS.’  LINES.  ’.IS.’  COLUNNS’l 


N-9H 


o o u o uuuo  ouuo 


OAN  PACKAOC  AmNOIX  N 

eONNANO  xouriNCt 


KNOMI 


iriNANrUN.NC. ' NULM  00  TO  OOO 

c 

e 

e OCr/CNCCK/CONrillN  linco  a colunno  ocr  oaoc 
e 

100  CALL  OCroiNUOAOe.  •lO.OO.'OAO  LINCt/OAOC 

CALL  OCrsiNtKOAOe.  ^O.'lOOO.'OAO  COLUNNO/OAOC  —*l  • IIX-IOOO  rOM  riLN 

iriKOAOC.Or. not  call  HAONO(  *0A0  COLUHNO/OAOC  '-‘I 
CALL  OCrStNINAHruN.  *t.-l.'rxrOA  mintcr  okc 
iffNcrum.NC.oi  Noireio.iis*  lpaoc.xoaoc 
XI8  rooNAri*  MiNreN.  oaoc.  lincs.  *.is.*  colunmom 

iriNAMrUN.NC. * NUL'*  00  ro  000 


oer/CNCCK/eoNriRH  oevicc  tyrc  NNCnoNic 

•»oo  CALL  ocrgKNtNNCnON.  lei . nulcoti 

irrNNCnoN.co. ‘ call  uannoc  'oao  ocvicc  tocciriCAriON  -‘‘t 

CALL  OCrotN(NAHrUN.  *1 . >1 . ’CXTOA  MINTCn  SRCC  -•’! 

triNcrixN.NC.oi  wxirete.iHSi  nncnon 
HI9  rORHArc  MINrCR.  oxvice.  *.AOt 
irfNAHfUN.NC. * NUL ‘I  00  TO  000 


ocr/CNrCK/coNfiXN  nuhocx  cr  rueisi 

900  NALrN*NlN0<NALrH.N9ALrHi  t I NSUXC  HALTN  <>  nSALTH 

CALL  OCrgiNINALTH.  O.NfALTN. 'OAO  NUNOCR  Of  MINT  MLCS  •-*> 
CALL  0CT9ININAHrUN.  •t.•l.‘exrRA  MINTCN  SNCC 
irincriNN.NC.oi  uNirc(o.9t9i  naltn 
919  rONNATI’  NNINTCN.  riLCO.  *.ll* 
iriNANrUN.NC. * NUL*>  00  TO  900 


Oer/CNCCK/CONriNN  nnintcn  control 


019 

c 

c 

900 


KONM-KONRRT 

K0NANC*K0NRRT 

CALL  OCTSKHIKONRR. i 3) . NULCOTI 
iriKONRR.CQ. 'AUT* I KONANC* * AuTO ' 
iriKONRR.CQ. ‘NAN* I <ONANe>*NANUAL  * 
ir IKONRR.CQ. ‘NON* I KONANC*'  NUL* 
iriKONANC.CO.KONrRTl  CALL  MARN9I  * 9a0  CONTROL 
iriKONANC.NC.KOL  RTI  KONRRT*kONRR 
CALL  OCTSININANCuN.  •t.•l.*CXTRA  RRINTCR  SRCC 
irtNCriRN.NC.OI  MRITCI8.6I9I  KONANC 
rORNATl*  RRInTCR.  CONTROL.  *.AOI 


KONO«* 

RCTURN 

CNO 


9RCC 
• ••  I 
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KMOIIAO 
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OUOOOUriNC  KHOMAOt  0 OCT/CNCCK  OAOIANCC  URITO 
U KONOI  • It  Ptoor  S CMARO  OP  eONNANO  Oi  OPACCO 


NlOrOAV 

C H OCNLOtCCA 

LCC 

00/1X/7S 

NUNCAIC  OPTION 

C N tCNLOOOCA 

Lce 

11/17^70 

alpnanuhcaic  CONNANO 

C N SCNLOOtCA 

LCC 

07/17/70 

OCLCrC  ACTUAN  K 

C N ocnlosoca 

LCC 

Ot/OS/70 

ACVIOC  OCTO..  CALLS 

C N OCNLOSOCA 

LCC 

tt/l 1/70 

UPOAAOC  OOCUNCNTaTION 

hctmoo 


UPOATC  RAOIANCC  LlHirt  POON  UNIT  0.  IP  tPCCIPICO.  AND  CONPIAN. 


NACNINC-OCPCNOCNr  coor 


NONC. 


rx re ANAL  acpcacncco 


OCrOKH  • OCT  CHAAACrCA  trOlNO  data  piclo  paoh  unit  » 
UNOerO  • OACK  up  onc  data  piclo  on  unit  s 

OCrsiN  • OCT  INrCOCA  OAfA  PICLO  paon  unit  0 

NOUAPN  • PAINr/COUNT/LOO  'MAANInO*  OIAONOSHC  NCSSAOC 


CXCCPTIONO 


I.  tPCeiriCATioNC  oursioc  thc  pollouino  aanocs  apc  acjcctco  and  ocncpatc 
’MAANINO*  OlAONOSnCtl 

0 <•  LON  AAOIanCC  <•  IC7 
LOU  AAOIANCC  <•  HIOM  AAOIANCC  <•  IC7 

i.  AN  CXrXA  SPCCIPICATION  OCNCAATCS  a -MAANINO*  ouonostic. 


OLOOAL  OCCLAAAriONO 


INCLUOC  xOHxor.Litr  i connon  paooaan  ckccumon  tMircHCS.  countcao 

INCLUOC  XONKLC.LItr  • CONHON  CL  AC'> ! •' 1 CAT  | ON  tNPO 

INCLUOC  NULCir.Lltr  a OCPINC  null  .-ARaCTCA  STAINO 

c 

c 

e LOCAL  OCCLAAATIONS 


N>00 


OAN  MCKAOC  A^KNOIX  It 
CONNANO  ROUnNC« 


KNOIIAO 

OOt 


e 

c 

mrcocR  KMrcNR 

INTCOCR  JMfliritl 
INrCOCR  ItAtROL 

c 

e 

e Mioecouiic 

e 

e 

CALi  TMACC 

e 

c 


• rCNRORARY 

I ovNANie  RRiNr  romiAr  i>i«  riCAnon 

• NUNKR  or  COLUHN  fO  tTAXt  fUtRINO  OUT  HltH  *T’  rOttltAT 


e ANY  trcetriCATioNt  mon  uocrt 

e 

e 

RNYritr**  Nui’ 

CALL  OCrOKNIKNYCnr. I t 1 . NULCtn 

irtKNrcf*'‘.CQ. * NUL’i  00  ro  loo  a no  srcet.  to  eoNfiRn  cuRoCNr  onco 

CALL  U‘<C>.  *t 

e 

e 

e ecr/CNCCK  raoiancc  trceiriCArioNt  roo  linit  channclisi 

e 


iriNUNCH.NC.Oi  00  TO  tOO 
CALL  NOUARNI 

• *N0  VAUO  CHANNCL  CONNANO  ICfOAC  RAOIANCC  CONNANO*  > 

00  TO  too 

too  00  too  N^I.NLINCN 

CALL  OCTtlNlLCVkOtNI . O.IC7.‘«OAO  NIN  RAOIANCC 
CALL  OCrsiNaCVHl  (Nl . LCVLOINt . 107.  *«0A0  NAX  RAOIANCC  ••*> 
too  CONTINUC 

too  CALL  OCrtINir "NR.  •I.•I.‘CXTRA  RAOIANCC  tRCC If  I C AT  I ON  -‘‘I 

c 

e 

C CONflRN  RAOIANCC  LlNlTt 
C 


too  iriNcriRN.co.oi  oo  ro  toe 

NAtKOt*tO*t*MAX3(NLlNCN. I t 
CNCOOC(<»t.tOt.  JRAYNTI  NAtKOL 

OOt  rORNATCIIIH  RAOIANCC.  . t ' I I . I M.  . I | . ON . I.*.  | URITC  ALL  RAOIANCC  LlNir« 

A *T'.Jt.‘.<*tXi  *i  t ThCN  OLANK  Our  UNUfCO  ONCI 

HRI rcit. URRYNTI 

A LCVLOl 1 1 .LCVH! I 1 1 .LCVLOfO' .LCVMl (O' .LCYLOl S> .LCVMl  i ]i  . 

A LCVLOl  <*  I .LCtfMl  'VI  .LCVLOl  t>  .LCVHI  <t> 

c 

c 


C NORNAL  RCruRN 

c 


too  MONO** 
RCruRN 
CNO 


N-t7 


OAN  l>ACKAee  APPCNOiX  n 
COHHANO  ROUTINCS 


KHOIIAN 

001 


I not  iHPLenCNTcoi 


N-98 


Oouuuuouuuouuuooouuouuuuuououooouooooooooouou 


OAN  PACKAOe  APPCNOIX  H 
COHNANO  ftouriNes 


KNOMCN 

001 


SUiROUriNC  KNORCNf  0 OCT/CHCCK  NCH  UINOOH  SCQUCNCC  NUHOCR 

u KOhOi  • It  riRsr  3 chars  or  cohhano  Ot  spaccs 


history 


e H SCHLOSSCR 
€ H SCHLOSSCR 
H A rONPKINS 


ICC  IO/eO/75 
tec  07/17/78 
Lcnsco  00/87/80 


ORIOINAL  COOC 
ocLcrc  Rcr  K 

UPORAOe  OOCUnCNTAT ION 


NCTHOO 


IF  NHNOOH  <>  initial  STATE  THEN  OET  NEM  HINOOH  NUN8ER  FROH  UNIT  5. 
IP  SPECIFIED.  ANO  CONFIRM.  INITIALIZE  NHNOOH  TO  NEH  VALUE 
MAINTAININO  PRESENT  STATE. 


HACHINE'OEPENOENT  COOE 


NONE. 


EXTERNAL  REFERENCES 


OETSIN 

HARNS 


0 OET  integer  data  FIELO  FROM  UNIT  5 
8 PROCESS  mARNINO  OlAONOSriC  FOR  UNIT  S 


EXCEPTIONS 


I.  SPECIFICATIONS  OUTSIDE  ThE  FOLLOHINO  RANGES  ARE  REJECTED  AND  GENERATE 
'HARNINO*  DIAGNOSTICS: 

1 <«  HINOOH  SEQUENCE  NUMBER  ^>999 

8.  AN  EXTRA  SPECIFICATION  GENERATES  A ‘HARNINO’  DIAGNOSTIC  MESSAGE. 


0L08AL  declarations 


include  KOMXQT.LIST  8 COMMON  PROORAM  EXECUTION  SHITCHES.  COUNTERS 

C 
C 

C LOCAL  declarations 

C 

C 

INTEOER  I TEMP  8 A8S0LUTE  OF  CURRENT  HINOOH  NUMBER 

C 
C 


M-99 


o o u o 


OAN  PACKAOC  APACNOIX  H 
COimANO  AOUTtNCS 


KHORCN 

00» 


c pRoeeouRC 

c 

c 

CALC  TRACC 

c 

IFtNUNOOU.CQ.Ot  00  TO  800 
trCNP-UBSINUNOOUt 

CALL  OCTSINI ITCHP.  t.999.‘*BA0  UINOOU  NUHBCR 
iriHCPtRN.NC.Ol  HRITCIB.tBSI  ITCHP 
IBB  PORNATt’  RCNUNBCR.  *.131 


ALTCR  NHNOOH  TO  ITCHP  KCCPINO  ORtOINAL  SIGN  (STATC). 

NUNOOU>ISIONI ITCHP. NUNOOMt 
00  TO  900 

800  CALL  WARNS!  ’INVALID  OtPAULT  COHHANO  "‘I 
900  KOHO*’ 

RCTURN 

CNO 


H-100 


o 

0«N  PACKAOC  APFCNOtX  H 
eOHNANO  RouriNts 


KHOtCA 

001 


SUmOUTINC  KHOSCAI  A OeT/CNCCK  MINOOM  SCALE 
U KOHOI  • It  PIRSr  3 CHARS  OF  COHHANO  Ot  SPACES 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HISTORY 


SCHLOSSCR 

0S«0S/Y3 

NUHCRIC  OPTION 

SCHLOSSCR 

LCC 

10/07/78 

ALPHANUHCRIC  COHHANO 

SCHLOSSCR 

LEC 

07/ 17/78 

OCLCTC  RETURN  K 

SCHLOSSCR 

LCC 

00/80/79 

GETS..  CALLS 

TOHPKINS 

LCHSCO 

09/87/80 

UPGRADE  OOCUHCNTATION 

HETHOO 


UPDATE  UINOOU  SCALE  FROH  UNIT  S.  IF  SPECirtEO.  AND  CONFIRH. 


NACHtNE-OCPENOCNT  CODE 


NONE. 


EXTERNAL  RCrCRENCCS 


f ) 


OETStN  a OCT  INTCOCR  DATA  FIELD  FROM  UNIT  5 

OCTSFR  a OCT  fraction  data  field  FROM  UNIT  5 


EXCEPTIONS 


I.  SPECIFICATIONS  OUTSIDE  THE  FOLLOUINO  RANGES  ARE  REJECTED  AND  GENERATE 
■MARNINO*  DIAGNOSTICS: 

t.Moooooo.  <>  scale  C«  t./?0000. 

e.  AN  Extra  specification  oenerates  a -marnino*  oiaonostic. 


GLOBAL  declarations 


include  konxqt.list 
include  kohfit.list 


a CONHON  PROORAH  EXECUTION  SWITCHES.  COUNTERS 

a adjustnent/reoistration  parameters 


c 

c 

c 

c 

C 


LOCAL  declarations 


INTEGER  IRFAOS 
REAL  FRTEHP 


a ABSOLUTE  OF  REPRESENTATIVE  FRACTION  DENOMINATOR 
a tcporart  fraction 


N'lOB 


o o n n 


OAN  PACKAOC  AAPCNOIX  H 
eONHANO  ROUriNCS 


e 

c 

C PNOCeOURC 

c 

c 

CALL  TRACe 

c 

IRrARt«IA8S( iRroi 

rRrenp«i . /(TLOAri irpabsi *.00001 > 

CALL  oerSFRirRrCNP.  t..l./t0O00O0..l./O0000..'8AO  SCALE 
I RF A8S* II./ FRTEHP I * . S 

too  CALL  OersiNI lOUHHY.  *t.-t. 'EXTRA  SCALE  SPECIFICATION  -•') 
IFIHCFIRH.EQ.O)  00  TO  900 
IFI  IRFA8S.3T. 999991  00  TO  l•»0 
URI TECS. 1891  IRFABS 
I8S  FORNATI*  SCALE.  I/*. I SI 
00  TO  900 

1*»0  URITEI8.I'*SI  IRFA9S 
IHS  FORHATC  SCALE.  I/*.  161 


IF  SCALE  MAS  CHANOEO.  FLAO  AS  UNCALIBRATEO  INEOATIVEI 

900  IF( I ABSIIRFD) .NE. IRFABS)  I RFO-- 1 RFABS 
KOHO>* 

RETURN 

ENO 


KNOfCA 

OOt 


I 


ooooooooooooouooooooooooooooooooooooooooooooo 


OAN  ^ACKAOe  APKNOIX  H 
COHNANO  AOUTINCS 


KHOtCe 

001 


sumouriNe  knoscci  • oct/cncck  cots  occnc  nuhocr 

U KOMOI  • li  riRST  3 CHARS  Of  CORHANO  Oi  SRACCS 


HisroRv 


e 

N 

SCHLOSSeR 

Lee 

ia/OO/75 

e 

H 

SCHLOSSeR 

Lee 

07/16/70 

e 

N 

SCHLOSSeR 

Lee 

00/ 18/70 

e 

H 

SCHLOSSeR 

Lee 

01/00/ 00 

NCTHOO 


ALPHANUHCRIC  COHNANO 

oCLcre  RcruRN  k 

Revise  oocuHeNTAHON  A oers..  calls 
HAKe  SANPLeS/SCCNC  optional 


uPOATe  scene  NuneeR  from  unit  s. 


IF  spec  I FI eo.  AND  CONFIRN. 


HACHiNe-oepeNoeNT  cooe 


NONe. 


eXTCRNAL  RCFeRCNCeS 


oersKH 

oersiN 

MOUARN 


a oer  CHARAcreR  string  data  ficlo  from  unit  s 
• oeT  iNTeoeR  data  ficlo  from  unit  s 
a print/count/loo  'uarnino*  oiaoncstic  MCSSAoe 


excepTioNS 


I.  speciFiCATiONS  ouTsioe  thc  follomino  RANoes  ARe  RejecTco  and  oeNCRAre 

'WARNINO*  OlAONOSriCS: 

1 <•  lsat  • <•  s 

e.  AN  eXTRA  SPeCIFICATION  OCNeRATCS  A 'UARNINO'  DIAGNOSTIC. 


GLOBAL  oeCLARATIONS 


iNCLuoe 

komxqt.l 

1ST 

a 

COMMON 

INCLUDE 

XOMNeR.L 

1ST 

a 

COMMON 

INCLUDE 

nulcst.l 

1ST 

a 

OEF  1 NE 

C 

C 

C LOCAL  OeCLARATIONS 

C 

C 

iNTeocR  jsceNeisi 


PROGRAM  CxeCUTtON  SUirCMCS. 
CRTS  SCCNC  PARAMCrCRS 
NULL  CHARACTCR  STRING 


COUNTERS 


j' 


*•  Ik-' 


H-l  On 


OAH  ^ACKAOC  APPCNOIX  N 
COHNANO  ROUriNCS 


KNoter 

00« 


iNreocM  iNTCNP  • rcHP 

e 

c 

e PRoeeouRC 

c 

c 

CALL  ritAce 

c 

e 

c ecr  8CCNC  numbcr 
c 

JSCCNC  CM-*  NUL  ‘ 

CALL  OerSKMC JSCCNe. ( I I I . NULCSTI 

ip( jsccNei n .CQ. * nul’i  oo  to  soo 
c 
c 

c oecooe  prc-janto  sccnc  nuhbcr  cs  oioits  for  days  since  launch) 
c 

oecooec to. ns. jsceNE.eRR>i<*o>  nerts 
Its  rORHATt It . 13. 16) 

NCRTS(3)«-NERrsi3) 

00  TO  200 

c 

c 

C OECOOE  P0ST-JAN78  SCENE  NUMBER  (•»  OIOITS  FOR  DAYS  SINCE  LAUNCH) 

c 

tHO  OECOOE! 1 1 . IHS. JSCENE.ERR-180)  NERTS 
l•»S  FORMAT!  1 1 . It.  16) 

NERTS!3)>>NERTS!3) 

00  TO  200 

180  CALL  HARMS!  ’BAD  SCENE  NUMBCR  ••') 

C 

c 

C OCT  optional  SAMPLCS/SCCNE  ITCMPORARY  for  compatibility  MITH  PRE-  7912  SYNTAX) 
c 

200  INTEMP--9999 

CALL  OCTSIN! INTEMP.  700 . 7000 .* BAD  SAMPLES/ SCENE  ••') 

IF! INTEMP. NE. *9999)  NCRSAM- I NTEMP 
IF!NCRSAM.LT.900)  NCRSAM*NERSAM*t 
IF! INTEMP. NC. -9999)  CALL  MONOTC! 

• C8StlN!NERSAM.S) . • SAMPLES  PER  SCENE’) 

CALL  OETSIN! lOUMMY.  *1.-1. ’EXTRA  SCENE  SPECIFICATION  --’) 

c 

c 

C CONFIRM  SCENE  NUMBCR 
C 

300  IFIMCFIRM.NE.O)  HRITC(8.2SS)  NERTS 
2SS  FORMAT!’  SCENE.  ’ . I I . Jt . ’ - ’ . JS) 

IF!NCRTS!3) .LT.O)  CALL  MOHARN! 

• ‘ADJUSTMENT  HILL  NOT  INCLUDE  NON-LINEAR  CORRECTIONS’) 

C 

C 

c normal  return 

C 

KOMO>* 

RETURN 


M-tOS 


oooooooooooooooooooooooooooooooooooooooooooooo 


HltrORY 


C H tCNLOtSCR 
H A ron^KiNS 


LCC  09/l0/7t  OMIOINAL  COOC 

LCnteO  09/f7/t0  U^ONAOC  OOCUNCNTAriON 


nerNOO 


CNCCK  roR  valid  channcl  and  vCRirr  rHAr  thc  inrut  axis  it 

A tAHRLC  AXIS.  UROATC  SHARPeNiNO  PIcreR  COCPPICNrs  PRON  UNIT 
9.  IP  SRCCIPieO.  AND  CONPIRH. 


NACMlNC-OeRCNOCNr  COOC 


ALIONNCNT  OP  SCALCO  INrCOCRt  ASSURCt  36>RIT  CONRurPR  WORD- 


CXrCRNAL  RePCRCNCCt 


oergiN  a ocr  iNreocR  data  piclo  proh  unit  s 

oergKH  a ocr  CHARAcrcR  strino  data  piclo  proh  unit  s 

ocrsRL  a ocr  rcal  data  piclo  proh  unit  s 

HARN9  a OCNCRArC  MARNINO  POR  INVAL lO/NISSiNO  PICLO  PROH  UNir  9 


cxccprioNt 


I.  CPCCiPiCArioNt  oursioc  rne  pollouino  ranocs  arc  Rcjccreo  ano  ocncratc 
'WARNINO*  OlAONOSriCSi 

-0.1  <•  itr  cocpPiciCNT  <-  o.j 
•0.0  <•  ONO  cocpptciCNr  <•  o.s 
I <•  CNANNCL  NUH9CR  <•  NCRCHA 

a.  ANY  AXIS  iNRur  ro  oc  sharrcnco  orMCR  than  a sahrlc  axis 

OCNCRArCS  A ‘MARNINO’  OIAONOSTIC. 


OL09AL  OCCLARAriONt 


INCLUOC  KOHXOr.Lltr 
INCLUOC  KONNCR.LItr 
INCLUOC  KONIRr.LISr 
INCLUOC  NULCSr.LISr 


a cohnon  rrooran  exccurioN  SHircNCS.  countcrs 
a cohnon  CRTS  SCCNC  PARAHCrCRt 

a COHNON  IRRaOIANCC  rRANSPORH  rypc  | COCPPICICNrs 
a ocr INC  null  CHARACrCR  strino 
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OAN  ^ACKAOC  AMCNOIX  H 
eONNANd  MOUriNCt 


KMOtNA 

oot 


e 

C LOCAL  OCCLARATtONt 
C 

e 

INTCOCR  NOCN 
INrcOCR  NCOC 
INTCOCR  NtCHAN 

RCAL  trcocrts.ti 


e fMioccounc 


CALL  TRACC 


$ NUNKO  ONAROCNINO  CMANNCL 

• NUNocii  or  cocrnciCRTt 

• CHANNCL  ro  oc  ONAOrCNCO 

• rcNR  trooAOC  roo  cocrrictCNrt  as  rcal  nunocoo 


c 

e 

c ocmtcvc  euROCNT  coerrtciCNr<t 
c 


00  too  NfCH«l .NCRCHA 
00  tio  NCoe«t .t 

1 1 0 0 rcocf  ( NtCN . NC oe  I >rL 0 A r ( I iitr  i c c noch . nc oe  1 1 / x . • • 1 1 
tiO  eONTINUC 


e 

c 

c ;>rr/CHecK  cmanncl  nuhscr  ro  oe  SHAnrcNCO 
c 

NOCNAN«’NONC* 

CALL  OerOININtCHAN.  t .NCRCH*. *OAO  CHANNCL  NUNOCR 
ircNSCHAN.eo. 'NONC* I 00  ro  too  a nonc  invalid 
e 
e 

c ocr/CHCCK  AXIS  ro  oe  SHAxreNeo 
e 

ircHr«'NONC* 

CALL  ocroKHf  irenr.isi.  NuLCtn 

in  I rcNO.eo. *tAN‘ I oo  ro  hoo  a only  tHARrcNiNO  or  sahalc  axis  surroRTco 

CALL  HANNSt  ’OAO  SHAMCNINO  AXIS 

00  ro  iso 
c 
c 

c oer/CHecK/coNriRN  coerriciCNrs 
c 


•»oo  CALL  oersRLitrcoeriNicMAN. n . t..•o.l.•o.l.’■AO  coerriciCNr 

1 Rsr 1 i I NSCNAN . 1 1 > trcoc r ( NSCHAN , 1 1 • e . • • I e 

CALL  oersRLfsrcoercNtCHAN.xi . l..•o.o.*o.o.‘*SAo  coerrictCNr 

iRsriciNSCHAN.f  I •srcoenNSCHAN.xi*s.  ••  IX 

iriNcriRN.NC. o>  UNI  re (0. SCSI  nschan. isrcoeriNSCHAN.NCoci .NCoe*t .x> 
sxsroRNArc  smarrcnino.  •.ii.*.  sahrlc.  *.r7.i».*.  •.r7.vi 
00  ro  000 
c 
c 

C CONriRN  ALL  SHARRCNINO  riLrcR  cocmciCNrs 

c 

090  iriNcriRH.eo.oi  oo  ro  ooo 

00  000  NSCHAN* I .NCRCNA 

UR I re ( 0 . 9X9 1 NSCHAN . I srcoer I nschan . ncoc  > . nc oc • i . x i 


H'lOS 


DMI  PACKAOC  AMCNOIX  N 

CONHANO  nouriNtt 


KHOfNA 

001 


oeo  eoNnwfC 
c 
e 

e NONHAi.  OCruMN 

e 

000  KOno«* 
NCfURH 
CKO 


e*N  PACKAOC  AmNOU  N 

eemiAiio  noun  net 


KIIMK 

Ml 


•UMttUrtNff  KNOfltt  A OCr/CNffCK  tCCNC  tlZC  IN  MAN  COONOINATCt 
U KONOI  • 1 1 riNtr  3 CNAM  OT  MNNANO  tli  MACCt 


NltrONY 


C N tCNtOttCN  ICC 


It/tA/Yt  NONTt/OCitON/COOC 


NCTNOO 


UNOATC  UCNC  Size  MON  UNIT  S.  IF  SNCCiriCO.  AND  CONTINN. 


NACNINC-OCNCNOCNT  cooc 


CXrCNNAk  NCrCACNCCt 


OerSKN  A ocr  CMANACreil  STNINO  oata  ficlo  taon  unit  s 
ecrsiN  A ocr  intcocr  data  ricko  roon  unit  a 

MANNS  A OCNCNArC  MANN I NO  FON  iNVAk lO/NI SSINO  FICLO  FNON  UNIT  S 

NOMANN  A FAlNt/COUNT/kOO  ‘MANNINO*  OlAONOSTIC  NCSSAOC 


CXCCFriONS 


I.  THC  FOkkOHiNO  eoNoirioNt  ocncnatc  ‘HANNtNo*  oiAONOsriesi 

MAlNI  SFCCIFiCATION  NISSINO  ON  NltSFCLLCO 

A.  SFCCiFICAriONS  OUTStOC  ThC  FQLLOUINO  NANOCS  arc  RCJCCrcO  AND  OCnCRATC 
'HARNINO*  OUONOSnCSi 

AOOO  <•  SCAN  kINCS  <>  **000 
(000  <•  SCAN  SANRLCS  <•  «000 

3.  AN  CXTRA  MeCIFICATION  OCNCRArCS  A ‘UARNiNO*  OtAONOSnC. 


OkOOAk  OCCkARATIONS 


iNCkuoc  KONxor.kisr 
INCkUOC  KOMNCR.ktSr 
iNCkUOC  NUkCSr.klST 

c 

c 

e kocu  occkARArioNs 
c 


A CONHON  RROORAN  CxCCurtON  SuircHCS.  countcns 
A COHNON  CRTS  SCCNC  RARANCTCRS 
A OCFINC  NUkk  CMARACrCR  STRtNO 


M-lll 
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ICNOSIZ 

ooa 


c 

tHTCOCR  NOSAVe  A SAVC  AREA  POR  CONfCNrS  OP  NOTQTL  ON  ENTRY 

INTEGER  KMTENP  A TENPORARV 

C 

c 

C PROCEDURE 

C 

C 

c 

CALL  trace 
C 

c 

C OET/CMECK  SCAN  ( OSPC -AOJUSTED>  COORDINATES 
C 

NOSAVE«NOTOTL 
KHTENP«*  NUL* 

CALL  OETSKHCKHTEHP. ( 31 . NULCSTI 

IPIKHTEHP.EQ.  ’ NUL’ I 00  TO  **00  A NO  SPECS  -•  CONPIRN 

IPIKHTEHP.NE. ‘SCA* I CALL  WARNS!  'COORDINATE  SYSTEM  NOT  SCAN  -•*> 
IPtXHTEMP.NE. 'SCA' I GO  TO  fOO 

CALL  0ET5INCNERLIN.  EOOO . ‘4000 . ’ «BAO  L I NES  --‘I 

CALL  OETSiNf  NERSAH.  8000  . >»000  . * «8a0  SAMPLES  — ') 

CALL  OETSINCKHTEMP.  * t I EXTRA.  S I ZE  SPECIPICATION  --'I 

c 

c 

C CONPIRN  SIZE  COORDINATES 
C 

<»00  IPIHCPIRN.NE.Ot  URirE(6.<»<4S1  NERL I N.  NERSAN 
<*<»S  PORNATl  ' SIZE.  SCAN.  ’.IS.’.’.ISI 
C 
C 

C NDRHAL  return 
C 

900  KOHOo’ 

RETURN 

END 


OAN  PACKAOe  AHPCNOIX  H 
COHHANO  ROUriNCS 


KHOS#A 

001 


( 


SUOOOUrtNC  KNOSOAt  0 Oer/CNCCK/INSCRr  HINOOU  SPACING 
U KONO)  • It  FIRST  3 CHARS  OF  COHHANO  Ot  SPACCS 


e 

c 

c 


c 

history 

c 

c 

E 

H 

SCHLOSSER 

LEC 

OI/OS/73 

NUMERIC  OPTION 

c 

E 

H 

SCHLOSSER 

LEC 

ie/I3/75 

ALPHANUMERIC  COMMAND 

c 

E 

H 

SCHLOSSER 

LEC 

07/31 /70 

DELETE  RETURN  K 

c 

E 

H 

SCHLOSSER 

LEC 

oe/io/79 

REVISE  GETS..  CALLS 

c 

0 

A 

BECK 

LEC 

09/ IB/79 

REAL  SPACING  STORED  AS 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ncthod 


OCT  THC  LINE  AND  SAMPLE  SPACING  AS  REAL  VALUES. 
HULTIPLV  BY  100.  ANO  CONVERT  TO  INTEOERS  ANO  STORE 
IN  THE  SCANNER  OUTPUT  HINOOU.  CONFIRM  IF  ON. 


MACHINE -OEPENOENT  COOE 


NONE. 


EXTERNAL  REFERENCES 


I 


« 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


OETSFR 

OETSIN 


EXCEPTIONS 


a OET  INTEFER/REAL/FRACTION  FROM  UNIT  s 

8 OET  inteoer  data  fielo  from  unit  s 


I.  ANY  SPACING  specification  LESS  THAN  0.3  OR  GREATER 
THAN  SO  OR  NOT  NUMERIC  GENERATES  A WARNING  ANO  DOES 

NOT  change  the  Current  spacing. 

S.  ANY  extra  specification  generates  a warning. 


GLOBAL  declarations 


INCLUDE  KOMXQT.LlSr 
include  KOMOUU.LIST 
include  uinoef.list 
c 
c 

c local  declarations 

C 


a COMMON  PRCCRAM  EXECUTION  SWITCHES, 
a COMMON  OUTPUT  WINDOW  PACKERS 
a DEFINE  structure  OF  WINDOW  PACKETS 


COUNTERS 
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OAN  PACKAGE  APPEND  IX  H 

connANO  ROuriNES 


PEAL  SPLIOO 
NEAL  SPStOO 
INTEOER  ILINSP 
INVEOER  ISANSP 


• LINE  SPACING  • lOG 

• SANPLE  SPACING  • I GO 

• LINE  SPACING 

• SANPLE  SPACING 


C 

c 

c 

c 

c 

c 

c 

c 

c 


PROCEDURE 


CALL  trace 


GET  LINE  AND  SAMPLE  SPACING  SPECS 

SPLIOO*NSAOHMiMLlN.MSPIOOi 
SPSI O0-NSAOUW( WSAN. MSP  I 00  > 

CALL  OETSPRt SPLIOO. 

• 100. .19.99. POOO. 01 . ’GAO  LINL  SPACING  --’I 
CALL  OETSPiTCSPSIOO. 

• too. . 19.99. SOOO. 01 . ’BAO  SANPLE  SPACING  -•’> 
NSAOUHlMLIN.USPIOOl-SPLtOO*O.S 
HSAOHU(MSAN.USPIOOI-SPStOO»O.S 

KS YOUU (USPIOOI-’SCA* 


PLUSH  RENAININO  SPECS 
CALL  OETSINt tOUNNY. 

« *1.-1. ’Extra  spacing  specification  --*i 


c 

c 

C CONFIRM  SPACING  FOR  LINE  AND  SAMPLE 
C 

IFINCFIRM.EQ.OI  00  TO  800 

I F(( SPLIOO/ 10'  .EQ. AiNTtSPL 100/ 100. >« .AND. 

A fSPSlOO/ too. .EQ.AINTCSPSIOO/ too. ) I ) GO  TO  500 


C 

C 

C 

C 


CONFIRM  REAL (SI 


SPACING 


URITE(6.<*00l  SPLIOO. SPSlOO 

HOO  FORMATI*  SPACING.  ’.-2P.FS.8.’  LINES.  ’.FS.G.’  SANPLESl 
00  TO  800 
C 
C 

C CONFIRM  INTEGERS  SPACING 
C 


SOO  ILINSP-SPLIOO/ 100. 

ISAMSP-SPSlOO/ 100. 

MRITEIS.SOQI  IL INSP. ISAMSP 
600  FORNATI’  SPACING.  ’.19.’  LINES.  ’.19.'  SAMPLES’) 

e 

c 

C CLEAR  the  COMMAND 
C 


u 

KNOSPA 

008 


N-l  l«» 


H 


OAH  PACKAOC  APKNOIX  N 
CONHANO  ROUriNCS 


•00  KOHO-* 

C 

c 

C RCTURN  ro  CALL! NO  ftOUMNC 
C 

900  RCTUNN 
FNO 


KHOO^A 

OOS 


DAN  PACKAOC  APPENDIX  H 
eONNANO  ROUTINES 


KNOSVN 

001 


tUSROUriNE  KNOSYNt  • OET/CMECK  UINOOH  SYNBOLS 
U KONOt  0 li  PIRST  3 CHARS  OF  COHNANO  Oi  SPACES 

C 

C 

c 

c history 

c 

c 


c 

E 

H 

SCHLOSSER 

LEC 

OS/BI /73 

NUHERIC  OPTION 

c 

e 

H 

SCHLOSSER 

LEC 

IB/09/7S 

ALPHANUMERIC 

COHNANO 

e 

E 

H 

SCHLOSSER 

LEC 

07/ IB/7B 

delete  RETURN 

K 

c 

E 

H 

SCHLOSSER 

LEC 

OB/Bt /79 

REVISE  GETS.. 

CALLS 

c 

E 

H 

SCHLOSSER 

LEC 

1 I/BB/79 

REMOVE  UNI  VAC 

FLO  FUNCTION 

c 

c 

C NETHOO 

C 

C 

C OET,  CHECK.  INTERPOLATE  IF  NECESSARY.  ANO  STORE  THE 

C SYMBOL  CHARACTER  STRINOS  FOR  LINE-PRINTER  NAPS  IN  CHARACTERS  I 

C THRU  H OF  the  KSYH  ARRAY  ELEMENTS. 

C 

C 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


hachine-oepenoent  code 


NONE. 


external  references 


oetskh 

OETSIN 

UARNS 

UN0ET5 

noharn 

Movcsr 


INTEOER  LENCST 
INTEGER  ICE 


OET  CHARACTER  STRING  DATA  FIELD  FROM  UNIT  5 
OET  INTEOER  DATA  FIELD  FROM  UNIT  S 

GENERATE  HARNINO  FOR  I NVAL 1 0/ HI SS I NO  FIELD  FROM  UNIT  5 
BACK  UP  ONE  data  field  ON  UNIT  S 
PRINT/COUNT/LOO  ‘HARNINO*  DIAGNOSTIC  MESSAGE 
MOVE  CHARACTER  STRING 

a length  of  CHARACTER  STRING 
a INTEGER  CHARACTER  EQUIVALENT 


EXCEPTIONS 

I.  MAXIMUM  NUMBER  FOR  UHICH  A SYMBOL  MAY  BE  DEFINED  IS  ISYMHI. 

B.  SYMBOLS  LONGER  THAN  CHARACTERS  ARE  TRUNCATED  TD  •*  CHARACTERS. 
3.  AN  extra  SPECIFICATION  GENERATES  A ‘WARNING'  DIAGNOSTIC. 

GLOBAL  declarations 


INCLUDE  KOMXQT.LIST  a COMMON  PROGRAM  EXECUTION  SWITCHES.  COUNTERS 


M-1 17 
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eONHANO  ROUTINCS 


ooe 


INCLUOe  KOnSYH.LISr  • CMNON  SVHBOL  TAtLC 

iNCLuoe  Nui.csr.Ltsr  • ocpinc  null  CHARAcreR  srRiNo 

iNCLuoe  HAXiNr.Lisr  a ocpinc  naxihuh  iNrcocR 

c 
e 

C LOCAL  OCCLARAriONS 

C — 

C 

INrCOCR  NOSAVC  • rCNPORARY  SAVC  POR  CONYCNrs  OP  NOYOYL  ON  CNYRY 

INYCOCR  NINSYH.NAXSYH  a NINIHUN.  HAXINUH  SYH80L 

INYCOCR  LCNSYN  a LCNOYH  OP  SYHBOL 

iNreoCR  NUN  a nuhscr  irao/ocnsi ty/count/class.cyc. i por  syhbol 

INTCOCR  HINNUH.HAXNUH  a HINtHUH.  NAXIHUH  NUNBCR 

INTCOCR  KH3SYH.KHHSYH  a 3RO  t <*TH  SPCCS  AS  CHARACTCR  STRINGS 

INTeOCR  IN3NUH.  IN>»NUH  a 3RD  A HTH  SPCCS  AS  NUHBCRS 

RCAL  SYINUH  a SYHBOLS  PCR  NUHBCR  (POR  I NTCRPOL AT t ON) 

C 

c 

C PROCCOURC 

C 

C 

CALL  TRACC 
C 
C 

C INITIALIZC 
C 

NOSAVe-NOTOTL 

C 

c 

c OCT  optional  hinihuh  Syhbol  (Charactcr  string)  proh  ist  spcc  piclo 
c 

HINSYH**  NUL* 

CALL  OCrSKHIHiNSYH. 14) . NULCST) 

IFIHINSYN.CQ. * NUL')  00  TO  BSD  a NO  SPCCS 
tPt (HINSYN.CQ. * : ' ) .OR.  a RCSCRVCO  POR  'NO  DATA' 

t (HINSYH.CO. '«').0R.  a RCSCRVCO  POR  PRIHARY  TICKS 

a (HINSYN.CQ. *»') ) a RCSCRVCO  por  SCCONOARY  ticks 

a CALL  UARNS(  'BAO  PIRST  SYHBOL  --') 

C 

c 

C OCT  RCQUIRCO  HINIHUH  NUHBCR  (iNTCOCR)  PROH  2N0  SPCC  PtCL'O 

c 

NlNNUH«HAXl,NT 

CALL  OCTSINIHINNUH.  0. ISYHHI . ' «BA0  PIRST  NUHBCR  ••') 

C 

C 

C INITIALIZC  INPLICIT  NAXIHUH  SYHBOL  ANO  NUHBCR 
C 

HAXSYH*HINSYN 

HAXNUH>NINNUH 

C 

C 

C OCT  THIRO  SPCC  PICLO  AS  BOTH  CHARACTCR  STRINO  a NUHBCR 
C 

KH3SYH*'  NUL* 

IN3NUH««999 
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KHOSrn 

001 


CALL  OCrSKHIKHSSYH.  (•»»  . NULCtn 
CALL  UNOCrS 

CALL  OerSINdNSNUn.  o.isynhi.nulcsti 

c 

c 

c oer  fourth  spcc  piclo  as  both  cmaractcr  strino  a nurber 
c 

KMHSYH-*  NUL* 

INHNUN*-999 

CALL  OerSKHCKHHSYN.  (**>  . NULCSTt 
CALL  UNOerS 

CALL  OerSIN(IN«»NUH.  0 . I SYHHI . NULCSTI 
C 
C 

C ASS I ON  EXPLICIT  MAX  I HUH  STHBOL  ANO  NUHBER 
C 

iriKH*»SVn.EQ.  ’ NUL*  I 00  TO  lEO 
HAXSVN«KH3SYH 
HAXNUH*IN*»NUH 
00  TO  l<»0 

IBO  IP(KH3SVH.NE. ' NUL* I HAXNUH*IN3NUN 

I NO  continue 

C 

C 

C CHECK  NAXINUN  SYMBOL  ANO  NUMBER 
C 

in (HAXSYH.EQ. * : * I .OR.  3 RESERVED  FOR  * NO  DATA* 

A (HAXSYH.EQ. *<*> .OR.  A RESERVED  FOR  PRIMARY  TICKS 

A (HAXSYH.EQ. *»* n A RESERVED  FOR  SECONDARY  TICKS 

A CALL  HOHARN(  *BAO  SECOND  SYMBOL*! 

IF(HAXNUH.LT.O)  call  houarni  *bao  second  number*! 
c 
c 

C COMPUTE  SYMBOLS  PER  NUMBER 
C 

HAXNUM>HlNO (MAXNUH. I SYMHl ! 

SYINUM«FLOAT( tCE(NAXSYMI • I CE ( Ml NSYM! * 1 ! / 

A FLOAT(MAXNUM-HlNNUM*l ! 

IF(ABS(SYINUM!  .OT.  I . ! CALL  MOMARNC 
■ *M0RE  than  I SYMBOL  PER  NUMBER*! 

C 

c 

C CHECK  FOR  EXTRA  SPEC  FIELDS  A FOR  OIAONOSTICS 
C 

CALL  OETSIN( INNNUH.  »i. -I. ‘EXTRA  SYMBOL  SPECIFICATION  ••*! 
IFINOSAVE.NE.NDTOTL!  OO  to  900 
C 
C 

C LOAD  SYMBOLS  (CHARACTER  STPINOS!  INTO  SYMBOL  PART  (CHARS  t-N!  OF  SYMBOL  TABLE 
C 

ROUND«SION( lE-B.SYINUM! 

00  300  Nt'M*HINNUM. MAXNUH 

CALL  PUTICE(KSYH(NUH»1 ! . ( I ! . A INTERPOLATE  FIRST  CHARACTER 

• ICEIMINSYH! *IFIX(FLOAT (NUM'MI NNUM! • S Y I NUM »ROUNO ! ! 

CALL  N0VCST(KSYH(NUM*I ! . (S!  . ( 31  . 

• MINSYH. (B! . (3!  . * *!  A REPLICATE  NEXT  3 CHARS 


N>II9 


noon 
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300  CONTINUC 


KNOtVH 

00« 


CONriNH  SVHeOLS 

irfNCriRH.CQ.OI  00  TO  900 

LCNOYnaLCNCSriHINSYn.m 
CALL  NOVCSriNiNSYN.  IHI  . I •<*l . 

> NINSYN. (LCNSYNI . C *LeNSYHI . * *•  0 RIOHT  JUSTIFY 

LCNtYN-LCNCSr  ( HAXSYN . •»  I 
CALL  NOVCSriHAXSYH.  (•»!.( -HI  . 

• NAXSYH. ILCNSYNI . I -LCNSYNI . ' *i  0 RIOMT  JUSTIFY 

UN I TC ( 6 . 309 1 N I NS YN . H I NNUH .HAXSYN . NA  XNUN 
SOS  FONNAM*  SYNBOLS.  * .ah.  * . * . JS.  * . *.AH.’.*.j3I 

00  TO  900 
C 
C 

C NO  SYNSOLS  SPCCIFICO  --  CONFIRN  ALL  SYNBOLS 
C 

eso  IFCHCFIRH.NC.OI  CALL  ALLSYN 
C 
C 

C NORHAL  RCTURN 
C 

900  KONO*’ 

RCTURN 

C 

C 

e 

c 

c 

c 

c INTCRNAL 

SUBROUTINC  ALLSYN  • CONFIRN  ALL  CURRCNT  SYNBOLS 
C 

INTCOCR  NxrSYN  • NCXT  SYMBOL 
C 

NINNUH>0 

CALL  NOVCSTfHlNSYN. ( n . (61 . KSVN (t I . ( I ) . ( H I . ' ‘I 
00  000  HAXNUM-0. ISVNHl 

CALL  HOVCSTINXTSYN.  ( t I . (SI  . KSYN(HAXNUn*0)  . I II  . (>*l  . ' ‘I 
IFINXTSYN. CO. NINSYN)  00  TO  000  0 NCXT  $YN  SANC  AS  CURRCNT 

IF(HlN8YN.CQ. * liaa* I NlNSYN«'7*  a UNOCriNCO  SYNBOL 

LCNSYN«LCNCST( NINSYN. HI 
CALL  H0VCST(N|NSVM. (HI  . I -HI  . 

> NINSYN, (LCNSYNI .( -LCNSYNI . ' 'I  a RIOHT  JUSTIFY 

IFININNUH.CQ.NAXNUNI 

a WRITCIB.IHSI  NINSYN.NINNUN 

IH9  FORNATI*  SYNBOLS.  ’.AH.'.'.JSI 

IF(NINNUN.NC.HAXNUNI 

a URirC(6.l6SI  NINSYN. NINNUN.NAXNUN 

IBS  FORNATC  SYNBOLS.  ‘ . AH . • . • . J3.  ’ . ' . J3 1 

NINNUN«HAXNUH»I 
NINSYNoNXTSVN 
OOO  CONTINUC 
RCTURN 


N-lOO 


CJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


DAN  •«CKA0C  AAPCNOIK  H 
eonrs'.KO  MOuriNCS 


KHOTAI 

001 


OUMOUTINC  KHOTAOI  0 TAtULArC  PRCQUCNCY  Of  DATA  IN  ANCVlOUt  UINOOM 

u KONOt  • It  rmtr  s chaao  op  connano  ot  opaccs 

e MitroRY 

e C H tCNLOOSCO  LCC  Ofl/tO/YA  OMIOINAL  COOC 

C C H SCNLOttCO  LCnOCO  00/(0/00  CNO  NAHC  PNOn  01  or AO  A AOO  COL /I NY 

HCTHOO 


TAOULATC  Or  RAOIANCC.  OCNOITV.  CLASO.  OmOOL . COLON.  ON  iNTCNOirr. 


HACMlNC-OCNCNOCNr  COOC 


AOOUNCO  AT  LCAOr  0 CHANACTENO  PEN  KOYN  ELEMENT . 


external  REPENENCEO 


NONOTE 

HOCLNH 

lOENT 

Novcor 

OETICE 

cotrin 

KOLNHi 


• RNINT/COUNT/LOO  ‘NOTE*  OIAONOOTIC  NEOSAOE 
a CLEAN  ’UANNlNO*  OlAONOOTtCS 
a lOCNTIPY  ENTO  SCENE 
a HOVE  CHANACTEN  STRINO 
a OET  INTEOER'CHANACrER'EQUI VALENT 

a character  stnino  pon  inteoer 

a COLON  name  IOTRINOI  PON  INTEOEN'COLOR'EQUI valent 


EXCEPT  I ONO 

I.  the  POLLOUINO  conditions  OENERATC  ‘UARNlNO*  OIAONOSTICS: 

COLON  ON  INT  SPEC.  OUT  COLOR  NODE  SWITCH  (MCOLOR  IN  kOHXQT)  NOT  ON 

(.  AN  EXTRA  SPECIPICAT ION  OENERATES  A 'WARNINO'  OIAONOSTIC. 


OLOOAL  OCCLARATIONS 


INCLUDE  KONXQT.lIST 
INCLUDE  KONnER.LIST 
INCLUDE  KOHKLS.LIST 
INCLUDE  KONSVN.LISr 
INCLUDE  KONTOL.LIST 
INCLUDE  NULCST.LIST 
INCLUDE  NAXINT.LIST 


a connon 
a connon 
a connon 

a CONNON 
a COMMON 
a OEPINE 
a OEPINE 


PROORAH  EXECUTION  SWITCHES. 

ERTS  PARAMETERS 

ClASSIPICATION  INPO 

SVNOOL  TAOLE 

MULTI •RURPOSE  TaOLE 

NULL  character  stnino 

MAX  NUN  inteoer 


COUNTERS 


N>t(( 


0AM  MACKAOC  AfMCNOtX  H 
eOHNANO  ROUT  INC S 


krotao 

OOt 


e 

c 

e 


local  OCCLARAriONt 


INTCOCR  INTCIW 
INTCOCR  KTITYR 
INTCOCR  NfYTTR 


INTCOCR  NLCtVT 
OOURLC  RRCCItlON 
OOUilC  MCCItlON 
INTCOCR  NINRAO 
INTCOCR  HAXRAO 
INTCOCR  KTROURiei 


MOCCOURC 


• TCNRORARV 

« TAOULATION  TVRC  IX  CNARti 
■ NUNOCR  or  tTMOOL  TYRri 

I • CNARACTCR  XTRINO  XYNOOL 
t • iNTCNttTY  tYNOOL 
X • COLOR  XYNtOL 

A NUNOCR  or  LINIT  CHANNCL  TON  SYNOOL  TYRC 
HINCYNIXI  • CURRCNT  XYNtOLi  HC  CNARX  X X TyRCSI 

NCXSYHIX*  • NCXT  XYHOOLS  MC  CH*R$  X X TYRCSI 

A HININUN  RAOIANCC  TOR  CURRCNT  SYNOOL 
A NAXINUN  RAO/CLA/OCN  rOR  CURRCNT  SYNOOL 
.KCRTOTIOI  a rRCO  SUO'IOTALS.  totals 


CALL  TRaCC 


C 

C 

C CHCCK  ir  KONTOL  LOAOCO  WITH  rRCOUCNCY  INCO 
C 

in (KLSTYR.eO.Ot .OR.  A NO  CLASS  TYRC  roOH  RRCVtOUS  OISRLAT 
A IKTOLTY.NC. ‘rRCO' I I A NO  rRCOUCNCY  TAOLCS  LOAOCO  rRON  RRCVIOUS  oisrlay 
A CALL  NOUARNI  ‘NO  RRCVIOUS  UlNOOW  TO  TAOULATC‘1 
C 
C 

C OCT^CMCCK  taoulatc  tyrc 

c 

ktotyr«‘Syn‘  a oerAULT  is  taoulation  or  charactcr  atrino  synsola 
nsytyr*naxint  a not  yct  ocriNCO 

CALL  OCTSKHIKTOTYR. (XI . NULCATI 
iriKTOTYR.eO.KLATYRi  NAVTyp>] 
inXTOTYR.CO.  ‘AYN‘ » NAYTVR»| 

ir  MNCOLOR.  NC.OI  . AND.  IKTOTYR.CQ.  ‘ INT  ‘ I t NAYTVR«e 
in  INCOLOR. NC. 01  . ANO. IKTOTYR.CQ.  ‘COL ' I > NAVTYR>3 
NLCAYT.J 

iriNAYTYR.CO. 31  NLCAVT«A 

iriNSYTYR.CO.NAXINTI  CALL  NARNSl  ‘OAO  TaOULATC  TYRC  ••‘I 

c 

c 

c drain  arcca  roR  currcnt  clhhano 

c 


CALL  OCTSINI ITCHR.  •I.*! 


C 

e 

C CHCCK  roR  OIAONOATICA 

c 

iriNOATAC. NC.OI  00  TO  000 
iriNOTOTL. NC.OI  00  TO  000 


c 

C 


‘CXTRA  taoulatc  ARCCinCATION 


A OATa/CMCCKOUT  NOOC 


N'lCX 


0AM  ••ACKAOC  AMMCNOU  H 

eoNNANO  nouriNCt 


KNOT AO 
001 


e uoc  ootviouo  minooh  numocn  roN  maoc  ncaoino 
e 

NNrCW>«NMM>OM  0 OAVC  CURACNT  Ml NOON  NUNOCO 
NNNOON«Kroi.NH  • HI  NOON  NUNOCO  fOON  rOCQUCNCT  TAOLCO 

e 

e 

e 001 NT  OAOC/NINOOH  NCAOINOt 

e 

NOirClO.IOSI  NHNOON.NTCOAi 

too  reoNATf*  HiNooN  NUNOCO  ’.ji.ox.*r*ouLArc*.ox.«AOi 
CALL  NOUNI ri*. lot 
NOirCtlO.IOSI  nhnoom.ntcoal 


ocsrooc  CUOOCNT  minooh  NUNOCO 
NHNOON«NMrCNO 


e OOlNr  TAOLC  ncaoinoo 
e 

CALL  tocorioi 
CALL  lOCOrtlOi 
inhsArcH.cQ.oi 

A HOirCtO.ltOt  L INCMINLCtvTl . ILINCMtNI .N*t .ML IHCMI 
HOI  rCM  0.1091  LINCHINLC9YTI  .(LlNCMINI  .N«t  .NLINCHI 
109  roONATI 

A *09VNOOL  OAOIANCC  TOCOUCNCV’/ 

A ' CM*. 10.*  VALUC  '.91*  CM*. ion 

Hoircio.1191 
HoircMO.  119* 

119  roONATIIXI 

e 

e 

C INiriALIlC  lUO-rOTALl.  T0TAL9  A LINIT9 

e 

00  1«»0  N«l.9 

xro9uoiNi«o 
KforortNiao 
1<*0  CONTINUC 

NINCMV»*NAXINr 
NAKCNV«>HAXtNr 
00  100  NvI.NLINCM 

NIN€NV«NIN0IHINCMV.LCVL0(NI I 
NAXCMV*HAXOIMAXCMV.LCVHl IN> ) 

100  CONTINUC 

NINOAO«NINCHV  * 

CALL  N0VC9T  tHIHOVHt  I I . J ! » . ( 1»  . • ‘.(Il.in.*  *• 

..  CALL  NOVCOriNiHOYNI  t I . n»  I . to*  . XfVNIHlNI(AO»l  I . M I . I I ) . * *1 
CAkL  NOvcoriNiNOVNi  1 1 . no* . I li . K9rNintN«A0*n  . *0I . i it . * *t 
CALL  OCTICCMNrCnO.  K9VN(MtHHA0*n  . >91  I 
CALL  e9TW|NIHlN9VN(0*  . < t I . not  . ( I HTCmO  • tl  • t 0 . • 

'*  •'  CALL  OurCNOIH|N9VN'Ot  . 191  . *l*> 

CALL  GCriCCi  INTCNO.  X9VM(NlNNA0*n  . ( On 
CALL  KOLOAI IHIN9VNI |l . InYCNOI 


o o o n 


DAM  MCKAOC  AMCNOIK  H 

eoNiiANO  Hour  i met 


KNOTAt 

00% 


e 

e MINT  rA0ULAnON0 

e 

00  000  NAK0AO*NINCHV.NAXCNV 
00  AlO  Nal.NLlNCN 

KroouoiNt •KroouotNi •KrocatNAxoAO*! .ni 
AlO  CONTINUC 

CAil  Noveort  NCXOYNMI.il  1. 1 II.  ’ *.111.111.’  *1 

CALL  NOVCOriNCXSVNMI.IAI.  101.  KOVNINAXNAO»Ol  . M 1 . 1 1 I . * *1 

CALL  NOVCOriNCXOYNI 1 1 . not . Ill . KtYNtNAXOAO*Cl.ltl.l]t.'  *1 

CALL  OCTieCMNrCNN.  KOVNINAXNAO^tl . 101 1 

CALL  COrAININCXOYNKI  . M I . not  . IlNrCNN*!  I •tO.AI 

CALL  NurCNNINCXOYHItl . ISI . *t‘l 

CALL  ocriecc INTCNN.  KOYNIHAXNAO*Ol.lOII 

CALL  KOIOAI INCXOYNf 31 . InTCNNI 

If  MXrorvP.NC.KLOryNI  .ANO.  • AOONCOAre  TAOULAnONO  OV  OYNOOL 

» INAXNAO.LT.LCYNI 1 1 . ANO.  • NONC  TO  00 

A INCXOrNINOrrYf I .CQ.NINOYNINOrrYf II  I • NCxr  OYNOOl  OANC  AO  TmIO 

A 00  TO  000  A DON’T  fOlNT  CNTNY  fON  YHIO  OYNOOL  YCT 

irilNAXNAO.LT.CCYLOII .ON. I NAXNAO. OT . LCVNI I I I 
A CALL  NOYCOriNlNOYH.M  I HOI.  * ‘.I  II.  Ml.’  *1 

iriNiNNAO.CO.NAXNAOl  00  TO  AAO 
If INOATCN.CO.OI 

A UNITClO.AtOI  HINOVNINOYTyNI .NINNAO. NAXNAO. 

A (KfNOUOINI  .N*t  .NUNCMI 

HNIYCI lO.ACOI  NlNOYHINOYTVf I . NI NNaO . NAXNAO . 

A IKfNOUOINI  .N«l  .NUNCMI 

AOO  fONNATMX.AO.  IX.  JS.  ‘ • ’.JS.OIOI 

00  TO  AOO 
ANO  If INOATCH.CQ.OI 

A HNI YCtO.ANOINlNOYNINOYTrfl .NiNNAO. IKfNtUO<NI .N»l .NL INCMI 

UNirCMO.AAOl  NINOYNINOYTVf  I . .it  NNAO. '< Kf  NOUO ( N I .N*t  .NL  iNfM’ 

ANO  fONHAT  MX.AO.NX.  JS.  lX.SIOI 

NOO  If INCIOYN.lt. Cl  00  TO  000 

00  000  NCMAN«C.NCtOVN  a OVCNNNINT  OYNOOL 0 
CALL  OCTCMNIKMTCNN.  NI NOYN. ( NCMAN*Oi I 
If  (KMTCNN.NC.  * 'I  UNirCMO.NYO'  KHTCNf 
n70  fONNATl '••.SX.AI I 

000  CONTINUC 

000  00  070  N»t .0 

NfNTOT INI •KrNTOr I NI *Xf A$gC<  NI 
KfNfUOINI «0 
070  CONTINUC 

ninnao«naxhao»i 

CALL  NOVCOTININOVN. It  I . I 101 . NCXSVN. I t I . r SOI  . * *> 

e 

000  CONTINUC 


NNINT  TOTALO 

If INOATCN.CO.OI 

A WNITCIO.OIOI  IKfNTOTiNi  .N*t  .NUNCMI 
WNITCMO.OIOI  IKfNTQTINI  .N*l  .NL  INCMI 
010  fONNATl ’OTOTAL  ' . ICX. I7.NI0I 
00  TO  000 


■J..'  • '’J.!  .*■  ’-‘I  • 


N-ICO 


> 


• • A. 


onnooonn  nnoo 


OAK  fACKAOC  APPCNOIX  H 
COnNANO  routincs 


CNCCK  01  AGNOSTIC  COUNrCftS 
800  IPINOUA8N.eQ.O>  30  TO  880 

CALL  HONOret  ’PRCVIOUS  UARNINOS  — NO  TARULATtON  oeNCRATeO* > 
iriH8ArcH.eo.ot  uRiTcto.otst 
8iS  rORHATI*  ...TRY  AOAIN'I 
00  TO  890 

880  iriNOPATL.eo.Ot  00  TO  8S0 

CALL  HONOrec  ‘F'*evtOUS  fatal  CRRORS  --  no  TAOULATION  oeNCRATCO 
00  TO  890 

8S0  tpiHCHecK.eo.O)  ts  boo 

CALL  HONoret  ’CHec<o..r  nooc  ••  no  tabulation  oeNeRATeo'i 


CLCAR  UARNINOS 
890  CALL  HOCLRHI 


RCTURN 

900  K0H0-* 
RtTURN 
CNO 


knotab 

80S 


NULCSri 


r 


OAK  PACKAGE  APPENDIX  H 
COHNANO  ROUriNES 


KNOriC 

OOt 


( 


( 


SUMOUriNE  KNOMCt  • OCr/CMECK  MlNOOU  rtCK  INrCPVALS 
U KONOI  « li  PIRSr  3 CHAPS  OP  CONHANO  Ot  SPACES 


C 

C 

C 


A 

c 

HISTORY 

c 

c 

E 

H 

SCNLOSSER 

LEC 

OS/ia/73 

NUMERIC  OPTION  POR  WINDOW  CENTER 

c 

E 

H 

SCHLOSSER 

LEC 

I8/08/7S 

ALPHANUMERIC  COMMAND  POR  ORIGIN 

C 

E 

H 

SCHLOSSER 

LEC 

07/0I/7B 

DELETE  RETURN  K 

c 

E 

H 

SCHLOSSER 

LEC 

08/89/79 

REVISE  GETS. . CALLS 

c 

E 

H 

SCHLOSSER 

LEC 

18/18/79 

UPORAOE  OOCUMENTATION 

C 

C 

C 

C 

c 

c 

c 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HETHOO 


GET  TICK  coordinate  SVSTEnS  A INTERVALS.  IP  SPECIPIEO.  AND  CONPIRH. 


nachine-oepenocnt  code 


ASSUMES  G CHARACTERS  PER  INTEGER. 

ASSUMES  UORO  starting  WITH  ALPHA  CHARACTER.  WHEN  INTERPRETED  AS  AN 
INTEGER.  IS  POSi TI VEI I 


EXTERNAL  REPERENCES 


SPANS 

GETSKH 

WARNS 

GETSIN 

OET5SX 

GETSRL 


EXCEPTIONS 


a enable  specipications  to  span  cards 

a GET  CHARACTER  STRING  DATA  PIELO  PROM  UNIT  S 
a GENERATE  WARNING  PGR  I NV AL I 0/ M I SS I NO  PIELO  PROM  UNIT  S 
a GET  integer  data  PIELO  PROM  UNIT  S 

a GET  sexagenary  data  pielo  prom  unit  5 
a GET  REAL  data  pielo  PROM  UNIT  S 


I.  THE  POLLOWINO  CONDITIONS  GENERATE  ’WARNING’  OIaONOSTICS: 

COORDINATE  SYSTEM  NOT  SCAINI  OR  0E0IREES1  OR  MINIUTESI  OR  KM 
OR  METIRESt 

E.  SPECIPICATIONS  OUTSIDE  THE  POLLOWINO  RANGES  ARE  REJECTED  AND  GENERATE 
’WARNING’  OIAONOSTICS: 


C 

8 

< • 

LINE 

< • 

3000 

C 

8 

<- 

SAMPLE 

<• 

NOOO 

C 

. 001 

/■ 

LATI ruoE 

<■ 

3. 

e 

. 001 

< • 

LONOI TUOE 

< • 

3. 

c 

IE*8 

<• 

EASTING 

< • 

5E*S  i 

c 

IE»8 

< > 

northing 

< m 

SE»S 

M-IE7 


o o o o o o o o o o o o o o o o o o o o o o o o r>  o 


OAN  AACKAOe  APPCNOIX  N 
COHHANO  ROUriNCS 


KHonc 

008 


c 

c 

c 

c 

c 

c 


3.  AN  extra  SPeCiriCATION  OeNCRATES  A ’UARNINO*  OlAONOSTtC. 


OLOBAL  OeCLARATIONS 


INCLUDE  KONXQT.LlSr 
INCLUDE  KOHIUU.LIST 
INCLUDE  KOHOUM.LISr 
INCLUDE  UINDEP.LIST 
INCLUDE  NULCSr.LlSr 


a COHNON  PROORAN  EXCCUTION  SUITCHES.  COUNTERS 
0 COHNON  INPUT  HI  NOON  PACKETS 
a COHNON  OUTPUT  HI  NOON  PACKETS 
a DEFINE  STRUCTURE  OP  UINOOH  PACKETS 
a DEFINE  NULL  CHARACTER  STRING 


LOCAL  declarations 

REAL  RL TEMPI 31 
INTEOER  JTYPEI3) 

8 TEMPORARY 

a TYPE  OF  TICKS:  ’PRIMARY’  OR  ’SECONDARY 

PROCEDURE 


CALL  TRACE 


INITIALIZE 

CALL  SPANSf  3)  a ALLOU  INPUT  FOR  THIS  COHNANO  TO  SPAN  3 CAROS 

KHO«*TICK. 

jTYPEdI**  PR  IMA’ 

JTYPE(3J»’RY. • 

Noo-uric  a start  hith  primary  ticks 


OET  COORDINATE  SYSTEM 

300  KOROSY«KSYOMM(NOO)  8 USE  OLO  COORDINATE  SYTEM  IF  NONE  SPECIFIED 

CALL  OETSKHIKOROSY. ( 31 . NULCSTI 

I FtKOROSY. OT . 0 I CO  TO  330  8 POSITIVE  WORD  STARTS  UITh  ALPHA  CHARACTER 


IF  SECONDARY  TICKS  HAVE  NO  COORD  SYSTEM  USE  SYSTEM  FROM  PRIMARY  TICKS 


IFINOD.EQ.HTIC)  00  TO  380  8 PRIMARY  TICKS 

K0R0SY>KSY0HH( uTICi 
CALL  UNOETS 


CHECK  COORDINATE  SYSTEM 


330  IFIKOROSY.EQ. ’SCA’l 
IFIKdROSY.EQ. ’OEO’l 
IFIKOROSY.EQ. ’MIN’ ) 
IFIKOROSY.EQ. ’KM  I 
IFIKOROSY.EQ. ’MET ’ ) 


GO 

TO 

300 

00 

TO 

400 

GO 

TO 

410 

00 

TO 

600 

00 

TO 

610 

N-138 


DAH  PACKAOe  APKNOIX  H 
CONHANO  ftOUTlHCS 


»«0  CALL  UAflN5(  *8A0  COOROtNArC  SYSTCN  --*1 
00  TO  000 

c 

c 

C SCANNCft  (LINC-LCNOrH  AOJUSTCOt  COOftOINATeS 

c 

300  CALL  OersiNINSAOMUCML IN.NOOl . 8.3000. '8A0  LINES  --'i 

CALL  OerslN(NSAOMH(USAH.NOOt  . 8.<»000  . ' *8A0  SAMPLES  •>*> 

3N0  IFIHCriRH.NE.Oi  MRI TE ( 6. 3HSI 

A KHO . NSAOUU ( UL 1 N . NOO > . MSAOHU ( HSAM . NOO > . JT  YPE 
3NS  FORMAT UX.A6. * SCAN.  ‘.IH.’  LINES.  '.I4.'  SAMPLES *. 8A6 I 
00  TO  800 
C 
C 

C OEOORAPHtC  COORDINATES 
C 

too  CF-I.  > DEGREES  -•  NO  CONVERSION  NEEDED 

00  TO  tao 

tIO  CF-I./60.  • CONVERT  FROM  MINUTES  TO  DECREES 

•*80  CALL  OETSSXCOEOOWMIHLAT.NOOI  . CP . . 00  I . 3 . . * 8A0  LATITUDE  -•'! 
CALL  OETSSXiOEOOUHCMLON.NOOl . CP . . 00  I . 3 . . * • BAD  LONO I TUOE  -• 
IFIKOROSr.EQ. *MIN* ) 00  TO  tSO 
IFCMCPIRM.EQ.OI  CO  TO  800 

URITE(6.'*>*5)  KMO.OEOOMUIHLAr.NOOl  . CEDOUU  ( UL  ON . NOO  I . JTYPE 
•♦•♦5  PORMATt  IX.A6.  • DEGREES.  *.P7.5.'  LAT.  *.P7.5.*  L0N*.8A61 
00  TO  800 

•*50  RL  TEMPI!  )«GEOOUH(ULAT.NOO>«60. 

RLTEMPiai >OEOOUU( ULON.NOOl *60. 

IPIMCPIRM.NE.O)  URI  TE  (6.**55)  KMO  . RL  i EMP . jT  YPE 
•*55  PO>^NAT(  IX.A6.  • MINUTES.  *.P7.3.*  LAT.  *.P7.3.‘  L0N'.aA6> 

00  TO  800 
C 
C 

c utm  coordinates 

C 

600  CP«IE*3  a CONVERT  PROM  KILOMETRES  TO  METRES 

00  TO  680 

610  cp«t.  a metres  ••  NO  CONVERSION  needed 

680  CALL  OETSRL (UTMOMUIUEA.NOD)  . CP . I E «8 . SE 'S . ‘ BAO  EASTInO  •-*) 
CALL  OETSRL (UTMOUU(MNO.NOO)  . CP , I E >8 . 5E *5 . ‘ • 8A0  NORTHINO 
IP(MCPIRH.NE.O)  URI  TE  I 6. 6^*5) 

I KMO. UTMOUUI UEA . N001  . U T MOUU I UNO . NOO I . JTyPE 
6^*5  P0RMATMX.A8.  • KM.  ’.-SP.PO.S.'  EAST.  '.PB-S.*  NORTH*. 8A6» 

C 

C 

C STORE  coordinate  SYSTEM 
C 

800  KSYOUUI NODI -KOROSY 

IPINOO.NE.UTICI  00  TO  890 

NOO-UTIC*!  a READY  POR  SECONDARY  TICKS 

KMO*'  a DON’T  print  COMMAND  WITH  SECONDARY  TICKS 

JTYPE(I1«’  secon* 

JTYPEI8>»*0ARY  • 

00  TO  800 

890  CALL  OETSINI I TEMP.  *1.-1. ’EXTRA  TICK  SPEC  I P I CA T I ON  --’i 
C 


KHOrtC 

003 


’ I 


M-189 


OAN  PACKAGE  APPENDIX  N 

eoNHANO  routines 


KNOT  I C 
OOP 


c 

C NORMAL  RETURN 
C 

900  KONO>* 
RETURN 
END 


I 


H-130 


ooooooooooooononoooooooooonoooooooooooooooooooooo 


OAH  PACKAOe  APPCNOIX  H 
COHHANO  ROUrtNCS 


knot  I N 
001 


susMOuriNC  KNorim  a print  clock  tinc  o charoc  tinc 
U KONOt  a It  FIRST  3 CHARS  OF  CONNANO  Ot  SPACES 


HISTORY 


e H SCHLOSSCR  LCC 

e H SCHLOSSCR  LEG 


03/02/79  RQNTS/OeSION/COOe 
11/26/79  UPORAOe  OOCUHENTATION 


NETHOO 


OET  TINES  FROM  OPERATING  SYSTEM  A PRINT  THEM. 


machine-oepenoent  code 


UNI  VAC  EXEC-8  EXECUTIVE  REQUESTS. 


EXTERNAL  REFERENCES 


OETSIN 

EROATE 

ERSUPS 

MOVCST 

RL2ISX 


4 OET  INTEOER  data  FIELD  FROM  UNIT  9 
a RETURN  SYSTEM  DATE  A TIME 

a RETURN  ACCUMULATED  SUP  TIME  IN  200  USEC  INCREMENTS 
a MOVE  CHARACTER  STRING 
a INTEOER  sexagenary  array  FROM  REAL 


EXCEPTIONS 


1.  COMMAND  SPECIFICATIONS  ARE  NOT  ALLOWED. 

2.  KOMD  IS  NOT  CHECKED  FOR  VALIDITY. 


GLOBAL  declarations 


NONE  . 


LOCAL  declarations 


INTEOER  IMDY 
INTEOER  IHMS 
INTEOER  IN 
INTEOER  IS 
INTEOER  MS200 


a month-oay-year  :s  characters) 
a hour-minutc-seccnd  <s  characters* 

a minute  (2  CHARACTERS) 
a SECOND  (2  CHARACTERS) 
a charoe  time  :n  203  millisecond  increments 


M-I31 


OAN  PACKAOC  AP^CNOU  N 
eONNANO  ROUriNCS 


INTCOCR  irincoi  • NOunt^NiNurct/sccoNOt  or  cnaroc  tihc 

RCAL  rsrct  • rRAcnoNAL  scconos  or  charoc  rine 


RROCeOURC 


c 


c 


CALL  TRACE 

CALL  OCrsiNINMRS.  »l.>l.*NO  TINC  SRCC I r I C AT  I ON  ALLOUEO  ‘-’I 
CALL  EROA  TE  M NOV . t HNS  I 

CALL  HOVCST (IN. ( I I . (El . IHNS. (31 . (El . * *l 
CALL  N0VCST( IS. ( t I . (El . I HNS. ( SI . (El . * ’I 
CALL  ERSUR$(NSE00  I 
SECS«rLOAr(NSEOOI / t 8000000. 

CALL  RLEtSX(SECS. I riNE.S.rSECSl 
UR|TE(6.  t**Si 
A I HNS . I N . I S . 

s iriNE.rsECs 
Ills  rORNAT(  • tine*/ 

S * (CLOCKI  * . AE. ' : * .AE. * I ’ .AS/ 

I ‘ (CHAROEI  * . JE.  ‘ i ‘ . JE.  ' : * . JE.r<*.  31 


KONO>' 

RETURN 

ENO 


KNOT  IN 
OOE 


N*I3E 


■arMPiaiTiaMTff 


OAH  AACKAOC  APPCNOIX  N KMOTIN 

CONHANO  ROUriNCS  001 


cNOT  inoLCNCNreot 


H-I3J 


oooooooooooooooooooooooooooooo 


OAN  AACKAOC  AMCNOIX  H 

eoNnANO  RouriNCS 


KHoroi 

001 


tuMouriNC  KNoroLi  • ocr/CHCCK  tolckancc 
u Konoi  • It  riMT  3 CHAOS  or  conhano  oi  tOAcet 


c 

c 

c 

C HISTORY 
C 

e 

C C H SCHLOSSCR 

C HA  rOHRKINt 

C 
C 


LCC  00/10/70  ORIOINAL  COOC 

LCNSCO  00/07/00  URORAOC  OOCUHCNT AT  I ON 


C HCTHOO 


UPOATC  TOLCRANCC  PRON  UNIT  S.  IP  SPCCiPICO.  AND  CONPIRN. 


HACHINC^OCRCNOCNr  COOC 


NONC. 


eXTCRNAL  RCPCRCNCes 


OC7SIN  a OCT  intcocr  data  piolo  proh  unit  s 


CXCCPTIONS 


I.  SPCCIPICATIONS  oursloe  thc  pollouino  ranocs  are  REjccreo  and  OENCRAre 
'MARNINO*  OlAONOSrtCS: 

0 <■  TOLERANCE  f 6 

0.  AN  extra  SPECtPICATION  OENERATES  a ‘MARNINO*  OIAONOSTIC. 


OLOBAL  OECLARATIONS 


INCLUDE  KOHXOT.lIST 
INCLUDE  KONKLS.LIST 

c 

c 

C LOCAL  DECLARATIONS 
C 

e 

C NONE . 

C 

c 

e PROCEDURE 

C 

C 


a CONHON  PROORAH  EXECUTION  SWITCHES.  COUNTERS 
a CONNON  CLASSIPtCATlON  INPO 


H-I3N 


DAN  AACKAOC  AMCNOIX  N 
COHNANO  ftOUriNCt 


CALL  TKACC 
C 

LC  VrOL  •NAXO 1 0 . 1.C  vr  OL  > 
icvroL*niN0(6.i.cvroLt 

CALL  OCrsiNtLCVrOL.  O.S.'tAO  rOLCRANCe  o*! 

CALL  OerSlNMOunnV.  »l.*t.*exrRA  TOLCRANCC  SPCCtriCATION  -- 

ircNcriRN.NC.oi  uRircia.ifsi  lcvtol 
lesroRHAri*  tolcrancc.  *.iti 
Kono*’ 

RCruRN 

CNO 


KHOrOL 

oot 


• I 


N-IS5 


( ) ! 


OAK  PACKAOC  AMCNOIX  N 
eONNANO  AOUTINCS 


KNOMlN 

001 


OUOOOUrtNC  KNOWtNI  A OCr/CNCCK  MINOOU  VCNTICCt 
w Konot  A It  rtotr  x cnaao  or  comnano  Oi  tOACCO 


e NitroAY 

c 

e 

C C N SCNLOttrO 

e C N OCNLOSSCO 

C N A rONPKiNt 

c 
c 

c hcthoo 


LCC  00/00/73 
LCC  It/07/70 
LCHOCO  00/07/00 


NUnCNIC  OPTION 
AlPHANUHCOIC  CONHANO 
UPONAOC  OOCUNCNTaTION 


UPOATC  uiNoow  veoriceo  pnoh  unit  o.  ip  spccinco.  and  coNriNn. 


NACHINC'OCPCNOCNT  cooc 


UOCO  UNI  VAC  rONTRAN  V RCTURN  K. 


C CXTCRNAL  RCPCRCNCeO 
C - 

c 

C NOHARN  A PRINT/COUNT/lOO  ‘MARNINO*  OIAONOSTIC  NCSSAOC 

C UNOCTO  A RACK  UP  I riCLO  ON  UNIT  0 

C OCTOKH  A OCT  CHARACTCR  OTRINO  DATA  PICLO  /RON  UNIT  0 

C OCTOIN  A OCT  INTCOCR  DATA  PICLO  PRON  UNIT  0 

e OCTORL  A OCT  RCAL  DATA  PICLO  PNOH  UNIT  0 

C OCTOOX  A OCT  tCXAOCNARV  OaTA  PICLO  PRON  UNIT  S 

C HARNO  A OCNCRATC  UARNINO  POR  I NVAL 1 0/ N I fS I NO  PICLO  PRON  UNIT  3 

e OCTOIN  A OCT  INTCOCR  data  PICLO  PRON  UNIT  3 

e tPANO  A CNAOLC  SPCCIPICATIONS  TO  SPAN  CAROS 

C HRVCRT  A URITC  VCRTCX  COOROINATCS  POR  UlNOOU 

C 

e 

C CXCCPTIONS 

c 

c 

C I.  SPCCIPICATIONS  OUTSIOC  ThC  POLLOUINO  RANOCS  arc  RCJCCTCO  and  OCNCRATC 


c 

‘UARNINO 

‘ OlAONOSTICSi 

c 

•tooo 

<•  SCANNCR  LINC 

< • 

ASOO 

c 

•3000 

<•  SCANNCR  SANPLC 

< • 

ssoo 

c 

-1. 

<•  LATITUOC  OCO 

< • 

00. 

c 

-1. 

<•  LONOITUOC  OCO 

< • 

ISO. 

e 

-IC*** 

castino  nctrcs 

< • 

<c*o 

c 

•IC*N 

<•  NORTHINO  NCTCS 

< • 

sc*e 

c 

•000 

<•  PRINT  LINCO 

< • 

000 

c 

•000 

<>  print  colunns 

< m 

000 

V 

e 

t.  TOO  NANY 

VCRTICCO  OCNCRATC  A 

‘uarn: 

NO*  C 

* ' ‘ -w  .»•  . )) 


u u u u 


OAN  PACKAOC  AMCNOIX  N 

eONNANO  ROUriNCt 


RNOUIN 

09t 


0L09AL  OCCLANAriONt 


INCLMC  KONXQr.LItT 

tNCLuoc  Koniuu.Litr 

INCLUOC  KOnOMH.LIST 
iNCLuoc  MiNOcr.iisr 
INCLUOC  NULCtr.LItT 


• CONNON  NNOORAN  CXCCUTION  tUITCNCt.  COUNTCNt 

• CONNON  INNUT  HI  NOON  RACKCtC 

• CONNON  our NUT  MINOOH  NACKCTt 

• ocriNC  OTRucruNC  or  hinoom  rackcts 

• OCriNC  NULL  CNARACrCR  OfRINO 


LOCAL  OCCLARAriONS 


RARANCrCR  NOONIN  • UVCR»I  • NOOC  NININUN 


INTCOCR  KOROIY  • 
INTCOCR  UCONNA  • 
INTCOCR  NOO  • 
INTCOCR  N a 
INTCOCR  KONAHC  • 

RCAL  crL  a 
RCAL  crc  a 
RCAL  cr  a 
INTCOCR  NR  a 


COOROINATC  OYSrCN 

CONNA/OLANK  OCRCNOINO  ON  ROOITION 

NOOC 

NOOC  COUNTCR 
COOROINATC  NANC 

CONVCRT  RRON  XXX  TO  RRINT  LiNCf 
CONVCRT  RRON  XXX  TO  RRInT  COLUHNO 

eoNvCRtiON  r actor 

NAXIHUN  • or  RLACCS 


IN  RRINT  LINC 


RROCCOURC 


CALL  TRACC 


INiriALIZC 


CALL  ORANO*  10*  a ALLOU  INRUT  TOR  THIS  CONNANO  TO  8RAN  UR  TO  10  CAROS 
NOO*UVCR  a tCT  NOOC  RQINTCR  OCrORC  riRfT  VCRTCX 

C 
C 

c 

e CMCCK  COOROINATC  SVfTCN 

c 

KOROSV«KSYOUUf  UVCRl 
CALL  OCTSXHIKOROSY. r|l . 


COOROINATC  SYSTCM  ir  NONC  SRCCiriCO 


iriKOROSY.co. *scA* I 
iriKOROSY.CO. ’OCO' I 
iriKOROSV.CQ. 
iriXOROSY.CQ. 
iriKOROSY.co. 
iriKOROSY.co. 
iriKOROSY.co. 
iriKOROSY.co. 

CALL  UARN9I 
00  TO  000 


•NIN' 
*KH  ■ 
•NCT' 
■RRI  • 
•CN  • 
■INC* 


00 

00 

00 

00 

00 

00 

00 

00 


TO 

TO 

TO 

TO 

TO 

TO 

T{* 

TO 


use  OLD 

NULCSTI 

soo  a SCannCR  COOROINATCS 

•*00  a ocoorarmic  cooroinatcs 

•*10  a ocoorarmic  cooroinatcs 

600  a utn  cooroinatcs 

610  a utn  cooroinatcs 

YOO  a NAR  cooroinatcs 

Yos  a NAR  cooroinatcs 

Yio  a NAR  cooroinatcs 


IN 

IN 


OCORCCS 

MINUTCS 


IN 

KILONCT 

»cs 

IN 

NCTRCS 

IN 

RRINT  L 

INCS  S COLUMNS 

IN 

CCntimc 

TRCS 

IN 

INCMCS 

RAO  COOROINATC  SYSTCN  >-‘l 


SCANNCR  ILINC-LCNOTH  aojustco*  cooroinatcs 


N-IS7 


OMI  MCKAOC  AAACNOU  N 

cemiANP  wouriNCt 


100  CALL  CRCLOOINOAOlIM.Ol'tO.OfOOl 

CALL  OCrolNINOAOMMtHLiN.NOOI.  >0000. 0000. * *OAO  LiNC 

CALL  OCTOININOAOUNIMOAN.NOOI.  *1000. 1000. **0A0  OAHOLC 

00  re  100 

1«0  HRirC(0.t«0> 
lAO  rORMAM*  HINOOH.  OCAN,*l 
JCOWIA-*.* 
oe  160  MNOORIN.NOO 
iriN.CQ.NOOl  JCONNA** 

MAirClO.SOOl  (NSAOUHI I .Nl . I •! .01 . jeOHNA 

100  rooHAri nx.io.*  linc.  *.is.‘  SAnoLC.AiM 
100  eoNriNuc 
00  ro  oeo 
c 
e 

C eCOORAAHiC  eOOAOINArCt 

e 

<»00  KONANC«’OCOOCC* 

cr«t.  0 oceocco  --  no  convcnoion  nccoco 
no«i  • NAX  NO  or  ocx*r  OLAecs 
00  ro  noo 

•MO  KONANC«’NINUrC* 

cr*i./oo.  0 eoNvcor  rwoN  ninutco  to  oeooecs 
Hr»o  • NAX  NO  or  tcx’Y  riACCs 
«»00  CALL  CKeLOO(OCOOHN.ti»>»0.ieOOI 

CALL  OCrotXIOCOOHWfHLAr.NOO) . cr. -I. .00. . *«0A0  LATiruoe  •• 
CALL  OCrOtXlOCOOHMIHLON.NOOi . cr, *1. . too. . '*LAO  LONOI ruoc 
00  ro  <»oo 

•»*»0  URirC(0.'*'*0>  KONANC 

•»i*o  roxNArc  ’ HINOOH.  '.ao.'S.*> 

CALL  uAvrxrfoeooMu. cr.cr, Mix.ro.**. OH  LAT.  .ro.**.**H  lon.aii* 
00  ro  000 
c 
c 

c urN  cooROiNArco 
c 

000  er«ic*i  o coNvcxr  rxoN  xiLONcrAco  ro  ncrxco 
00  ro  oeo 

010  cr«i.  I nctnco  --  NO  CONVCMION  nccoco 
oeo  CALL  CKCLOS(UrHOUH.fO**0.|0')0> 

CALL  0Cr0AL(urN04H(uCA.N00> . cr. 'tc***.  ic*o.  ‘ ‘OAO  CA$r  I NO  • 

CALL  OCTOAL  ' urnOHHtHNO.NOO* . Cr . 'IC  . OC  *6  ■ * *0A0  NOAThI  NO 

00  ro  oeo 

0**0  HAirC(0.6<*S>  KOADOr 
0**SrOANArc  HINOOH.  *.A|.*.M 
CALL  wAvCArcurHOUH.cr.cr. 

0 MSX.ro.  I.7H  CAST.  .rg.  I.SM  NOArH.AI  ) * .NOO* 

00  TO  000 

c 

c 

C r'MNT/ALOr  COOAOINaTCO 

c 

700  XONANC«*rAlNT* 

CrL>l.  0 ANInT  lINCO  --  NO  CONVCAflON  NCCOCO 

crc«i.  0 aaint  colunno  •-  no  convcasion  nccoco 


XNOMIN 

001 


• I 

-•M 


.NOO  I 


• • I 

• • • I 


N*tSi 


OAN  fACKAOr  A^ACNOU  N 
COIWANO  MOUriNCt 


KNOMIN 

00« 


eONVCAf 

eONVCAT 


CONVCAT 
CON VC AT 


moN 

CNON 


ecNriNcmct 

CCNTIHCTRCt 


TO 

TO 


rRON 

rnoN 


INCNCt 

INCNCt 


TO 

TO 


00  TO  700 
RONANC*KONOOT 
erL-0.BtS7«LiNCN 
erc«e.itvMKiNCN 
00  TO  700 
KONAfiC**  INCNCt’ 

CfLariOATlUNCNI 
cre«noATtKiNCNi 
CALL  CKClOtlAAOOi4M.t7HO.ttOOl 
CALL  OCTONLIAAOONMIHLIN.NOOI. 

CALL  OCrm<AAOOHW(WCOL.NOO> . 

00  TO  700 

MNirCit.Tvtl  KONANC 
rONNATC  MINOOH.  '.AO.'.'i 
iriKOAOtr.NC. ’ANi *i  00  ro  7oo 
CALL  HNVCA7lAA00HN.erL.CrC. 

0 ’l|X.rt.0.T0.7M  LiNC.  .rs. 0. TI0.7N  COLUHN. At  I ' .NOOl 
00  TO  too 

7t0  CALL  HNVCNTIAAOOHU.erL.Cre. 

0 ‘ltx.ro. 0.7N  LINC.  .rt.C.7N  COLUMN. All 


700 


710 


700 


7V0 

7Vt 


ANINT 

ANINT 


LiNCt 

COLUNNt 


CrL.'tOO. 

crc.'ooo. 


.too. 

.too. 


ANINT 

ANINT 

. ’•lAO 
•tAO 


LiNCt 

COLUNNt 

LINC 

COLUMN 


.NOOi 


c 

c 

c 

c 


normal  rcturn 


c 

e 


toe  KOHO*’ 

nctunn 


tUtNOUriNC  CKCLOfl 
A INTOUH. 

A t. 

A 01 


A CLOOC  AOLYOON  tr  nCxT  VCNTCX  tt  AtSCNT 
A MINOOH  AACKCr 

A CLOOC  HITN  CONriNHAriON  TAANOrCN  LAtCL 
A CLOOC  hithout  eoNriNMAriON  rAANorcR  laocl 


OINCNOION  INTOUHtO. t I 


KHTCHA*’  NUL' 

CALL  .OerOKMIKHTCHA. I t I . NULCOTI 

iriKHTCHA.CQ. * NUL ‘I  00  TQ  It Q | NO  HONC  OACCO 
CALL  'JN0CT9 

NOO*NOO*t  A NCAOr  ro  ocr  NCxr  vCatcx 
iriNOO.LC.HUO*  ACruAN 

CALL  NOHAANi  'TOO  MANY  VCNYICCO  --  CXCCOO  tONONCD*' 

NOO*NOO*I 

no  irtNOO.NC.HvcNi  oo  ro  too 

NOO*INroUH<HUOCO.HMCAOi  A NO  VCRTICCC  OACCirieO  ••  UOC  OLCl  HINOOU 
00  TO  too 

190  INTOUUIHUOCO.MNCAOI'NOO  a UAOATC  NIOMCOT  NOOC  uoco 
INTOHMt I .HVCNI -iNrOHUI I .NOO*  A CLOOC  ONOtNAYC 

INrOHUie.UVCNIatNTOHHie.NOOl  A CLOOC  AtOCtOOA 

too  NXLAtr>lNOO'UVCN>n*(  a UA0.^^C  AOINTCR  to  AIOCIOOA  or  NXT'TO'LSr  vCArex 


N>l3t 


OAN  PACKAOe  APPCNOIX  N 
COHNANO  ROUriNCS 


KSYOUUCUVCRI >KOROSY 
iriNCriRH.CQ.OI  RETURN  3 • CLOSED 

RETURN  2 • CLOSED 

END 


DON'T  CONEIRN  VERTICES 
CONFIRN  VERTICES 


KNOHIN 

005 


f 


N-tHO 


uuouuuuuuuoou 


OAN  PACKAOe  APPCNOtX  N 
COHHANO  ROUTINES 


KNOXXX 

001 


subroutine  KNOXXX I • PROCESS  MACRO  COHHANO 
U KOHOI  • li  FIRST  3 CHARS  OF  PROO  NAME  PLUS  *•*  0<  SPACES  IF  VALID 


history 


E H SCHLOSSER  LEC  01/17/79  ORIGINAL  CODE 


HETHOO 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


GET  COHHANO.  IF  IT  IS  8 CHARACTERS  OR  SHORTER.  PREFIX  KOHO  TO  IT. 

LOOK  FOR  A SYMBOLIC  ELEMENT  HITH  THIS  NAME  FIRST  IN  THE  PRIVATE  LIBRARY 
(PROGRAM  FILE>  MACOAH.  ANO  THEN  IN  THE  PUBLIC  LIBRARY  (PROGRAM  FILE!  OAM. 
IF  FOUND.  CALL  KMXXEO  ANO  CHANGE  KOMO  TO  SPACES. 


NACHINE-OEPENOENT  CODE 


UNIVAC  EXEC  B PROGRAM  FILE  NAMING  CONVENTIONS. 


external  REFERENCES 


UNOETS 

PUTCHR 

OETSKH 

LENCST 

HOVCST 

LOCOSF 

KMXXEO 


1 BACK  UP  1 FIELD  ON  UNIT  S 
a PUT  CHARACTER  INTO  CHARACTER  STRING 
a GET  character  string  field  FROM  UNIT  5 

a GET  length  of  character  string 
a hove  character  string 

a LOCATE  DISK  SYMBOLIC  FILE  OR  ELEMENT 
a EDIT  ACTUAL  SPECS  INTO  MACRO  COMMAND  DEFINITION 


EXCEPTIONS 

1.  KOMO  IS  LEFT  unchanged  IF  ANY  OF  ThE  FOLLOHING  OCCURS: 

lenoth  of  macro  command  is  < 3 or  > IE  characters 

NO  DISK  SYMBOLIC  ELEMENT  EXISTS  FOR  MACRO  COMMAND 
a.  SPECIFICATION  FIELDS.  IF  SUPPLIED.  ARE  CHECKED  BY  KMXXED. 

3.  NO  other  checks  are  made. 


GLOBAL  DECLARATIONS 

>'•  T 


INCLUDE  KOMXQT.lIST 
INCLUDE  NULCST.LIST 


a COMMON  program  execution  SWITCHES, 
a define  null  character  string 


COUNTERS 


H-141 


DAN  PACKAOC  APPCNOIX  H 
COHMANO  POuriNCS 


KHOXXX 

OOP 


C LOCAL  OCCLAPATIONS 


C 

c 

c 

c 

c 

c 


INTCOCR  HAKOHOISI 
INTCOCR  NAHCLTCai 
INTCOCR  NANFILCPI 
0 / • • / 
INTCOCR  LOCPIL 
INTCOCR  LCNOTH 


PROCCOURC 


CALL  TRACC 


• NANC  or  NACRO  COHNANO 

• NANC  or  DISK  SVHBOLIC  CLCMCNT 

• NANC  or  DISK  SYNBOLIC  riLC  1‘NACOAN’  OR  ‘OAN'l 

• LOCATION  NITHIN  DISK  SYNBOLIC  riLC  < IF  > 0 ) 

a LCNOTH  or  CHARACTCR  STRING.  CXCL  TRAILING  BLANKS 


C 

C 

C OCT  1ST  IB  CHARACTCRS  OF  NACRO 
C 

CALL  UNOCTS 

CALL  PUTCHR(NAK0N0.<I8) . 

CALL  oersKHiNAKONO. ( tai . 
c 
c 

C CHCCK  LCNOTH  OF  NACRO  CONNANO 
C 

LCN0TH>LCNCST(NAK0n0. ISI 
IFILCNOTh.LT. 3)  00  TO  900 
IFILCNOTH.OT. IB)  00  TO  900 


CONNANO 


*?*)  a INITIALIZC  NAKONO  TO  18  CHAR  LCNOTH 

NULCST) 


a TOO  SHORT 
a TOO  LONO 


c 

c 

C construct  NANC  OF  CLCNCNT  CONTAINING  TCXT  FOR  NACRO  CONNANO 


C 


nanclt«kono  a ist  3 chars  of  prooran  nanc  plus  ' 
IFILCNOTH.LC.B*  call  NOVCSTINANCLT.  (51  . rsi  . 


NAKCNO. ( I I . ( 8)  . ‘ ‘)  a <KONO><NAKONO> 

IF(LCN0TH.0T.8»  call  NOVCST (NAHCL T. ( I ) . ( IBI . 


■ NAKONO. ( I ) . ( IB! . ' *1  a <MAKONO> 

c 

c 


C CHCCK  IF  CLCNCNT  MITH  TCXT  FOR  NACRO'COMNANQ  IS  ON  DISK 

c 


NANF IL>'NACOAN* 

L0CFIL«L0C0SF(NANFIL .NANCLT . ■ *1 

IFILOCFIL .LC . 0)  NANFIL-'OAN' 

IFILOCFIL .LC.O)  L OCFI L «L OCOSF ( NANF IL . NAMCL T . • •) 

IFILOCFIL. LC.O)  00  TO  900  a NO  SYNBOLIC  CLCNCNT  FOR  NACRO  CONNANO 

K0N0«* 

C 

C 

C COIT  ACTUAL  SPCCS  INTO  NACRO  CONNANO  OCFINITION 
C 

CALL  KNXXCOt  NAKONO. NANFIL. NANCLT. LOCFIL > 

C 


N-IHB 


UUUUUUUOUUUUOUUOUUOUUOUUCjOUOUUUUO 


OAH  PACKAOC  APACNOIX  N 
CONHANO  ROUTINCS 


KNOZON 

001 


tUOROUMNC  KNOZONI  0 OCT/CHCCK  UTN  PNOJCCTION  ZONC 

u Konot  a It  riRsr  s chars  op  cohrano  oi  spaccs 


history 


E 

N 

schlosser 

LEC 

to/as/7s 

ORIGINAL  COOE 

E 

H 

SCHLOSSER 

LEC 

07T30/7B 

DELETE 

RETURN 

K 

E 

N 

SCHLOSSER 

LEC 

0Z/Z0/7S 

REVISE 

GETS. . 

CALLS 

E 

H 

schlosser 

LEC 

1 I/Z9/79 

UPGRADE 

documentation 

hcthoo 


UPOATC  urn  ccntral  hcrioun  pron  unit  s.  ip  zonc  spccipico.  and  confirh. 


HACHiNC'OCPeNoeNT  cooe 


NONC. 


CXTCRNAL  RCPERCNCeS 


oersiN  a oer  ihtcocr  data  piglo  proh  unit  s 


exccPTioNS 


1.  SPCCIPICATIONS  oursioe  the  pollomino  ranges  are  rejected  and  generate 

'UARNING*  DIAGNOSTICS: 

I <-  ZONE  <«  ZZ 

Z.  AN  extra  SPECIPICATION  generates  a 'WARNING'  DIAGNOSTIC. 


GLOBAL  DECLARATIONS 


INCLUDE  KONXQT.LIST 
INCLUDE  KONPIT.LIST 
include  KOHOWW.LIST 
INCLUDE  HINOEP.LIST 
C 
C 

C LOCAL  declarations 

c 

c 


a CONHON  PROGRAM  execution  switches,  counters 
a COMMON  AOJUSTMENT/REOISTRATION  parameters 
a COMMON  OUTPUT  window  PACKETS 
a OEPINE  structure  op  WINDOW  packets 


REAL  OLOCNO  a VALUE  OP  UTMCHO  ON  ENTRY  (BEPORE  POSSIBLE  CHANOINO) 

INTEOER  INTEMP  a TEMPORARY 


H-IMM 


OAN  MCKAOe  APACNOIX  N KNOZON 

CONHANO  AOUriNCS  OOC 


C 

C 

c pnoccouftc 

C 

c 

CALL  TRACC 
C 

tpiurnctio.co.o. ) urHcno«'>3S8t7.  a invalid  izonc  • soooi 
OLOCNO'UTHCHO 

INTCNP«t 183. *urNCNOI /6.  » .S 

CALL  OCrsiNI INTCHP.  1.88. *8A0  UTN  ZONC 

urNCno«i83*6«iNreNP 

IPINCriRH.NC.O)  URirCI6.l88)  I NTCNP . UTNCHO 
I8S  PORNArc  ZONC.  *.I8.*  (UTN  CENTRAL  NERIOIAN  ‘.PS.  I.’  OEOI'i 
CALL  OETSINI INTCNP.  *l.-t. 'EXTRA  ZONE  SPEC  I P I C A T I ON  -•‘I 

ipiolocno.nc.uthchoi  ksyouniuorio>«‘nul ‘ a ip  cno  chanoeo  nark  orio  aosent 
900  KONO*' 

RETURN 

END 


( 


H-IV9 


o o o o oooooooooo  on 


OAN  ^ACKAOe  AWNOIX  N 
eOHHANO  AOuriNCt 


OOt 


c 

c 

c 

c 

c 


c 


SUtROUriNC  KNOOAOt  • tAOO  --  OYNAHIC  «AOO 

u Kono)  • It  riRsr  s chars  or  conhano  oi  sraccs 


fC  H SCHLOSSCRI 


iNCLuoe  Konxor.t.isT 
iNCLuoe  ASHoer.Lisr 
oinCNSiON  Ksrsurtei 
DATA  Ksreurte*/’  ■/ 

CALL  TRACe 


CALL  UNOCrS 

CALL  oersKHCKsreurta) .38.*o> 
irc  crLO(0.30.KsrBur(sn  .nc.  *aSA00 
A (PLO(0.30.Ksraur(8ii .ne. ’taAOO 
PLO(0.30.KSPBUr(8l l«'a  i 

KSPBUri ll-’aSTART* 

CALL  ERCSf (NAO.KSrBun 
irtHOOCASNSBfNAOl .5* .NE. n 00 

KsrBUPM >«*aAOo.E'  a blocks 
haolev>haxo(maolev*i . i ) a 

CALL  ERCSFtNAO.KSPBUri 
00  TO  900 


‘ I . ANO. 

'll  00  ro  890 
BLANK  our  SAOO 


TO  BIO 

USES  ENO-OF-riLE 
INCREMENT  nested 


TO  DETECT  END 
aADO  LEVEL 


OF  aAODEO  ELT 


■» 


FLAO  BAD  aADO  ELEMENT 

810  CALL  UARNSC’BAD  SAOO  FILE  OR  ELEMENT  --*) 
00  TO  900 


ABNORMAL  RETURN 
890  RETURN 


NORMAL  RETURN 


900  KOMO-' 
RETURN 
ENO 


N-l«»8 


o o o o o 


OAN  ^ACKAOe  APPCNOiX  H 
CONNANO  ROUriNCS 


KHOOA* 

001 


OUaROUriNC  KHOOASI  • oaso  ••  oynanic  oaoo 
u KONOt  a It  riRtr  s chars  or  conhano  o>  spaces 


cc  N SCHLOSSERi 


INCLUDE  KOHXQT.LlSr 
CALL  TRACE 

RETURN  a NOT  YET  IHPLEHENTEO 

ENO 


DAN  PACKAOC  APPCNOIX  H 
COHHANO  ROUriNCS 


KHOOm 

001 


OUMOUrtNC  KHOOiOt  • tlRKPr  --  OYNAHIC  OOOKPT 

u KOHOi  • ti  rmsr  3 cnamo  or  cohnano  Oi  srAces 

c 

c 

C <C  H OCNLOSSCOt 

C 

C 

INCLUOe  K0HXQT.LI8T 
iNCLuoc  Aonoer.LtsT 
oinCNOiON  KsrouriTi 
DATA  xoroortYw  •/ 

OIHCNSION  NULASCC I ) 

DATA  NULASC/0000/ 

CALL  TRACC 

C 

e 

C OCT  tORKPT  IMAOC 
C 

CALL  UN0CT5 

CALL  oersKH(K8rour.38.-oi 
ircKsreurci t .NC. 'SORKPT* I 00  ro  soo 
iPCASHSi (Ksreurcan .NC. 'laaaa  *)  00  ro  eoo 

ASH8t(KSrBUP(tn>* 

c 

c 

C Ptx  POR  SYNC  PROBLCN  IN  UNIVAC  OCHANO  SYMBIONT 
C 

00  SOO  I«I .S 

CALL  EAPRNTCO. I .NULASO  a PRINT  H ASCII  NULS 

CALL  CRTuArdoooi  a tihco  uAir  1 second 
500  continue 

CALL  ERPRCNit.'R  . ‘t  a INSERT  LOGICAL  BREAK  INTO  PRINTS  PILE 

CALL  ERTHATlIOOOl  a TIMED  WAIT  I SECOND 

C 

c 

C REQUEST  aSRKPT 
C 

CALL  ercspinao.kspbupi 

IPINAO.NE.OI  call  WARNS! -Bad  SBRKPT  -•*) 

KOMO«* 

RETURN 

c 

c 

C ABNORMAL  RETURN 
C 

BOO  RETURN 
END 


N-I4B 


OAN  ^ACKAOe  AP^CNOIX  H 
eOHNANO  MOUriNCS 


KNOOm 

001 


ouoROuriNe  KNOoriK  a oroee  --  oynanic  arocc 
u Konoi  a It  riitor  s cnaro  or  connano  Ot  orAceo 

c 

c 

e IC  H SCHLOOSCRI 

c 

c 

tNCLUOe  KOHXOr.LIOT 
CALL  rOACC 

c 

oeruRN  a not  yct  inrLencNreo 
CNO 


n>i49 


u o o 


OAH  PACKAOC  AMCNOIX  N 
eONHANO  MOUTINCS 


KMOHO 

eot 


tUMOUriNC  KHOOlOt  I tLOO  --  OYNAMIC  tLOO 
U KONO>  • It  riMr  I CNAAt  or  COHNANO  Oi  trACCt 

c - 

c 

e tc  H SCNLOSSCNI 

c 

c 

iNCLuoc  KOHxar.Lisr 
iNCLuoe  AfNOcr.Litr 
oiHCNtioN  Ksrournsi 
OAT*  Ktrournst/*  v 

CALL  TAACC 
C 

CALL  uNoers 

CALL  ocrsKHtKsrcur.Tg. >0) 

ircfLOto. so.Ksrsurt 1 1 1 .NC. ' isLoo  *>  oo  to  boo 

ASNtt  (Ksrsurn  n «* 

CALL  CBCSrtNAO.KSrBUri 
triNAO.Nr.Oi  CALL  MABNSCBAO  BLOO 
KONO* ' 

KCruRN 


ABNORHAL  RCTURN 


DAN  AACKAOC  AMCNOIX  d KHXXCO 

eOHNANO  MOUriNCt  OOt 


tumouriNC  knaxcoi  t coir  actual  met  into  naciio  conhano  ocriNirioN 


I HAKONO.  t NANC  Of  NACIIO  COHNANO 
I NANflL.  A NANC  Of  flLC 
I NANCir.  • NANC  or  CLCNCNT 

I LOCriLI  A LOCATION  HITNIN  Off  OF  NACNO  CONNANO  OCriNITION 


NItrONY 


C H tCNLOttCN  ICC  OI/IY/70  ORIOINAL  CODC 

C N OCHLOttCN  LCC  09/01/79  flX  NlStRClLlNO  Of  NQHfNL  AfTCII  I tO 


NCTNOO 


OCr/CHCCK  NANC  or  NACAO  CONNANO  ANO  NUNOCR  or  rONNAL  trCCtriCATIONt  rOON 
ocriNiTiON  IN  otr.  corv  rcnainocr  or  ocriNirioN  to  coit  rue.  rcnlacino 
NCrCRCNCCt  TO  rONNAL  ONCCt  (STNlNOt  Or  ’T*i  HI  TM  ACTUAt.  lACCt.  ir  NO 
oiAONOsnct  NAve  occn  CNCouNrcReo.  aoo  coir  rue  ro  sysin  runstncak. 


NACHlNC^OerCNOCNT  cooc 


UNI  VAC  exec  o aroonan  rue  nan  i no  coNveNTioNs. 

OINCNtlON  A rORHAT  SPeCiriCATIONS  ASSUNC  0 CHARACteRt  NCR  UORO. 


eXTCRNAL  RCrCRCNCCt 


9Y9A00 

0CT9 

oersKH 

UARN9 

SYtoer 

oercHR 

rurcMR 

ounce 

KNXXOt 

oeroKM 

NOUARN 

NOrATL 

Novesr 

NCxroK 

INTCOCR 

LOOICAl 


A AOO  DISK  tYNOOLtC  rue  OR  eieneNT  TO  SYSIN  RUNSTReAN 
A oer  ReNAiNoeR  or  unit  s AurrcR 
A oer  CHARAcreR  strino  rteio  yroh  unit  s 
A arint/loo  uarnino  nessAoe 

A OeT  NexT  RCCORO  rRON  sysin  RUNSTReAM 
A oeT  charactcr  rRON  CHARACTeR  strino 
A Aur  CHARACreR  into  charactcr  string 
A AUT  l«C-e  INTO  CHARACreR  strino 
A OCT/evALUATe  ACTUAL  SACC  rOR  macro  COMMAND 
A oeT  CHARACreR  strino  data  riCLO  arom  ourrcR 
A SUINIT  WARNINO  diagnostic  MeSSAOC 
A suoNiT  rATAL  diagnostic  nessAoe 
A Nove  CHARACreR  strino 
A oer  AoiNTeRS  TO  Ncxr  ToxeN 

i.eNCtT  A ueNOTH  or  CHARACreR  strino 

TRUCST  A truth  VALUC  Or  CHARACTeR  STRING  CONAARISON 


CXCCATIONS 


N-I9I 


NIMXCO 

ooc 


IAN  NACKAOC  APNCNOI 
ONNANO  NOUriNCt 


I.  TNC  fOlkOMiNO  CONOmONt  OCNCNAfC  NOTCti 

NO  NANC  ION  OAO  NANCi  OCCLANCO  IN  NACNO  OCriNITION 

f.  TMC  rOLLOHiNO  CONOIMONt  OCNCNATC  UANNiNOti 
NACNO  CONNANC  NCOTCO  HONC  THAN  0 OCCN 
NACNO  OCriNiriON  CNNTY 

NACNO  OCriNiriON  LONOCN  THAN  00  CNANACTCNO 

rONNAL  INCe  IN  NACNO  OCriNITION  DOCS  NOT  OTANT  MITH  *<• 

NONC  than  HARQH  rONNAL  INCCS  OCCLANCO  IN  NACNO  OCriNITION 

ACTUAL  SNCC  HitOiNO 

ACTUAL  tree  OTaNTS  UlTN  '<* 

ACTUAL  SNCC  LONOCN  THAN  t>  CHANACTCNS 
HONC  ACTUAL  ONCCt  THAN  fONNAL  SNCCS 
UNOCCLANCO  SNCC  NCfCRCNCCO  IN  NACNO  OCriNITION 
NACNO  COIT  INAOC  LONOCN  THAN  00  CHANACTCNS 

S.  TNC  rOLLOHiNO  conditions  OCNCNATC  rATAL  CNNONSt 
osr  hith  NACNO  OCriNITION  not  rouNO 
NACNO  KriNITION  CONTAINS  CXCC  CONNANO 
NACNO  COIT  riLC  NOT  roUNO 


OLOOAL  OCCLANATIONS 


INCLUOC  KOHXOT.LIST 
INCLUOC  NULCST.LIST 


• CONHON  NNOONAN  CXCCUTIQN  SUITCHCS.  COUNTCNS 
0 OCriNC  NULL  chanactcn  stnino 


LOCAL  OCCLANATIONS 


C 


C 


C 


c 


NANANCTCN  NAX0N*6 
INTCOCN  NON 
INTCOCN  NQNrNL 


• NAXIHUN  NUNOCN  or  SNCC  r I CL  OS  SUNNONTCO 

• SNCC  riCLO  NUNOCN  INUNOCN  or  OUCSTION  HANKS’ 

• NUNOCN  or  rONNAL  SNCC  riCLOS  OCCLANCO 


INTCOCN  NAKOHOISI 
INTCOCN  HACOCnSl 
INTCOCN  KHANI 
INTCOCN  NOSAVC 


• ANOUHCNT 

I NACNO  CONNANO  OCriNITION  rtCLO 
I riNSr  CHANACTCN  IN  SNCC/TOKCN 

I vALuc  or  nototl  on  cntny  to  suonoutinc 


INTCOCN 

INTCOCN 

ocriNC 

ocriNC 

OcriNC 


iNOiNiroi  • OCriNITION  inaoc  innut  lurrcN 
LLINIS’  I LOCATION/LCNOTH  NOINTCNS  rON  INOIN: 

LOeiN-LL INI  I I • LOCATION  Or  NNCVIOUS/CUNNCNT  rOKCN  IN  INOIN 
LCNIN*LUN(ft  • LCNOTH  or  NNCVIOUS/CUNNCNT  TOKCN  IN  INOIN 
NAXIN*LLINI|I  I LCNOTH  Or  INOIN 


INTCOCN 

INTCOCN 

OCriNC 

ocriNC 

ocriMC 


inooutiili  I coiTco  INAOC  outnut  ourrcN 
LLOUTISI  I LOCATION/LCNOTH  NQINTCNS  rON  INOOUT: 
LOCOUTalLOUTi  I I 0 LOCATION  or  NNC VI OuS^CUNNCNT  TOkCN 
LCN0UT>LL0UT(C<  S LCNOTH  or  NNCVIOUS/CUNNCnT  TOKCN  IN 
HAX0UT*LL0UT> SI  S LCNOTH  Or  IHOOUT 


N INOOUT 

jnoout 


INTCOCN  tHOSriS.NAKOHI  • NACHINC  OCNCNOCNT 

orriNC  iNOSNr(NOHi*iNOsri I .NOHi  a actual  srcc  riCLO  inaoc  ourrcN 
INTCOCN  LCNSm NAXONI  • TaOLC  Or  LCNOTH  NOINTCNS  rON  iNOSNr 


N-ISC 


I « 


XNXKCO 

001 


DAN  PACKAOC  AO^CNOI 

eofmANO  oouriNCt 


e 


INrCOCO  INOTAT 
iNtCOCO  LUCOir 

inrcoco  Nrcoirto* 
iNrroco  LOCNxr 


a INPUT  otatuo 

a LOOICAL  UNIT  NUNtCN  rON  COtT  flLC 
e NANC  OP  coiT  puc 

I LOCATION  TO  PUT  ncxt  conpinnation  opcc  piclo 


CALL  TNACC 


INlTULIZe 

NOtAVC«NOTOTL 
CALL  SVtAOOtLOCPiL. 
IPILOCPIL  LC.OI  CALL 
IPIHAOLCV.Or.il  CALL 
LUCOir«IO*NAOLCV 


NAKPIL.  NANCLT.  * *t 

nopatlc  ‘NO  nacno  ocpiNirioN 
HANNSI  * nacno  CONNANO  NCSTCO 


IN  KNKXCO' > 
TOO  OCCP  --‘I 


OCr/CHCCK  NANC  PNON  NACNO  OCPINlTlON  OOP 


LOCIN-I 

LCNIN«0 


LOC  II 
LCNOTH 


PI  NOT  CHAN  OP  I NO  IN  OUP^’CN 
OP  PNCVlOUl  PICLO  II  0 


I 


I OCT  ITaTUO.  INOIN.  LCNOTM 


110 


TNaILINO  OLANXI.  IP  ANV 
OCPINlTlON  INAOC  TOO  LONO’l 

a APPCNO  I tnailino  olank 


CALL  iriOCTi INITAT. INOIN. NAXIN 
IPMNSTAT.CQ.  ‘ *1  OO  TO  ISO 

CALL  NOHANNI  ‘NACNO  OCPINlTlON  CNPrvi 
00  TO  100 

NAXlN»LCNCITf INOIN. NAXINI  I ITNIN 

IPfNAXlN.OT.OOl  CALL  NOUANNf  ‘NACNO 
NAX I N>N I NO ( NAX I N . 00  > • I 
CALL  NUTCHNf  INOIN.  (NAKIM  . ‘ ‘I 

NACOCPI|l*‘  NUL‘ 

CALL  OCTOKMfNACOCP. ( I0> .LL IN.  LLIN.INOINi  I OCT  NCXT  CHAN  |TN  OATl 
IPf  TNUCfT  (NACOCP.  I . II.  ‘«‘.  NAKONO.I  .1011  00  TO  l>»C 

CALL  NONOTCf  ‘NO  NANC  OCCLANCO  IN  NACNO  OCPINlTlON') 

L0CIN>I  • NCirONC  LOCLCH  NOInTCA? 

LCNlN-0 

NAVIN*lA0f(NAXlN1 

NONPNL«0  a NO  PONNAL  INCCI  ... 

00  TO  too  a ...  our  icc  ip  anv  actual  sncciii 


OCT/ChCCK/TALLV  PONNAL  INCCfSi  PNON  MACNO  OCPINlTlON  0|P 


1<*0  N0NPNL*0 

00  100  NON* I. 01 

NACOCPin*'  NUh‘ 

CALL  OCTOKNiNACOCP.nOl.LLIN.  LLIN.INOINI 

tPINACOCPH > .CO. ‘ NUL‘I  00  TO  000  a no  NONC  PONNAL  spcci 

NONPNL«NJNOINQNPNL*I .NAXONt 

CALL  OCTCHNf KMANI . NACOCP. Ill* 

IPf KNANI .NC. ‘< * I CALL  NOUANNf 


N«I9S 


. f • 


PLO 


OAH  PACKAOe  APPCNOIX  H 
COHHANO  ROUriNCS 


• ’BAD  rOMNAL  SPCC  IN  HACRO  OCFINtTION’) 
IPINQN.Or.NAXQHI  CALL  NOUARNI 
> *exTRA  PORNAL  SPEC  IN  HACRO  OCFINiriON') 
ISO  CONf I Nue 


c 

C oer/CMeCK/TALLY  ACTUAL  SPEC  riELOtSi  FROM  SYSIN  RUNSTREAH 
C 

EOO  IFCNONFNL.EQ.OI  00  TO  E**0 
00  880  NQH-t.NQHFHL 

IHOSPFCNQNI •’  NUL* 

CALL  KHXXOSC INOSPF(NQN) . ( 18)  > 

IF( IHOSPFCNON) .EQ. ' NUL * > CALL  NOUARN(  'NISStNO  SPEC*) 
CALL  OETCHRCKHARl . t NOSPF t NON  I . ( 1 ) ) 

IFIKHARl .EQ.  *< * ) CALL  HARNSC  ‘BAU  SPEC  I F I C AT  I ON 
LENSPFfNQN) >LENCST( tMOSPFtNQM) . 18> 

IFCLENSPFCNQH) .OT. )8I  CALL  UARNSf 
• ’SPECIFICATION  TOO  LONG  --’I 

880  continue 


C 

C 

C FLUSH  extra  actual  SPEC  I F I C A T I ONI S ) FROM  SYSlN  RUNSTREAH 
C 

8H0  ITEHP-’  NUL* 

CALL  OETSKHI I TENP. (HI . NULCST) 

IF! ITEHP.NE. ’ NUL ' I Call  MARNSI  ‘EXTRA  SPECIFICATION  --*) 
IF!  I TEMP.  NE.  ’ NUL  ‘ 1 00  TO  8**0 
C 
C 

C IF  OIAONOSTICS  ENCOUNTERED  FLUSH  AOO-EO  HACRO  DEFINITION 
C 

IFINOSAVE.EQ.NOTOTLI  GO  TO  500  i NO  NEM  DIAGNOSTICS? 

•»80  CALL  SYSGETI  INSTAT.  IHOIN.HAXIN  ) 

IF(  INSTAT.EQ.  ’ •)  00  TO  '♦80 
IF! INSTAT.NE.  ’EOA’ I CALL  HOFATLI 
- ‘EXEC  COHHANO  IN  HACRO  DEFINITION  ) 


C 

C 

C 

C 


C 

C 

C 

c 


GO  TO  900 


READ  NEXT  DEFINITION  I HAOE 


500 


IFILOCIN.NE.il  HAXIN«I A8SIHAXINI  a 
IFIHAXIN.LE.01  CALL  SYSOE T I I NST A T . I MO 
IF! INSTAT.NE. ‘ ‘>  00  TO  600  a END 

HAXIN-LENCSri IHOIN.HAXIN)  a STRIP 

IFIHAXIN.OT.80)  CALL  MDUARNI  ‘MACRO 
HAXIN«HIN0<HAXIN.80) 


IF  END  OF  SLOCK. 
IN.HAXIN  I 

OF  definition 
TRAILING  Blanks, 
definition  IMAGE 


Turn  off 


I F ANY 

too  long 


INITIALIZE  EDIT  IMAGE  WITH  BLANKS 
LOCOUT*! 

CALL  MOVCSTI  IHOOUT.  (LOCOUT)  . IBW' . ’ ’.ID. ID.’  ’) 


C 

C 

C LOCATE  NEXT  DEFINITION  TOKEN 


KHXXEO 

OOH 


END  FLAG 


‘ I 


H-I9*^ 


ooou  uuuo  uuou 


OAN  PACKAOe  APPCNOIX  N 
CONNANO  ROUMNCS 


KHxxeo 

009 


c 

900  CALL  NCXTOKCKHARI .LLIN.  LLIN.INOIN.  *?’.  *N0NC*l 
irCHAXIN.LC.Ot  00  TO  960  » CNO  OP  INAOC 

IPfXHARI .eo. *7*t  00  TO  930 
C 
C 

C APPENO  NON-SPCC  TOKEN  TO  EDIT  INAOE 
C 

LENOUT-LENIN 

trCLENOUT.LE. (Ot 'LOCOUTII  CALL  HOVCST I I NOOUT . ( L OCOUT I . ( LENOUT I . 

% INOIN. (LOCINI . (LENIN) . * *) 

L0C0UT«L0C0UT*LEN0UT 
00  TO  900 


APPENO  ACTUAL  SPEC  TO  EDIT  INACC  IN  PLACE  OP  PORHAL  SPEC  TOKEN 

930  IPILENIN.OT.NONPNL I CALL  MOUARNC 

> ‘UNDECLARED  SPEC  REFERENCED  IN  MACRO  OEFINITION’I 
NQn«NtNO(LENtN.NQnPNL ) 

LEN0UT*LENSPP(NQNI 

IPCLENOUT.LE. (81 -LOCOUTl ) CALL  HOVCST ( I NOOUT .( L OCOUT)  .( L ENOUT ) . 

• INGSOPINONI . ( I ) . (LENOUT) . * •) 

L OCOUT «LOCOUr*LENOUr 
00  TO  500 


MRITE  EDIT  I HAOE 
960  HAXOUT«LOCOUr-l 

ir(HAxouT.or.eo)  call  mouarn'  'macro  edit  line  too  long*) 

IP(NOSAVE.EQ.NOTOTL  ) ;JRI  TEILUEOI  T.575)  IMCOUT 
975  P0RMATn«*A6)  » MACHINE  DEPENDENT  FORMAT 

GO  TO  500 


drain  REA05  BUFFER  A APPENO  ITS  CONTENTS  (IF  ANY)  TO  EDIT  FILE 

600  IMGOUT(|)*'  NUL ' 

CALL  0ET5<  IMOOUT  , (8**)  . NULCSf) 

IF) I MOOUT ( t ) . NE. • NUL')  ^Rl TE (LUEOI T .61 5)  IMGOUT 
619  F0RMAr(|)*A6) 


CLOSE  EDIT  file  AND  ADO  TO  SYSIN  RUNSTREAM 
C 

IFdNSTAT.NE.  'EOA‘)  CALL  MOFATLr 
• 'EXEC  COMMAND  IN  MACRO  DEFINITION') 

ENOFILE  LUEOI T 

CALL  CLOSE!  LUEOir.l)  1 CLOSE  A REMIND 

IFINOSAVE.NE.NOTOTL ) GO  TO  900 
NPEOITII)-'  • 

NPC0IT(0)»‘  • 

CALL  PUTICEINPEOI T. ( I ) . I CE ( ’ 0 ‘ ) *L UEO I T / t 0 I » TENS  DIGIT 

CALL  PUTICEINPEOI T, (8) . I CE ( ' 0 ‘ > »L UEO I T - 1 0 • ( LUEO I T / I 0 ) I » UNITS  OICI 

CALL  SrSAOOILOCFIL.  NPEOIT.  ' *.  ‘ ■) 
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N 


KHXXeO 

006 


traOCPIL.LT.OI  CALL  nOPATLf  ’NO  NACRO  LOU  PILC  IN  KHXXCO’I 


CONPIRN  NACRO  CONHANO  » SPCCS 
irincriRN.EQ.oi  oo  to  900 

CALL  HOVCST  MNOIN.  ( n . C 1901  . 

■ NAKONO. ( t > . < lOt , ’ *1 

L0CNXT«LCNCST( IHOIN. tsoi *I 
tPINQHrHL.LC.OI  00  TO  730 
00  7t0  NQMal.NQHFNL 

1P(L0CNXT.0T. lOS)  00  TO  730 

CALL  PUTCHRI INOIN. (LOCNXT) . ‘,*1 

LOCNXT-LOCNXr *9 

CALL  HOVCSr ( tnOlN. ILOCNXTI  . ( 19)  . 

• INOSPriNQNI . ( t I , ( 191 . * *1 

LOCNXT-LOCNXTtLENSPriNQNI 
710  continue 

730  URITE(6.73S>  IMOIN 
739  rORNAH  1X.90A61 


DONE 

900  RETURN 
END 
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SUDROUriNE  KHXXOSf  • OEr/EVALUATC  ACTUAL  SPEC  POR  MACRO  CONHANO 

0 KHPLO.  • ACTUAL  SPEC  PIELO  (UNCHANOEO  IP  NISSINOI 

1 KHLEN  a LENOTH  IN  CHARS  CHILL  BE  PAOOEO  Hi TN  BLANKS  TO  HORO  POTI 


history 


E H SCHLOSSER  LEC  01/17/79  ORIGINAL  CODE 


METHOD 


OET  actual  SPECIPtCATION  (IP  ANY).  IP  ITS  AN  EXPRESSION  (ENCLOSED 
IN  PARENTHESES)  CHECK  IT.  EVALUATE  IT.  AND  RETURN  ITS  VALUE. 


nachine-oepenoent  code 


EXTERNAL  REPERENCES 


OETSKH  a OET  CHARACTER  STRING  PIELO  PROH  UNIT  5 

HOVCST  a MOVE  CHARACTER  STRING 

INTEGER  ICE  a inteoer-character-equi valent 

INTEGER  LCHREQ  a LOCATE  CHARACTER  IN  STRING  EQUAL  TO  SEARCH  CHARACTER 

INTEGER  LENPAO  a LENGTH  IN  CHARACTERS  I NCL  PAD  TO  UORO  BOUNDARY 


EXCEPTIONS 


AN  INVALID  EXPRESSION  IS  RETURNED  HITH  THE  LEADING 
TO  * < • . 


changed 


GLOBAL  declarations 


INCLUDE  KOnXQT.LIST 
INCLUDE  KOHKLS.L I ST 
INCLUDE  NULCST.LIST 


a COHHON  program  execution  switches. 

a COMMON  CLASSiriCATtON  INFO 
a OEPINE  NULL  CHARACTER  STRING 


COUNTERS 


LOCAL  DECLARATIONS 


integer  KHEXP 
int: ^ER  MODSET 


a EXPRESSION 

a MODE  setting  op  some  mode  shitch 
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KHXX08 

OOC 


e 

e 

C PROCCOUAC 
C 

c 

c 

CALL  TAACe 
C 
C 

C OCT  ACTUAL  SPCCiriCATION  PtCLO 
C 

CALL  OCTSKHIKHPLO. CKHLCNI , NULCST1 

tP( ICE(KHrLO) .NC. ICC( * ( ■ I ) 00  TO  900  0 NOT  AN  CXPRESSION 

C 
C 

C extract  1ST  3 CHARS  OP  EXPRESSION  PROH  ENCLOSINO  PARENTHESES 
C 

IPILCHREQIKHPLO. IE) . ( 1 31  . ' I * I .nE.OI  00  TOEHO 

CALL  PUTCHRIKHPLO. I I)  . ’<*1  A PLAO  AS  INVALID  EXPRESSION 

00  TO  900 

2<*0  CALL  NOVCSTlKHEXP.  ( n . ILENPA0(3n  . 

- KHPLO. (El . (31 . ’ •! 

C 

C 

C CHECK/EVALUATE  OENERAL  EXPRESSION 
C 

IPIKHEXP.NE.  'OET* I 00  TO  310  A OETIPCTI? 

CALL  NOVCSTIKHPLO. (11. ( LENPAO ( KHLEN I I . 

- KLSTYP, ( I I . ( 3) . • •> 

00  TO  900 

310  continue  a puture  code 

C 

C 

C CHECK/EVALUATE  MODE  SUITCH  EXPRESSION 
C 


900 

IPIKHEXP.NE . ’BAT ■ ) 
H00SET<NBATCH 
00  TO  700 

00 

TO 

910 

A 

Batichi? 

910 

IP (KHEXP. nE . ‘CME • 1 
HOOSET-nCHECK 
00  TO  700 

GO 

TO 

930 

A 

ChE  t CkOUT ) ? 

9E0 

IP (KHEXP . NE . ’CON- t 
MOOSET.MCPIRM 
00  TO  700 

00 

TO 

930 

A 

CONiriRMI? 

930 

IPIKHEXP.NE. •OUM* 1 
MOOSET-MOUMP 
00  TO  700 

00 

TO 

9N0 

A 

OUHIPI? 

9V0 

IPIKHEXP.NE. ’ECh* I 
N00SET*NECH0 
00  TO  700 

00 

TO 

990 

A 

ECHIOI? 

990 

IPIKHEXP.NE. 'LEO* 1 

nooset^nleono 

00  TO  700 

00 

TO 

960 

A 

leoienoit 

960 

IPIKhEXP. nE . 'PRO* 1 

00 

TO 

970 

A 

PROIMPTl? 

H00SET>HPR0NT 
00  TO  700 


N-ISS 


uuuu  ouou  uuou 
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KHXXOS 

OOS 


SYO  irfXHCXP.NC. *TRA‘ > 00  TO  980  • TRAtCCI? 

HOOSCTaRTRACC 
00  TO  700 

980  CONTINUe  1 PUTURC  CODE 


INVALtO  eXPRCSStON  -•  PUT  *<‘  IN  PIRST  CHARACTER 

CALL  PUTCHRIKHELO.  ( n . 

00  TO  000 


STORE  evaluation  OP  NODE  SWITCH  EXPRESSION 

700  KHEXP«‘ON* 

IPINOOSET.EQ.OI  KHEXP-'OPP' 

CALL  MOVCSTCKHPLO. III. ( L ENP AO ( KHLENI ) . 
> KHEXP. ( t I . (3) . ' ') 


DONE 

900  RETURN 
END 


OAH  PACKAOe  APPCNOIX  N 
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APPCNOIX'N 

001 


•PRr.SC  OAH.PRCPACC'N 
•PRT.8C  DAN. APPCNOIX-N 
•Pur. SC  0AN.ARC077 
•PRT.SC  OAN.ARORCT 
•PRT.SC  OAR. ATRACe/OAH 
•PRT.SC  OAH.BOX*CHR 
•PRT.SC  OAH.BTTOHP 
•PRT.SC  OAR.CALCHA 
•PRT.SC  OAN.CALCOL 
•PRT.SC  OAN.CALSCA 
•PRT.SC  OAN.CALSPA 
•PRT.SC  OAN.CALSYR 
• PRT.SC  OAR.CAt.UlN 
•PRT.SC  OAR. CLOSES 
•PRT.SC  0AR.CL0SE<4 
•PRT.SC  OAR.CLOSPR 
•PRT.SC  OAR.CLSHOO 
•PRT.SC  0AR.CL3BIP 
PRT.SC  OAli.CORLT 
•PRT.SC  OAR.CROPOM 
•PRT.SC  OAR.OCORLT 
•PRT.SC  OAR.OEO 
•PRT.SC  OAR. OELETE-OENS 
•PRT.SC  OAR. OOjR/RArHPACK 
•PRT.SC  OAR.OOPCNT 
•PRT.SC  OAR.OORECP 
•PRT.SC  OAM.OOSQRT 
•RSO.N  .OLETPR 

•RSO.N  .OLETBN 

•PRT.SC  OAM.ORPTIC 
•PRT.SC  OAR.ORPMIN 
•PRT.SC  OAR.OSSPR 
•PRT.SC  OAH.OSSPRS 
•PRT.SC  OAR.OaOMS 
•PRT.SC  OAR.EISRTO 
•PRT.SC  OAR.ENVORI 
•PRT.SC  OAR.ENVUlN 
•PRT.SC  OAH.EOr 
•PRT.SC  OaM.TaCPRT 
•PRT.SC  OAM.rLINFO 
•PRT.SC  OAM.OCERT 
•PRT.SC  OAM.OCHOR 
•RSO.N  .OCLCC 

•PRT.SC  OAR.OCONST 
•RSO.N  .OCPS 

•RSO.N  .OCSOR 

•RSO.N  .OCUTR 

•PRT.SC  OAR.OENTtC 


(80091 


SCT  TABS  • 18  • 31 


. OUHP  A'RCOISTeR  IN  OCTAL  (POR  OCBUOOINOi 
. OCTeRNlNC  * OP  ACTUAL  AROURCNTS  t RCTURN  VCCTOR 
TRACe  CALLS  TO  ASSERBLCR  ROUTINES 
BOX  CHARACTERS 

EXTRACT/SCALE/OURP  byte  PIELOS  (8’S  corpli 
CALIBRATE  CHANNEL  POINTERS 
CALIBRATE  COLOR/ I NTENSI TY  IN  SYRBOL  TABLE 
CALIBRATE  PRINT/PLOT  COEPPICIENTS  POR  SCALE 
CALIBRATE  PRINT/PLOT  COEPPICIENTS  FOR  SPACINO 
calibrate  SYRBOL  TABLE  POR  PRINTINO 
CALIBRATE  HINOOH  ENVELOPES 
CLOSE  UNIT  3 (INPUT  ERTS  nSS  DATA) 

CLOSE  CORRANO  RECALL  PILE  (UNIT  m 

CLOSE  ANO  PRINT  ALTERNATE  PRINT  (SPOOL)  PILES 

WRITE  COHRON  lO/CLASStPICATION  HEAOING 

CLOSE  UNIT  3 (INPUT  ERTS  RSS  DATA  IN  SIP  PORRAT) 

CORRELATIONS/REANS/OEVS  PROR  SURS/SURS-OP-PROOS 

CROP  RSS  OUTPUT  HINOOH  TO  PIT  PRINT  PILE  SIZE 

CORRELATIONS/REANS/OEVS  PR  0 P SURS/SURS-OP-PROO 

CONVERT  OEOREES.R I NUTES. SECONDS  TO  DECREES 

DELETE  ALL  DENSITY  PILES 

OBL  PRECISION  OAUSS-JOROAN  REDUCTION 

CORPUTE  X OP  trace  POR  RATRIX  DIAGONAL  ELERENTS 

RECIPROCAL  OP  RATRIX  DIAGONAL  ELERENTS 

SQUARE  ROOT  OP  RATRIX  DIAGONAL  ELERENTS 

DELETE  ALTERNATE  PRINT  PILES  (SEE  CLOSPR) 

DELETE  INPUT  DETECTION  PILES  'SEE  0PNI8N) 

ouRp  TICK  Table 

OURP  HINOOH  PACKET 

CORPUTE  OBL  PRECISION  SURS  t SURS -OP -PROOUC T S 
OBL  PREC  SURS  % SURS-OP-PROOUCTS  PROR  UNIT  3 
DECREES  TO  DEGREES.  RINUTES.  SECONDS 
SORT  E-VALUES/E-VECTORS  BY  OESCENOINO  E-VALUES 
AOO  ORIGIN  TO  ENVELOPE  (REAL  HINOOH  PACKET) 
CORPUTE  ENVELOPE  POR  REAL  WINDOW  PACKET 
ENO-OP-PILE  (AEOP) 

PRINT  FACTOR  S TRUC T uRE ' COEPP I C I E S T S / RE ANS 

GET  pile  descriptive  INFORMATION 

LOAD  *ERT-  OEORETRIC  CONSTANTS 

LOAD  ’HOR*  OEORETRIC  CONSTANTS 

LOAD  ’LCC*  OEORETRIC  CONSTANTS  i SEE  OCmOR) 

LOAD  PROPER  geometric  CONSTANTS 

LOAD  *PS’  OEORETRIC  CONSTANTS  SEE  OCHOM) 

LOAD  •SOM*  OEORETRIC  CO'^STANTs  'SEE 

LOAD  ‘UTR*  geometric  constants  SEE 

’ ICKS 


:chcm  I 
OChCM) 


•PRT.SC 

OAR.OETOSR 

. OET 

•PRT.SC 

oar.getrao 

. OET 

•PRT.SC 

DAM. GETS 

. OET 

• RSO.N 

. 0ET5AL 

. OET 

• RSO.N 

.OETSPR 

. OET 

• RSO.N 

.OETSIN 

. OET 

• RSO.N 

.0ET5KH 

. OET 

• RSO.N 

.OETSRL 

. OET 

’’APE 


OENERATt 'STORE 'L 1ST  SORT 
DISK  SYRBOL IC  RECORD 

ORIGINAL' transformed  RADIANCE  FROM  ERTS 
REMAINING  CONTENTS  OP  UNIT  5 SUPPER 
ALPHA  DATA  FIELD  PROM  UNIT  5 'SEE  0ET?1 
FRACTION  DATA  FIELD  PROM  UNIT  ? (SEE  OETJI 
INTEGER  data  field  PROM  u'Nl'  5 'SEE  0ET51 
character  data  field  prom  unit  5 'SEE  0ET5I 

REAL  data  field  FROM  UNIT  5 (SEE  OET«) 


N-t 
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APPCNOU-N 

ooa 


•NtO.N  .0CT98X 

tPRT.SC  OAN.HOUNIT 
•PRT.SC  OAH.IBH3SO 
•PRT.SC  OAH.IOCRT 
•PRT.SC  OAH.tOCRTS 
•PRT.SC  OAH.IOLU3 
•PRT.SC  OAH.tOUP 
•nso.N  .INSTAT 

•PRT.SC  OAH. tNVORI 
•PRT.SC  OAH. INVUIN 
•PRT.SC  OAH. IHKOLR 
•PRT.SC  OAH. JACHX/HATHPACK 
•PRT.SC  OAH.JOINaN 

• PRT.SC  OAH.KOLRM 

•PRT.SC  OAH.KSPRCO 
•PRT.SC  OAH.LBOXHt 
•HSO.N  .LORCON 

•PRT.SC  OAH.LORCOB 
•PRT.SC  OAH.LOCOSP 
•PRT.SC  OAH.LOOa 
•PRT.SC  OAH.HAPHOO 
•PRT.SC  OAH.HATPRT 
•HSO.N  .HOCLRr 

•HSO.N  .HOCLRM 

•HSO.N  .HOPATL 

•PRT.SC  OAH.HOLOO 
•HSO.N  .nONOTC 

•HSO.N  .HOUARN 

•PRT.SC  OAH.HSKPIX 
•PRT.SC  OAH.HVCONT 
•PRT.SC  OAH.HXHLT/HATHPACK 
•PRT.SC  OAH.NCOPIC 
•PRT.SC  OAH. NTABS/OAH 
•PRT.SC  OAH.NUtSUB 
•PRT.SC  OAH.NVIATO 
•PRT.SC  OAH.OPCNPR 
•PRT.SC  OAH.OPCN3 

• HSO.N  .OPCN>» 

•PRT.SC  OAH.OPNl?N 
•PRT.SC  OAH.OP3B1P 
•PRT.SC  OAM.0P30SK 
•PRT.SC  UAH.0P3M0P 
•PRT.SC  0AH.0P3TAP 
•PRT.SC  OAH.03ANCL 
•PRT.SC  0AH.03AN0T 
•PRT.SC  0AM.03H0R 
•PRT.SC  0AH.03SZAH 
•PRT.SC  DAM.03SZAR 
•PRT.SC  0AH.03SZPH 
•PRT.SC  DAH.03SZPR 
•PRT.SC  0AH.03TQR 
•HSO.N  .PABORT 

•PRT.SC  OAH.PITROL 
•PRT.SC  OAH.PRBNUH 
•PRT.SC  OAH.PROvn 
•PRT.SC  OAH.PROVSY 


. OCT  sex*Y  OATA  riCLO  PROn  UNIT  s (SCC  OCTSt 
. PRINT  NCAOINO  LINCISi 

. ALLOCATC  ARRAY  OP  «3SO  MOROS  IN  I -BANK 
. PRINT  SHORT  CRTS  SCCNC  lOCNTIPICATION 
. PRINT  CONPLCTC  CRTS  SCCNC  lOCNTIPICATION 
. PRINT  SHORT  10  POR  LOOICAL  UNIT  3 
. INTCOCR  OUPLICATC  IINOIRCCT  RCP  TO  OPTIONAL  AROI 
. OCT  PORTRAN  I/O  status  (UNIVAL  SYSTCH  ROUTINCI 
. AOO  ORIOIN  TO  CNVCLOPC  (InTCOCR  HINOOU  PACkCT) 

. COHPUTC  CNVCLOPC  POR  INTCOCR  HINOOH  PACKCT 
. INTCOCR-COLOR*CQUI VALCNT  POR  COLOR 
. JACOBI  ITCRATION  to  PINO  CIOCN*  VALUCS/ VCCTORS 
. JOIN  BUPPCRS  PROP  THO  OCTCCTION  PILCS 
. COLOR  POR  INTCOCR-COLOR-CQUI VALCNT 
. SPRCAO  COUNT  PLAOS  INTO  INTCRIOR  UNOCPINCO  PtXLS 
. LINC  OP  BOX  OlOIT  POR  InTCOCR 

. LOAO  NOHINAL  RCOISTRATION  PARAHCTCRS  ISCC  UORCOB 
. LOAO  CXACT  RCOISTRATION  PARAHCTCRS  PROH  UNIT  8 
. LOCATC  OISK  SYHBOLIC  PILC  OR  CLCHCNT 
. LOOARITHH.  BASC  B (TRUNCATCOI  op  INTCOCR 
. URITC  HAP  MINOOU  HCAOINO 
. PRINT  HATRIX 

. CLCAR  *PATAL  CRROR*  COUNT  (SCC  HOLOOi 
. CLCAR  ‘UARNINO*  COUNT  (SCC  HOLOOI 
. PRINT/LOO/COUNT  *PATaL  CRROR*  (SCC  HOLOOI 
. LOO  OIAONOSTIC  neSSAGCS 
. PRINT/LOO  ’NOTC  (SCC  HOLOOI 
. PRiNT/LOO/COUNT  'UARNINO*  < SCC  HOLOOI 
. HASK  PIXCLS  IN  BUPPCR  CUTSIOC  NON'TRIVIAL  UINOOU 
. HOVC  CONTCNTS  BCTUCCN  SPCCIPICO  LOCATIONS 
. HATRIX  HULTIPL ICAT ION 

. CONVCRT  OIOITAL  PICTURC  PROH  POSITIVC  TO  NCOATIV 
. WO  UNIT  NUH8CR  TABLC 
. OO  ABSOLUTCLY  NOTHINOII 
. NAHC  *VIA*  *T0*  ROUTINCS 

. OPCN  ALTCRNATC  PRINT  (SPOOL)  PILCS  (UNITS  10-19) 

. OPCN  UNIT  3 (Input  crts  hss  oatai 
. OPCN  COHHANO  RCCALL  PILC  (SCC  URITCNI 
. OPCN  INPUT  OCTCCTION  PILCIS)  (UNITS  BI-34) 


OPCN 

UNI  T 

3 

( input  CRTS 

MSS 

OATA 

IN 

BIP  PORMAT) 

OPCN 

UNI  T 

3 

( I NPUT  DATA 

ON  DISK 

N 

PXBDCP  PHTi 

OPCN 

UNI  T 

3 

( I NPUT  CRTS 

MSS 

data 

IN 

-OP  PORMAT! 

OPCN 

UNI  T 

3 

! I NPUT  CRTS 

MSS 

DATA 

ON 

TaPC  1 

OPCN 

UNl  T 

3 

( HOP 

PCRHAT 

ANC  I 

LL  ARY 

RCCCRDS) 

OPCN 

UNI  T 

3 

1 HOP 

PORMAT 

ANNOTAT  t ON 

RCCOROS) 

OPCN 

UNI  T 

3 

(HOP 

PORMAT 

HCAOCR  RCCORO) 

OPCN 

UNIT 

3 

1 HOP 

AH  PORMAT: 

Size 

A 

Input  uinooui 

OPCN 

UNI  T 

3 

( HOP 

AR  PORMAT: 

size 

1 

INPUT  UlNOOUl 

OPCN 

UNIT 

3 

( HOP 

PH  PCRHAT; 

size 

1 

input  UlNOOWI 

OPCN 

UNI  T 

3 

( HOP 

PR  PORMAT: 

SI  zc 

A 

INPUT  UINOOUI 

OPCN 

UNI  T 

3 

1 HOP 

PORMAT 

TaPC 

OIRCCTORY  RCCORO) 

. PROORAH  abort  (SCC  PSTOPI 
. cstihatc  pitch  ano  roll 

. PRINT  BOX  NUHBCRS  (VARIA6LC  hCIGhTi 
. PRINT/OVCRPRINT  PILCS 
. PRINT/OVCRPRINT  SYHBOL  BUPPCR 


N-B 


OAN  PACKAOe  APP'‘NOtX  N 
utiLirv  MOUriNCa 


APPCNOIX'N 

OOS 


•rn I 

• Pftr.fC 

•PUT. SC 

•ppr.sc 

•PMT.SC 

•PRT.SC 

•ppr.sc 

•PRT.SC 

IPRT.SC 

•PRT.SC 

•PRT.SC 

IPRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

IPRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•PRT.SC 

•NSO.N 

•PRT.SC 

•PRT.SC 

•PRT.SC 


wnn. rnainb 

OAH.PRTCHR 

OAN.PRTINC 

OAN.PRTHRO 

OAH.PSTART 

OAR.PSTOP 

OAN.PXSOnP 

OAH.PXHAH 

OAH.PXHAR 

OAM.PXHPH 

0AI1.PX4PR 

OAR. QUAD 

OAH. QUARTN 

OAR. QUARTU 

0AR.R03BIL 

0AR.R03BIP 

0AR.R03BSQ 

0AH.R030SK 

OAR.R03NUU 

OAR.RCAOSN 

0AR.RCA03 

OAR.RCAOS 

OAR. RCO-NOR/LSAT'I 'CRT 

OAR. RCO*NOR/LSAT-2-eRT 

OAR.RCO-NOR/LSAT-8-HOR 

OAR.ReO-NOR/USAT-8-SOR 

OAR.RCO-NOR/LSAT-8-UTR 

OAR.REO-NOR/LSAT-3-CRT 

OAR. RC0-N0R/LSAT>3>H0R 

OAR.ReO-ROR/LSAT>3>SOR 

OAR.  RCO-NOR/t.SAT-3-UTR 

OAR. REVERT 

OAR. R1 TAOO 

0AR.RL3ISX 

0AR.RL8SX 

OAR.RL>«SX 

OAR. ROTCRX 

OAM. ROrCOL 
OAR. ROTROU 
OAR. R3TREC 

OAN.  SETROO 
OAR. SHASAR 
OAR. SHf TBC 
OAR. SPANS 
OAR. SPL I r 
OAR. SREAOS 
OAR. SSPR 
OAR. STRE08 
OAR.  SllBUl  N 
OAR. TRACE/OAR 
OAR. TRCCVR 
OAR. T5UAP3 

.UNOETS 
OAR. VALKET 
OAR. VARSQN 
OAR.VARSQU 


PAINT  STNAOL  LCOENO 
HAITE  BOX  CNAAACTCAS  ON  ANY  UNIT 
SCT  PAINT  LINES  PEA  INCH 
SET  PAINT  HANOI  NS  • LINES  PEA  PAOE 
PAOOAAR  initiation 
PAOOAAR  TEAM I NAT  I ON 
OUHP  PXBOEP  PIXEL  BUFFEA 
PXBOEF  PAEAH6LE  FOA  NOP 
PX80EF  PAEAHBLE  FOA  HOP 
PXBOEF  PAEAHBLE  FOB  HOP 
PXBOEF  PAEARBLC  FOR  HOP 
FIT  Y • A»X««8  ♦ 8«X  ♦ C 
NORHALIZEO  QUARTIHAX  rotation  criterion 
UN-NORHALIZEO  QUARTIHAX  ROTATION  CRITERION 


PREARBLE  I FOA  OEBUOOINO 
AH'  PAEAHBLE 
AR*  PREARBLE 
PR'  PAEAHBLE 
PR'  PREARBLE 
• SOLVE  FOR  EXTRERUR 


REAO 

REAO 

REAO 

REAO 

REAO 

REAO 

REAO 

FILL 


UNI  T 
UNI  T 
UNI  T 
UNIT 
UNI  T 
OATA 
UNI  T 


(EATS  RSS  OATA  IN  HOP  BIL  FORHAT) 
(ERTS  RSS  OATA  IN  BIP  FOARAT) 
(EATS  RSS  OATA  IN  HOP  BSQ  FORRAT) 
(OATA  ON  OISK  IN  PXBOEF  FORRAT I 


(SYNTHETIC  OATA  WHEN 
FROH  OETECTION  FILE(S> 
3 (EATS  RSS  OATA) 


NO  UNIT  31 
(UNITS  81 *8H I 


BUFFER  FOR  UNIT  S (CARO  REAOER  OR  TERRlNAD 


NORI NAL 
NORI NAL 
NOHI NAL 
NORI NAL 
NORI NAL 
NORI NAL 
NORI NAL 
NORI NAL 
NORI NAL 


PARARETERS 
PARARETERS 
PARARETERS 
PARARE  TERS 
PARARETERS 
PARARETERS 
PARARETERS 
PARARETERS 
PARARETERS 


registration 
registration 
registration 
registration 
registration 
registration 
registration 
registration 
registration 
REVERT  EQUATIONS 

UAITE/AOO  SPECIFIEO  SYRBOLIC  ELERENT 
CONVERT  REAL  TO  SEXAGENARY  ARRAY  (INTEGER) 
CONVERT  REAL  TO  SEXAGENARY  ARRAY  (REAL) 

CORPUTE  real  FROR  SEXAGENARY  ARRAY  (REAL) 

COLURNS  TO  RAXIRiZt  FUNCTION 
COLURNS 
ROMS 

ONE  RECORD  FROR  TAPE  I 
OET/SET  rode  switches 

SHARPEN  SARPLES  IN  PXBOEF  FORRAT  BUFFER 

SHIFT  SITS  CIRCULAR  WITHIN  WORDS  OF  ARRAY 

ENABLE/OISABLE  spanning  for  UNIT  5 

SPLIT  REAL  INTO  S I ON . I N TE OEP . DEC  I R AL 

spanned  read  OF  UNIT  5 (USED  ONLY  BY  GETS) 

CORPUTE  SUNS  S SURS-OF-PRCDUCTS 

STORE  registration  PaRARE TERS  ON  UNIT  6 

GENERATE  SuBWINOOw  RAPS 

trace  CALLS  TO  FORTRAN  ROUTINES 

Tape  error  recovery  for  unit  3 (HOP  FORRAT  tapes 

tape  swap  for  unit  3 (RDP  FORRAT  TAPES) 

BACK  UP  I OATA  FIELD  ON  UNIT  S INPUT  (SEE  GETS) 
VALIDATE  security  KEY 

NORHALIZEO  VARIRAX  ROTATION  CRITERION 
UN-NORRAL IZEO  VARIRAX  ROTATION  CRITERION 


rotate  two  RATRIX 

rotate  two  RATRIX 
rotate  two  RATRIX 
REAO  UNIT  3 (READ 
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OAH  PACKAOC  AP^CNOtX  N 
umiry  ROuriNCS 


•PRT.tC  OAN.VCRAHO 

•Pfir.tc  OAH. veRA«p 
•Pur. sc  OAH.vcROtu 
•RtO.N  .vuro 

•PRT.SC  OAH. WARNS 
•PRT.SC  OAH.MlNCxr 
•PRr.SC  OAH.MINiNr 
•PRT.SC  OAN.MRirCH 
•PRT.SC  OAN.MRVCRr 
•PRT.SC  0AN.XRCO77 


APPCNOtX'N 

OOR 


. UINOOM  VCRTICCSi  AOJUSTCO  NSS  fOR  OCOORAPHIC 
. HINOOM  VCRTICCSi  AOJUSTCO  NSS  POR  PRINT/PLOT 
. MlNOOM  VCRTICCSi  OCOORAPHIC  POR  UTN 
. CALL  *VIA*  *TO*  ROUTINCS  (SCC  NViATOl 
. PROCCSS  WARN I NO  OlAONOSTIC  POR  UNIT  S 

. CONPUTC  INTCRCCPTS  POR  MlNOOH  CxrCRIOR  i 

. CONPUTC  INTCRCCPTS  POR  MlNOOH  INTCRIOR 
. WRITC  CONNANO  RCCALL  PlUC  I UNIT  m 
. WRITC  VCRTCX  COOROINATCS  POR  MlNOOM 
. OUNP  X'RCOISTCR  in  OCTAL  (POR  OCBUOOINOi 


1 


OAH  PACKAOC  AP^CNOIX  0 

cooiioiNArt  rRANsroKNArioNS 


APMNOIX‘0 

001 


OAN.MCfACC'O 
0AN.APPCN0IX>0 
OAN.  A*»0 
OAN. AHP 

OAH.OUHO/ClAOKCtOeO 

0AK.04A 

OAfl.OHP 

OAH.OHU/CLARKClOae 

OAN.PHA 

OAN.PHQ 

DAN. UHO/CLARKClOOe 


liooti 


scr  TAtt  • SI 


AOJutrco  not  coonoiNArcs  por  ocoorarnic  cooro 
Aojuorco  not  cooroinatcs  roR  rrt/rlt  cooRoiNArcs 

OOL  RRCCISION  UTN  COOROINATCS  POR  OCOORARNIC 
OCOORARNIC  COOROINATCS  POR  AOJUSTCO  NSS  COORO 
OCOORARNIC  COOROINATCS  POR  RRT/RLT  COORO 
OCOORARNIC  COOROINATCS  POR  UTN  COOROINATCS 
rrt/rlt  cooroinatcs  POR  AOJUSTCO  NSS  COOROINATCS 
RRT/RLT  COOROINATCS  POR  OCOORARNIC  COOROINATCS 
UTN  cooroinatcs  POR  OCOORARNIC  COOROINATCS 


m 
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OAN  ^ACKAOC  AMCNOIX  ^ 

cxceurivc  xcQuesrs 


•Mir.tc  OAN.PiicrACC*^ 

•Mir.tC  OAN.AMCNOIX*^ 
•Mir.tc  OAH.CAMNT^OAH 
•Mir.tc  OAN.CANCAO/OAN 
•Mir.tc  OAH.CMCtr/OAN 
•Mir.tc  OAH.CMOArC/OAH 
•Mir.tc  OAN.CRCRII/OAN 
•Mir.tc  OAN.CMCXir/OAfl 
•Mir.tc  OAH.CRrACl/OAN 
•Mir.tc  OAN.edrirn/oAn 
•Mir.tc  OAN.cmNro/OAn 
•Mr.tC  OAH.CtlO/OAN 
•MT.tC  OAn.CRIOH/OAn 

•rar.tc  OAu.cii^CMA/cAN 
•mr.tc  OAH.en^cr/OAH 
•mr.ic  OAN.cMrt/OAN 

•••r.tc  OAH.CRMCA/OAn 
•Mir.tc  OAM.CRPIICN/OAN 
•Mir.se  OAn.CRPRNT/oAN 
••iir.tc  OAN.CRMrA/OAn 
•Mir.se  OAH.emicAO/OAn 
•Mir.se  OA^  CMiiCDA/OAN 

•Mr. sc  OAll.CMSUPS/OAN 
•HSO.N  .CXrRAN 

•Mr. sc  OAH.exrsMP/OAH 
•Mr. sc  OAN.ciiruAr/OAn 
•Mr. sc  OAH.ciiHAi  r/OAH 

•NSO.N  .NcnriiN 

•Mr. sc  OAH.SY^ocr/OAN 
•Mr. sc  OAH.SYSAOO/OAN 
•Mr. sc  oah.sysoct/oah 
•Mr.se  OAH. SYSAur/OAH 


AAMNOIX'P 

•01 


. ••oott  ter  rAtt  • t»  • St 

. MiNr  INAOC  ON  rrr  on  linc  MinrcN  (Ateiti 
. NCAO  INAOC  rOON  rrY  on  CANO  NCAOCN  (ASCII  I 
. tUONir  CXCC  eOHNANOt  IfICLOArAI 
. NCruNN  tYtrCN  OArC  ANO  riNC  iriCLOArAI 
. CNNt  rCNNiNArr  moonan 
. rCNNiNArC  NNOONAN  INHCOIATCLY 
. NCrNievC  rACILiriCt  AtttONHCNT  iNrONNAriON 
. NcrNicvc  rACiLiriet  AttiONNCNr  iNroNNArioN 
. NCrNtCVC  tYSTCN/NUN/ANOONAN/riLC  INFO 
. iNirurc  I/O 

. INirurc  I/O  • HAir  roN  conalction 
. MNirC  INAOC  to  AtrCNNArC  punch  PILC  iPlCLOArAl 
. NcrNicvc  AANr  or  anoonan  coNrooL  rAOie  (acti 
. anoonan  riLC  tCANCH  roN  inpo  on  ctcnCNr 
. scr  ALrcRNATc  ANiNr  riLC  coNrxoLS  (rtCLOArAi 
. ter  ANiNT  riLC  coNrooLS  criCLOArAi 

. ANINr  INAOC  ON  TrY  ON  LiNC  ANINYCN  (riCLOATAl 
. HNirc  INAOC  ro  AtrcNNArc  aniny  pilc  (PICloatai 
. NCAO  INAOC  PNOH  rrY  ON  CANO  NCAOCN  (PICLOATAI 
. NCAO  INAOC  PNON  NCAO  ALT  PILC  (PICLOATAI 
. NCruNN  ACCUNULATCO  SUAS  ifOO  USCC  INCNI  PNON  ACT 
. tUSNir  CXCC  NCQuCSrs  (UNIVAC  SYSTCN  NOUTINCI 
. SHAA  TaAC  NCCLS  op  NULTI'NCCL  pilc 
. riNCO  WAIT  UA  TO  so  SCCONOS 
. WAIT  PON  CONALCriON  OP  I'O 
. tUONir  CXCC  NCQUCSrs  (UNIVAC  systcn  NOUTInCI 
. OUTAur  ANONAT  NCCONO  I OCT  nCXT  SYSIN  NCCONO 
. AOO  OtSK  SYNtOLIC  PILC  ON  CLT  TO  SYSIN  NUNSTNCan 
. OCT  NCxr  NCCONO  PNON  SYSIN  NUNSTNCAN 
. OUTAur  NCCONO  ^0  SrSOUT  ANINANY  CNr/ANINTCN  PILC 


A-l 


NACMOt 


NOIK  0 


«WNOIX-0 

oet 


•mr.tc  OAN.MCfACC'Q 
•rar.te  oah.aaacnoix«q 

AMtO.N  .AOJtHC 

•NtO.N  .AOJt*»C 

AMr.tC  OAN.  ALTAAr«AAOCt 
•MT.tC  .')AH.ASnOCr*AAOe 
•NtO.N  .AtNHI  ...  AtHNt 

•NtO.N  .AtHtI  ...  AtN'.O 

•NtO.N  .AtNTI  ...  AtNTl 

•NtO.N  .AXNt 

•NNT.tC  OAH.CtOCr*NNOe 
•NtO.N  .CONIHA 

•NtO.N  .eONt<»A 

•NtO.N  .COAL<»A 

•NtO.N  .CONtNN 

•NtO.N  .CONLHt 

•NtO.N  .CONtNt 

•NtO.N  .OlOITt 

•MT.tC  OAN.rACOIT'AAOC 
•NNT.tc  OAN.rioer>NRoe 
•NtO.N  .riocr 

•NNT.tC  OAH.rONAAOCt 
•NNT.tC  OAN.OCTOAT'AAAOC 
•NtO.N  . I court 
•NtO.N  . I court 
•NtO.N  .1  court 
•NtO.N  .!COUr<» 

•NtO.N  .lOAOON 

•NtO.N  .lOArcr 

•NtO.N  . lOCOOC 

•NtO.N  .loruNC 

•NtO.N  .lONWOt 

•NtO.N  .lOtCCT 

•NtO.N  .lOtIZC 

•NtO.N  .lOtrAT 

•NtO.N  .lOMAtr 

•NtO.N  . I QUOAD 

•NtO.N  .KONALT 

•NtO.N  .KOHOCr 

•NtO.N  .KOnrir 

•AAT.tC  DAN. KOntO'AAQC 
•AAT.tC  OAH.KOnlAr-PAOC 
•NtO.N  .KONlUU 

•NtO.N  .KOKKLS 

•AAT.tC  DAN. KONKt-AAOC 
•NtO.N  KCNLOO 

•AAT.tC  DAN. KOHLUS-PAOC 
•AOr.tC  OAN.KONLU9-AAOC 
•NAT.tC  OAN.KOHLIN-PAOC 
•NtO.N  .KOHNCA 

•AOr.tC  OAN.KOHNCr-AAOC 
•NtO.N  .KONOUU 

•AAT.tC  OAN.KONtlN-AAOC 
•MT.tC  OAN.KOHtYN-AAOC 
•AOr.tC  OAN.KOHrOL*PAOC 
•NtO.N  .KONXQT 


. tTtlOt  ter  TAit  • It  t tl 

! AOuutrcD  kiNC  roN  coNoeerco  itcc  rNroNN-oNoett 
. Aojutreo  tANNkC  roN  coNRCcrco  (tec  roroNN-oAocti 
. coNNON/ocriNC  roN  ALreoNArc  oNiNf  met 
. OCriNC  UNIVAC  AttCNOteN  AANTIAL  HOt  IN  rONTAAN  V 
. AAOriAk  NALr«HOAO  NNCNONICt  I tCC  AtNOCr«ANOCl 
. AAOriAL  tlXTN-UONO  NNtNONICt  ItCC  AtNOCr>ANOCI 
. AANTIAL  THINO'UONO  NNCNONICt  ( tCC  AtHOCr>ANOCt 
. tTANOANO  1100  NCO  NNCNONICt  I UNI  VAC  tVtTCN  AAOC * 
. ocriNC  CNANAcrcA  ourrcN  tTNucruAC  • tro  co*t 
. eoNNcereo  linc  roN  AOjutreo  (tee  TAroNN*ANocti 
. eONNCCrCO  tANALC  rOA  AOJUtreO  Itce  TArOAN>AAOCt> 
. eoNNCcrco  linc  roA  aao  itcc  rRroNN>ANocti 

. 70NNCCTC0  tANALC  rON  AAO  ItCC  TArONN>AAOCt I 
. CONNCCrCO  LINC  TON  tTN  ftCC  TRrONN.AAOCtl 
. rONNCCTCO  tANALC  rON  tTN  ItCC  TArOAN-ANOCti 
. Itcc  rONANOCtI 

. NNCNONICt  roN  cxcC'O  ctrt  rACUirv  tiATut  oirt 
. ocriNC  troucruAC  or  rue  ocriNirtON  accoao 
. (tee  roNANoett 

. NltCCLLANCOUt  OCriNC  AAOCCOUACt 

. AttCNtLCA  NANIAULAIION  Or  XQT  OATION  Oirt/LCTTCA 
. tTANOANO  CHANACTCA  OurrCA  *1  Itcc  COOCr-AAOC: 

. tTANOANO  CHANACTCA  OUrrCA  ••  I tCC  CBOCr-AAOCi 

. tTANOAAO  CHAAAcrcA  ourrcA  AS  Itcc  ctoer-ANoci 

. tTANOAAO  cmaaactca  tiirrcA  #•»  Itcc  cooer-AAOci 

. I/O  AOONctt  or  ourrcA  itcc  konio-aaoc> 

. I/O  AONONHAL  rAANC  COUNT  I tCC  KONtO-AAOC* 

. I/O  tTATut  COOC  NNCNONIC  itCC  KONtO-AAOO 
. I/O  ruNCTION  Itcc  KONIO'AAOCI 
. I/O  NUNtCA  or  uot  TAANtNirreo  *sec  koniO'Aaoci 
. I/O  tccroA  IN  riLC  itcc  konio*aaoci 
. I/O  ourrcA  tiec  itcc  konio-anoC! 

. I/O  tTATut  NUNOCA  1 tCC  KONIO'AAOC 
. I/O  UAIT  tACC  Itcc  KONtO-AAOC) 

. I/O  UOAO  IN  rue  Itcc  KOHtO-ANOC> 

. ALTCANATC  nAInT  PUC  COUNTCAt  Itcc  ALTAAT.PROCti 
. OCTCCTION  riLir  UINOOU  paCkCTS  r$cc  >iCA0CT-pA0C9> 

. AOJUtTNCNT/NCOItTAAT ION  PAAANt  ' tCC  NCA9CT-PA0C8 
. rOATNAN  N/.NtAuLAT|ON  OP  AttCNBkCA  |/Q  »ACkC*S 
. CONNON  tAAAOlANCC  TAANtPOANAM ON  CCCPPICtCNTt 
. CONNON  INAUT  UtNOOW  AACKCTt  • tCC  •' I NOON  • AAQC 8 < 

. CONNON  CLAtt.P.’CATION  tNPO  <8CC  NCACC  T • AAOC  8 I 
. CONNON  COLON  tCACCN  AAAANC'CAt 
. LOO  PUC  t/0  AKTt.  AoiN^cAt  <ser  aotloo-aaocoi 
, CONNON  t/0  AACKCT/AOtNTCAS  PQA  ^;Nt’  I 
. CONNON  OUPPCA.  A0INTCA8.  PLA99  PQA  JNIT  9 
. CONNON  t/0  AKTt  POA  OCTCCTtOM  PI1.C8  ‘^;nIT8 
. CONNON  CATt  8CCNC  AaNANCTCAS  Itcc  NCACCT-PROCtI 
. CONNON  CONTACL  NCTMOAK  COOAOINATCS 
. CONNON  OUTPUT  UtNOOU  PACKCT8  I tre  UlNOCU-PAOCtI 
. CONNON  tPCCTNAL  LiNtTt 
. CCNNON  tVNtOL  TaBlC 
. CONNON  NULTt-AUAAOtC  TaBLC 

. CONNON  AAOOAAM  CXCCuTtON  tNPO  <8CC  XQTLOO-AAOCt) 


Q-l 


MACNOt 


NOt 


AMCNOICO 

ooc 


•MT.te  OAtt.KOnXQr«AMIOC 
•^nr  sc  OAN.Lsriut-riioc 

SMT.Se  OAM.HAXSYT'PIIOC 

■rar.fc  OAN.NAKiec-^noc 
spur. sc  oah.naxinT'Moc 

•Mt.SC  DAn.MCROCT'^XOeS 
SNSO.N  .NITaC 

•NtO.N  .NiTXOT 

•Mr. SC  OAn.NUlCHN-MOC 
•Mt.sc  OAH.NULCST'MOC 
•MT.se  OAH.PICOCf'MOC 
•NSO.N  .MOL<*C 

•NSO.N  .MOC«C 

•Mr. SC  OAH.MCocr-PNoc 
•PUT. SC  OAH.PMOOCP'PKOC 
iPsr.SC  OAH.Pxsocp-ppoc 
•NSO.N  .STNNHC 

•NSO.N  .S?NC<*C 

•NSO.N  .SrSXQT 

•Por.sc  OAH. rppoNN'PNOcs 

•NSO.N  .HtNOCP 

•PNT.SC  OAN.HINOOU'PSOCS 
•NSO.N  .xQTorr 

•por.sc  OAN.xorLOO'PNocs 


. CONNON  PAOOSAN  CXCCUTION  INPO  lASN  POUflNCS  Om.r 

. NANCLisr  spces  roo  unit  • iNCOisrsATN  pamanctcns 
. OCPINC  NAXINUN  irrc  VALUC 
. OCPINC  NAXINUN  INTCOCN-CNAP'CQUI V VA.UC 
. OCPINC  NAXINUN  INTCOCO  VALUC 

. CONNON/NCAOCN  Ok OCXS  POP  CATS  OCTCCTION  PlkCS 

. tscc  Akrppr>Ppocst 
. (scc  A(  Tppr-ppocsi 

. OCPINC  NULL  CNAPACrCP 
. OCPINC  NULL  CNAPACTCP  STPINO 
. OCPINC  PICTAO  PAPANCTCPS 
. PPO  LtNC  POP  COPPCCrCO  (SCC  rpPOPN'PPOCSl 

. PPO  COLUNN  POP  eoppccreo  >sce  rppoPN*PNoc<;> 

. OCPINC  pprcLASS  pARAHcrcps 
. OCPINC  pprocT  PAP..^  rcps 
. OCPINC  srpucrjpc  or  pixcl  ouppcp 
. STN  NOPTNINO  pop  COPPCCrCO  (SCC  TAroRH-PNOCSl 

. STN  CAsriNO  POP  eoppccreo  iscc  rppopn*ppocs> 

. <scc  xorLOO'pPoesi 

. OCPtNC  COOROtNAre  tOANSPORNAT IONS 
. (SCC  MlNOOU'PPOCSi 
. eONNON/OCPlNC  POP  HiNOOU  PACKCTS 

. iscc  xorioo'ppocsi 

. CONNON  OLOCXS  POP  SXOT  I OAR  LOO  NANiPULATION 


o*n  PACKAoe  APPCNOtx  r 

CHAR/BYre/srniNO  PouriNCs 


APPCNOtX-R 

001 


•por.sc  OAH.PRcrAce*R 

•PRT.SC  DAH. APPCNOIX-R 
•PRr.SC  0AH.AS4CST 
•PRT.SC  OAH.ASHCB 
•PRT.SC  OAH.BSTi»88/nOS 
•PRT.SC  OAH.BSTtsen no 
•PRT.SC  OAH.BB>»BST/ nOB 
•PRT.SC  OAH.Se<*BSr/ 1 1 to 
•PRT.SC  OAN.CBINIT 
•PRT.SC  OAN.CBHCSr 
•PRT.SC  OAn.CBHFlL 
•PRT.SC  0AN.CB4IN 
•PRT.SC  OAH.CBHRL 
•PRT.SC  OAH.CLRQUO 
•PRT.SC  OAM.CSTHAS 
•PRT.SC  OAM.CSr^eB 

• PRT.SC  OAM.CSr>*IN 
•PRT.SC  OAM.CSTHRL 
•PRT.SC  OAn.CURBST 

• PRT.SC  OAtl.CBSHCS 
•PRT.SC  0AH.C85‘«tN 

• PRT.SC  0An.C8S>»RL 
•PRT.SC  OAH.OCOOr 

• PRT.SC  0AM.C8‘*AS 
•PRT.SC  DAH.EB4CST 
•PRT.SC  OAH.riL^CB 
•PRT.SC  OAM.cerBYT 
•PRT  SC  OAN.OETCHR 
•PRT,  • OAM.OETOBY 
•PR  .“c-  OAN.CEThEX 

C.N  .OETtCE 

i.  .(T.sc  o*H. oet:nt 

•PRT.SC  OAH.OETNUL 
•PRT.SC  OAM.OETNYB 
•PRT.SC  0AM.0ETQ8Y 
•PRT.SC  OAR.OETOKH 
•PRT.SC  OAN.GRABSA 
•PRT.SC  OAM.OTBYTS 
•PRT.SC  0AM. ICE 
•PRT.SC  0AM. ICHR 

• PRT.SC  0AM.  mKONE 
•Prr.sc  OAM. i^ktmo 
•PRT.SC  OAM.KHRHIN 
•PRT.SC  0AM.X0NE“1 

• PRT.SC  OAM.KTMO'*! 
•PRT.SC  0AM.LAP8S- 
•PRT.SC  OAM.LBYTEQ 
•PRT.SC  OAM.LBYTNE 
•PRT.SC  OAM.LCHREQ 
•PRT.SC  OAM.LCHfiNE 

• PRT.SC  OAM.LCSrcr. 
•PRT.SC  OAM.LENCST 
•PRT.SC  OAM.LEMPAO 
•PRT.SC  OAM.LICEEQ 
•PRT.SC  OAM.LICENE 
•PRT.SC  OAM.LINTEQ 


. (BOOBI  SCT  TABS  • IB  8 31 

. ASCII  BVTC  STRINO  FOR  CHARACTER  STRING 
. ASCII  BYTE  string  PGR  EBCDIC  BYTE  STRING 
. INTERNAL  BYTE  STRINO  FOR  8-BIT  EXTERNAL  BYTE  STR 

. INTERNAL  BYTE  STRING  FOR  8-BIT  EXTERNAL  BYTE  STR 

. 8-BIT  EXTERNAL  BYTE  STRING  FOR  INTERNAL  BYTE  STR 

. 8-BIT  EXTERNAL  BYTE  STRING  FOR  INTERNAL  BYTE  STR 

. INITIALIZE  CHARACTER  BUFFER 
. CHARACTER  BUFFER  FOR  CHARACTER  STRING 
. CHARACTER  BUFFER  FOR  FILE  (‘REAO'I 
. CHARACTER  BUFFER  FOR  INTEGER 

. CHARACTER  BUFFER  FOR  REAL 

. CLEAR  QUARTER-HORO  MODE 
. CHARACTER  string  FOR  ASCII  BYTE  STRINO 
. CHARACTER  STRING  FOR  EBCDIC  BYTE  STRING 
. character  STRINO  FOR  INTEGER 

. character  STRINO  FOR  REAL 

. curvature  (1ST  DERIVATIVE)  OF  BYTE  STRINO 

. VARIABLE-LEKOTH  (<«  8 CHAR)  STRINO  FOR  CHAR  STR 

. VARIASLE-LENOTH  ((>8  CHAR)  STRINO  FOR  INTEGER 

. VARI ABLE-LENOTH  (<>  8 CHAR)  STRING  FOR  REAL 

. DECODE  NUMERIC  CHARACTER  STRING 
. EBCDIC  BYTE  STRING  FOR  ASCII  BYTE  STRING 
. EBCDIC  BYTE  STRINO  FOR  CHARACTER  STRING 
. FILE  FOR  CHARACTER  BUFFER  (•WRITE*) 

. GET  NON-NEO  INTEGER  FROM  BYTE  IN  BYTE  STRING 
. GET  character  FROM  CHARACTER  STRING 
. GET  NON-NEO  INTEGER  FROM  DOUBLE  BYTE  IN  BYTE  STR 
. GET  HEXADECIMAL  CHAR  FROM  NY8LE  IN  BYTE  STRING 
. GET  INTEGER-CHAR-EQUI V FROM  CHAR  STR  (SEE  GETCHR 
. OCT  INTEGER  FROM  INTEGER  STRING 

. BEGIN  ERROR  MALKBACK  i ARCS  MATCH  GE TB Y T / CHR / I NT 
. GET  NON-NEO  INTEGER  FROM  NYBLE  IN  BYTE  STRING 
. GET  integer  FROM  QUADRUPLE  BYTE  IN  BYTE  STRING 
OCT  NEXT  CHAR  string  DATA  FLO  FROM  IMAGE  BUFFER 
. GRADIENT  (1ST  DERIVATIVE)  OF  BYTE  STRING  ARRAY 
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